Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating email (CC:)
hi,
my question is, i have a macro that automates an email to be sent out of excel from a data dump. i've used "email" to get the email address and automatically go into the To: line does anyone know how i can get another row of cells to go into the CC: line? cause nothing i've tried has worked. i hope i'm asking this right. thanks in advance. -q here's some of my code: r = 2 Do Until (Cells(r, 1) = "") email = Cells(r, 8) ' Get Email address Subj = Cells(r, 9) ' Get Award Name as Subject ... ... ... 'Format URL to work with Mail program by replacing spaces with %20 and returns with %0D%0A Subj = Application.WorksheetFunction.Substitute (Subj, " ", "%20") Msg = Application.WorksheetFunction.Substitute (Msg, " ", "%20") Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A") 'Create the URL URL = "mailto:" & email & "?subject=" & Subj & "&body=" & Msg |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
automating email (CC:)
See answer in Misc
Please post in one group -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "Q" wrote in message ... hi, my question is, i have a macro that automates an email to be sent out of excel from a data dump. i've used "email" to get the email address and automatically go into the To: line does anyone know how i can get another row of cells to go into the CC: line? cause nothing i've tried has worked. i hope i'm asking this right. thanks in advance. -q here's some of my code: r = 2 Do Until (Cells(r, 1) = "") email = Cells(r, 8) ' Get Email address Subj = Cells(r, 9) ' Get Award Name as Subject ... ... ... 'Format URL to work with Mail program by replacing spaces with %20 and returns with %0D%0A Subj = Application.WorksheetFunction.Substitute (Subj, " ", "%20") Msg = Application.WorksheetFunction.Substitute (Msg, " ", "%20") Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A") 'Create the URL URL = "mailto:" & email & "?subject=" & Subj & "&body=" & Msg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
send wkbk as an email attachment with an email address copied from | Excel Discussion (Misc queries) | |||
Transfer Email addresses from spreadsheet to email address book | Excel Discussion (Misc queries) | |||
Email editor closes when forwarding Excel-embedded email | Setting up and Configuration of Excel | |||
Automating email using Lotus Notes | Excel Programming |