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
", Subject:="Test",
ReturnReceipt:="False"
MsgBox ("Your swap request has been sent")
Else
MsgBox "Send operation aborted."
End If
End Sub

Hi Sony

For mailing to more people use this line.
..SendMail ", "), _
"This is the Subject line"

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


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Sony" wrote in message ...
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
", Subject:="Test",
ReturnReceipt:="False"
MsgBox ("Your swap request has been sent")
Else
MsgBox "Send operation aborted."
End If
End Sub

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


"Sony" wrote in message
...
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
", Subject:="Test",
ReturnReceipt:="False"
MsgBox ("Your swap request has been sent")
Else
MsgBox "Send operation aborted."
End If
End Sub