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