Emailing multiple receipiants

[Sony]

I am having a problem with my code when trying to set it
up to email multiple receipiants. It works for one
receipiant but not multiple. I have tried using an array
but keep getting errors. I would appreciate any help I
can get on this. Here is a sample of my code:

Private Sub CommandButton3_Click()
Dim Msg, Style, Title, Response
Msg = "Are you sure you want to send this request?"
Style = vbYesNo + vbCritical + vbSubReq
Title = "E-mail"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
ActiveWorkbook.SendMail
Recipients:="[email protected]", Subject:="Test",
ReturnReceipt:="False"
MsgBox ("Your swap request has been sent")
Else
MsgBox "Send operation aborted."
End If
End Sub

 

[Ron de Bruin]

Hi Sony

For mailing to more people use this line.
..SendMail Array("[email protected]", "[email protected]"), _
"This is the Subject line"

For more examples visit my website
http://www.rondebruin.nl/sendmail.htm

 

[Chip Pearson]

Sony,

What errors, and what code, are you using to create an array of
recipients?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com