CC: Sender on Email

[wiginprov]

I have the following macro to send a workbook to a specific individual:

ActiveWorkbook.SendMail Recipients:="Smith, Joe"

How do I cc: the sender, which could be one of 150 possible individuals?

Any thoughts appreciated. Many thanks.

 

[Chance1234]

your going to need to use the Outlook module, so goto tools references and select then your code might be something like this


Sub emailReport()
On Error Resume Next

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookAttach As Outlook.AttachmentSet objOutlook = CreateObject("Outlook.Application&quot
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

.to ="Joebloggs@joe.com"
.cc ="Frank@joe.com"
.subject ="how to mail"
.body ="make sense >?"
.Attachments.Add "C:\temp\myspreadhseet.xls", olByValue, 1, "Rich Text Report"
.send

end with

 

[wiginprov]

That looks great, but my sender could be one of 150 people, not consistently the same individual. How do I grab the sender's identity and cc them?