Hi All,
I have this code, which works perfectly for what I want to do.
It sends individualized emails and a matching document to each of a list of recipients.
What I can't figure out is how to add a second document to each.
Any help would be appreciated.
Sub EmailMacro()
'
' EmailMacro Macro
'
Set srange = ActiveWorkbook.Worksheets("EMAIL").Range("K13").Cells
For Each scount In ActiveWorkbook.Worksheets("EMAIL").Range(srange).Cells
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.To = ActiveWorkbook.Worksheets("EMAIL").Range("C" & scount).Cells
myItem.Subject = ActiveWorkbook.Worksheets("EMAIL").Range("D" & scount).Cells
myItem.Body = ActiveWorkbook.Worksheets("EMAIL").Range("E" & scount).Cells
Set myAttachments = myItem.Attachments
myAttachments.Add "\\golub.com\depts\HR-Share\WAGE_PACKAGE_REPORTS\REPORTS\" & ActiveWorkbook.Worksheets("EMAIL").Range("F" & scount).Cells & ".xls", _
olByValue, 1, "ok"
'myAttachments.Add "\\golub.com\depts\HR-Share\WAGE_PACKAGE_REPORTS\REPORTS\" & ActiveWorkbook.Worksheets("EMAIL").Range("G" & scount).Cells & ".xls", _
' olByValue, 1, "ok"
myItem.Send
Next
MsgBox "All Wage Package Reports have been successfully sent."
End Sub
Bookmarks