Email to Multiple Recipients with attachment

[drball66]

I am using the following to send an email to multiple users but it will only send to two recipients no mater how many I add.
please help and thanks in advance.

Sub sendReminderMail()
ChDir "Z:\Attendance"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"Z:\Attendance\Weekly Attendance Update.pdf", OpenAfterPublish:=False


Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object




Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments




With OutLookMailItem
.To = "user@email.com"
.CC = "user2@email.com"
.CC = "user3@email.com"
.Subject = "Kansas Weekly Attendance Update"
.Body = "Please review and complete any nessacary employee coaching ."
myAttachments.Add "Z:\Attendance\Weekly Attendance Update.pdf"
.Send


End With


Set OutLookMailItem = Nothing
Set OutLookApp = Nothing


End Sub

 

[arthurbr]

Does the following help ? http://www.rondebruin.nl/win/s1/outlook/bmail5.htm

 

[daverunt]

Just use .CC once

.CC = "user2@email.com; user3@email.com; user4@email.com; etc"

 

[drball66]

Thank you daverunt I knew it had to be simple and I was over thinking it.