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 = " 'This line gives error
.To = "
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!

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"" "





--

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


"Cavy" wrote in message ...
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 = " 'This line gives error
.To = "
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!

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" wrote:

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"" "





--

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


"Cavy" wrote in message ...
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 = " 'This line gives error
.To = "
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!

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


--

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


"Cavy" wrote in message ...
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" wrote:

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"" "





--

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


"Cavy" wrote in message ...
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 = " 'This line gives error
.To = "
.deferreddeliverytime = Range("DeliveryTime")
.Subject = "Rates Update "
.readreceiptrequested = True
.attachments.Add Template.FullName
.display
.send
End With
End Function

Thanks!!