Sub SMC()
'Create an Outlook object and new mail message
Set oApp = GetObject(,"Outlook.Application")'You must ensure that Outlook is open and logged in
Set oMail = oApp.CreateItem(0)
'Set mail attributes (uncomment lines to enter attributes)
' In this example, only the attachment is being added to the mail message
With oMail
.To = "XYZ@XYZ.COM"
.CC = ActiveWorkbook.Worksheets("MailList").Range("A1").Value
.Subject = "Your PDF Attached"
.body = "Dear XX," & vbCrLf & vbCrLf & _
"I have reviewed your PDF it looks great." & vbCrLf & vbCrLf & _
"Please see attached for my comments and respond ASAP." & vbCrLf & vbCrLf & _
"Kind regards,"
.Attachments.Add ActiveWorkbook.Worksheets("MailList").Range("B1").Value
.Display
End With
End Sub