Hi, so, I am using the below VBA, but I can only add one email to CC, how do I add more than one.
Private Sub CheckBox1_Click()
Dim xOutlookObj As Object
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi" & vbNewLine & vbNewLine & _
"Cost Card attached is approved from me" & vbNewLine & _
"Thanks Lynette"
On Error Resume Next
With xOutMail
.To = "Email1@Hotmail.co.uk"
.CC = "Email2@Hotmail.co.uk" & "Email3@Hotmail.co.uk"
.BCC = ""
.Subject = "Cost Card Approved"
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Thanks for any help, and apologies if this has been asked before.
Mark
Private Sub CheckBox1_Click()
Dim xOutlookObj As Object
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi" & vbNewLine & vbNewLine & _
"Cost Card attached is approved from me" & vbNewLine & _
"Thanks Lynette"
On Error Resume Next
With xOutMail
.To = "Email1@Hotmail.co.uk"
.CC = "Email2@Hotmail.co.uk" & "Email3@Hotmail.co.uk"
.BCC = ""
.Subject = "Cost Card Approved"
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Thanks for any help, and apologies if this has been asked before.
Mark