good afternoon,

i have most of my macro written (Office 2007,) but am having a small issue
with the following line:

'Sub Email() - sends a copy of the email to the recipients
ActiveWorkbook.SendMail "
'End Sub Email()

i cannot get more than one email address into the recipients list without
getting some sort of an error. how would i add more than one recipient to
the list. i have tried commas, semi-colons, and the "&" symbol between the
email addresses.

any other suggestions?

thank you,

jat

You need to pass an array in as the Recipients parameter. Either of the
following will work:

Dim Recip As Variant
Recip = ", ")
ThisWorkbook.SendMail Recip, "Subject Goes Here"


' OR

Dim Recip As Variant
Dim S As String
S = "
Recip = Split(S, ";")
ThisWorkbook.SendMail Recip, "Subject Goes Here"


--
Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)




"jatman" wrote in message
...
good afternoon,

i have most of my macro written (Office 2007,) but am having a small issue
with the following line:

'Sub Email() - sends a copy of the email to the recipients
ActiveWorkbook.SendMail "
'End Sub Email()

i cannot get more than one email address into the recipients list without
getting some sort of an error. how would i add more than one recipient to
the list. i have tried commas, semi-colons, and the "&" symbol between
the
email addresses.

any other suggestions?

thank you,

jat