Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send mail via VBA through a proxy address?
Hello, I have a macro to send a bunch of statements to clients though Outlook Is there a way I can send the mail with a proxy "From" e-mail address? I would like the mail to come from our group e-mail address instead o the individual that is sending so and querries will come back to th group address. Below is an excerp of my code. My firm has an externa program that will assist with this but I'd rather do it right in VBA i at all possible to try to avoid making everyone install the program. Any help is greatly appreciated!!! Dim out As Object Dim prevday As Integer prevday = 0 Set out = CreateObject("Outlook.Application") With out.CreateItem(olMailItem) .Recipients.Add recipient1 .Subject = Format(DateAdd("d", Date, prevday), "ddmmmyy") & Statement" .Body = "Please find attached your daily statement." .Attachments.Add path1 & fn1 .Send End Wit -- Iwant2lear ----------------------------------------------------------------------- Iwant2learn's Profile: http://www.excelforum.com/member.php...fo&userid=3346 View this thread: http://www.excelforum.com/showthread.php?threadid=53460 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send mail via VBA through a proxy address?
Hi Iwant2learn
Don't know about Outlook but you can do it with CDO http://www.rondebruin.nl/cdo.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Iwant2learn" wrote in message ... Hello, I have a macro to send a bunch of statements to clients though Outlook. Is there a way I can send the mail with a proxy "From" e-mail address? I would like the mail to come from our group e-mail address instead of the individual that is sending so and querries will come back to the group address. Below is an excerp of my code. My firm has an external program that will assist with this but I'd rather do it right in VBA if at all possible to try to avoid making everyone install the program. Any help is greatly appreciated!!! Dim out As Object Dim prevday As Integer prevday = 0 Set out = CreateObject("Outlook.Application") With out.CreateItem(olMailItem) Recipients.Add recipient1 Subject = Format(DateAdd("d", Date, prevday), "ddmmmyy") & " Statement" Body = "Please find attached your daily statement." Attachments.Add path1 & fn1 Send End With -- Iwant2learn ------------------------------------------------------------------------ Iwant2learn's Profile: http://www.excelforum.com/member.php...o&userid=33461 View this thread: http://www.excelforum.com/showthread...hreadid=534601 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Would like to send an e-mail to multiple address entered as data. | Excel Discussion (Misc queries) | |||
loop trough e-mail address list to send task lists with outlook | Excel Discussion (Misc queries) | |||
Link to send file to an e-mail address | Excel Discussion (Misc queries) | |||
Send current file to an e-mail address | Excel Programming | |||
Send current file to an e-mail address | Excel Programming |