Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
I have found some code on Ron de Bruin's web site which enables me to send
the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
What does the email address look like in A1. Did you seperate the E-Mail
addresses with a semicolon and a space? the email address should look like the e-mail address in Outlook. "Stephen C" wrote: I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
Separate addresses in A1 by, say commas,
insert this line addressees = Split(Range("A1"), ",") before With wb line and use ..SendMail addressees, "This is the Subject line" Regards, Stefi €˛Stephen C€¯ ezt Ć*rta: I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
Thank you Stefi.
"Stefi" wrote: Separate addresses in A1 by, say commas, insert this line addressees = Split(Range("A1"), ",") before With wb line and use .SendMail addressees, "This is the Subject line" Regards, Stefi €˛Stephen C€¯ ezt Ć*rta: I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
This still does not work for Outlook Express.
Stefi's answer works fine. "Joel" wrote: You need to include Recipents and subject in the line. Excel was probably putting your 2nd email address into the subject. .SendMail Recipients:=(Range("a1")), _ Subject:="This is the Subject line" "Stephen C" wrote: Cell A1 contains ", this works fine. I have tried adding the second one with a semicolon and space like this ; " but it will not work. I am using Outlook Express NOT Outlook. "Joel" wrote: What does the email address look like in A1. Did you seperate the E-Mail addresses with a semicolon and a space? the email address should look like the e-mail address in Outlook. "Stephen C" wrote: I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
See this page for more info
http://www.rondebruin.nl/mail/folder1/mail5.htm Read the info on the Tip page http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Stephen C" wrote in message ... I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Sendmail" macro to multilpe addresses
You are welcome! Thanks for the feedback!
Stefi €˛Stephen C€¯ ezt Ć*rta: Thank you Stefi. "Stefi" wrote: Separate addresses in A1 by, say commas, insert this line addressees = Split(Range("A1"), ",") before With wb line and use .SendMail addressees, "This is the Subject line" Regards, Stefi €˛Stephen C€¯ ezt Ć*rta: I have found some code on Ron de Bruin's web site which enables me to send the active sheet as an attachment to an email address contained in cell A1. This works fine but I now require it to be sent to more than one person, if add a second email address to cell A1 the macro will not work. Could someone please advise me how to change the following code to enable me to send to multiple recipients contained in one cell. Dim wb As Workbook Dim strdate As String strdate = Format(Now, "dd-mm-yy h-mm-ss") Application.ScreenUpdating = False ActiveSheet.Copy Set wb = ActiveWorkbook With wb .SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" .SendMail (Range("a1")), _ "This is the Subject line" .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True End Sub I am using excel 2000 & Outlook Express. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Send Email" macro to multiple addresses | Excel Programming | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
Read ".dll" files, the Macro "work flow" and the actual values of the variables when Macro is running | Excel Programming | |||
Excel Macro to email to addresses in "Contacts" Tab | Excel Programming | |||
Macro to concatenate into "B1" B2 thru B"x" based on new data in "Col A" | Excel Discussion (Misc queries) |