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

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