Automating Email (CC:)

[Q]

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. 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

 

[Ron de Bruin]

Hi Q

See this example for Outlook Express
http://www.rondebruin.nl/sendmail.htm#body