| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Send Email" macro to multiple addresses
I am trying to get a send email button to send emails to multiple addresses.
I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
"Send Email" macro to multiple addresses
Hi LKP
See http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... I am trying to get a send email button to send emails to multiple addresses. I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
"Send Email" macro to multiple addresses
Sweet! Thanks Ron!
"Ron de Bruin" wrote: Hi LKP See http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... I am trying to get a send email button to send emails to multiple addresses. I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
"Send Email" macro to multiple addresses
Oops
Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? You can change the security Use the shortcut to go to that dialog Alt tms -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... Sweet! Thanks Ron! "Ron de Bruin" wrote: Hi LKP See http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... I am trying to get a send email button to send emails to multiple addresses. I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
"Send Email" macro to multiple addresses
Thanks, Ron. Do you know how I can make a mcaro button conditional? I want
this "Send Email" button to one person if certain conditions are met and another person if these conditions are not met. "Ron de Bruin" wrote: Oops Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? You can change the security Use the shortcut to go to that dialog Alt tms -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... Sweet! Thanks Ron! "Ron de Bruin" wrote: Hi LKP See http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... I am trying to get a send email button to send emails to multiple addresses. I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
"Send Email" macro to multiple addresses
You can use code like this in the macro to test a cell value
Dim ToStr As String If LCase(Range("A1").Value) = "yes" Then ToStr = " Else ToStr = " End If With wb2 On Error Resume Next .SendMail ToStr, _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... Thanks, Ron. Do you know how I can make a mcaro button conditional? I want this "Send Email" button to one person if certain conditions are met and another person if these conditions are not met. "Ron de Bruin" wrote: Oops Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? You can change the security Use the shortcut to go to that dialog Alt tms -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... Sweet! Thanks Ron! "Ron de Bruin" wrote: Hi LKP See http://www.rondebruin.nl/mail/tips1.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "LKP" wrote in message ... I am trying to get a send email button to send emails to multiple addresses. I can get it to work for one address, but I don't know how to do multiples. Here's the code: wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr) With wb2 On Error Resume Next .SendMail ", _ "Product" On Error GoTo 0 .Close SaveChanges:=False End With 'Delete the file Kill TempFilePath & TempFileName & FileExtStr With Application .ScreenUpdating = True .EnableEvents = True Can anyone help? Also, when I click on this button, a security warning pops up asking if I want to enable the macros, which I do. How do I turn that pop up off? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro to send email to multiple addresses | Excel Worksheet Functions | |||
| Excel Macro to email to addresses in "Contacts" Tab | Excel Programming | |||
| copy/convert column email addresses Hyperlink "mailto:" excel97 | Excel Discussion (Misc queries) | |||
| Email from Excel; MS warning "program is trying to send mail on your behalf" | Excel Programming | |||
| VB code to "Send To" Multi addresses | Excel Programming | |||
Hybrid Mode
