Sending email from outlook

[RichardMGreen]

Hi all

I need to automate the sending of emails from an Outlook address box but I need to change the sender so any replies go to a central point.
I googled the problem but all the code I've found doesn't show me how to change the sender on the emails.
I've also runn into a problem where I get a warning that it's a possible virus and I need to click yes to send the mail, so I need to get around that as well.

Any help gratefully accepted.

 

[VoG]

If you are using Outlook 2007 or 2010 try http://www.rondebruin.nl/mail/account.htm

For the security warning see http://www.rondebruin.nl/mail/prevent.htm

 

[RichardMGreen]

Apologies, it's Outlook 2003.

 

[VoG]

I don't think that you can change the address that the e-mail is sent from in versions of Outlook before 2007.

 

[RichardMGreen]

OK, thanks for that. Looks like it's a change of plan then.......unless I can alter it so it says "Sent By XX on behalf of YY" or something along those lines.

 

[Hermanito]

yes you can... adapted from my own production code, works fine in Outlook 2003:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Set MyItem = myOlApp.CreateItem(olMailItem)
'... other code here
MyItem.SentOnBehalfOfName =[COLOR=black]"[/COLOR][COLOR=black]some.address@mail.com[/COLOR][COLOR=black]"[/COLOR]

 

[VoG]

yes you can... adapted from my own production code, works fine in Outlook 2003:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Set MyItem = myOlApp.CreateItem(olMailItem)
'... other code here
MyItem.SentOnBehalfOfName =[COLOR=black]"[/COLOR][COLOR=black]some.address@mail.com[/COLOR][COLOR=black]"[/COLOR]

Ah, one lives and learns

 

[RichardMGreen]

Thanks for that.
Now just the warning to get around (looks like a third-party install if IT will agree to it).