Help please!? Multiple email recipients in VBA code

[ExcelFailure]

Hi there,

I have the following code to send the Excel workbook as an attachment:

Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
    Dim OutApp As Object
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
    With OutMail
        .To Array("someone@example.com")
        .CC = ""
        .BCC = ""
        .Subject = "Subject line"
        .Body = "Hi!"
        .Attachments.Add ActiveWorkbook.FullName
        ' You can add other files by uncommenting the following line.
        '.Attachments.Add ("C:\test.txt")
        .Display ""
        .Send
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

How can I get it to send to multiple recipients please?

Thankyou

 

[ExcelFailure]

Anyone please?

 

[jacqueslegrand]

Try to change your .To Array("someone@example.com") to .To Array("someone@example.com", "someoneelse@exemplecom", "someoneelseagain@example.com")

 

[ExcelFailure]

Ok thats sorted it - thanks a lot!