ExcelFailure
Board Regular
- Joined
- Mar 6, 2013
- Messages
- 74
Hi there,
I have the following code to send the Excel workbook as an attachment:
How can I get it to send to multiple recipients please?
Thankyou
I have the following code to send the Excel workbook as an attachment:
Code:
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