Email .From
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!! |
Email .From
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!! |
Email .From
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!! |
Email .From
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!! |
All times are GMT +1. The time now is 05:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com