Sending email to multiple (more than 2) recipents

Is there a specific way to do this or a specific setting to change so I can send an email to multiple people? I tried listing multiple CC rows but when I did that it skipped the first CC and emailed the second. Here is the code:

Also, how do I include a distribution list?

Sub email()
'
' email Macro
' send email
'
' Keyboard Shortcut: Ctrl+Shift+E

Dim OutApp As Object
Dim OutMail As Object

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

On Error Resume Next
With OutMail
.To = "name@company"
.CC = "name@company" And "name@company"
.BCC = ""
.Subject = "Inventory Age Test"
.Body = "Today's Inventory"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Good afternoon MSP

Just send it all as one string and let outlook parse it. Try :

Please Login or Register  to view this content.

HTH

DominicB