Email .From

[Cavy]

Hi there,

I have a working routine to send out specific emails with attachments.
How can i define the .from property of the email?

Here is my code:

Function SendEmail()
Dim myOutlook As Object
Dim MymailItem As Object
Set otlApp = CreateObject("outlook.application")
Set otlNewMail = otlApp.createitem(olmailitem)
Set Template = ActiveWorkbook

ThisWorkbook.Activate

With otlNewMail
'.from = "(e-mail address removed)" 'This line gives error
.To = "(e-mail address removed)"
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!

 

[Ron de Bruin]

Hi Cavy

See the tips page
http://www.rondebruin.nl/mail/tips2.htm

Change sender name and reply address

If you want to change the sender name and reply address add this code line

'The receiver can see the original mail address in the properties if he want
..SentOnBehalfOfName = """SenderName"" <[email protected]>"

 

[Cavy]

Hi Ron de Bruin,

Thank you very much for your reply. It works great!

I thought it would be ok if I write that I admire you very much, and within
the excel community you are one of my heroes.

 

[Ron de Bruin]

Hi Cavy

I thought it would be ok if I write that I admire you very much, and within
the excel community you are one of my heroes.

You are welcome
Thanks for the nice words