Excel and Email

[carl]

I am using this code to send emails from an excel workbook.

Is there a way to add the "From" information.

'Sub Mail_ActiveSheet_Body()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail


.To = "ABC.com"
.CC = "EFG.com"
.BCC = ""
.Subject = Sheets("trading").Range("A9").Value
.HTMLBody = SheetToHTML(ActiveSheet)
.Send 'or use .Display

Thank you in advance.

 

[Ron de Bruin]

Hi Carl

With CDO it is possible but not with Outlook as far as i know.

See
http://www.rondebruin.nl/cdo.htm