I am trying to have my macro CC the sender of the excel file as an
attachment. Here is my code:

Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = From.Name
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Again, I want to CC the sender so they have confirmation they sent the
email. Thanks!

This is not easy

See this site to find the mail address
http://vbnet.mvps.org/

Search for
RegQueryValueEx: Retrieve Email Account Info (Outlook)


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eric" wrote in message ...
I am trying to have my macro CC the sender of the excel file as an
attachment. Here is my code:

Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "
.CC = From.Name
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Again, I want to CC the sender so they have confirmation they sent the
email. Thanks!