Emailing to two addresses using VBA

[Agent86]

I'm using the following code to email a file upon close. How do I modify it so I can send it to two or three recipients?

ActiveWorkbook.SendMail Recipients:="myname@mybusiness.com", _
                            Subject:="Excel File"

[DonkeyOte]

Hey - well as i recall (I don't use the sendmail method) you would set the addresses up as an array, and I am not sure if XL likes you using an array unless the addresses are fixed (ie not variable - and thus never change) - but the sendmail method is pretty limited as it won't allow for a message body, just a subject.

If you want you can actually do a lot more by simply using Outlook as an object in Xl - which gives you all the options you would have if you were sending an email from Outlook.

let me know.

[Jaafar Tribak]

Hi,

As an extension to Laws10, you can use an array as follows:

Private Sub CommandButton1_Click()
    CommandButton1.TakeFocus******* = True
    ar = Array("myname@mybusiness.com", "jaafar_larache@yahoo.co.uk", "xxx@yyy.com")
    ThisWorkbook.SendMail Recipients:=ar, Subject:="Excel File"
End Sub

Also,you can use the following to send a message body as well :

Private Sub CommandButton1_Click()
    CommandButton1.TakeFocus******* = True
    Application.Dialogs(xlDialogSendMail).Show
End Sub

Note that I used the Line CommandButton1.TakeFocus******* = True to avoid a potential Error when executing the code Via a CommandButton.

Hope this helps.