send reports to multiple emails.

[skhaliq]

I have a report which is designed for a specific person. I applied criteria to view other persons. Now i want to send this to all employees but their repot. I have a table which contains criteria and email addresses.
I am using outlook .

 

[Kamolga]

Sub Mail_workbook_Outlook_1()
[COLOR=black]'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm[/COLOR]
    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 = "mr@excel.com"
'or =Range("A1") if your adresses are in a cell
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        [COLOR=black]'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")[/COLOR]
        .Send   [COLOR=black]'or use .Display[/COLOR]
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing 
[COLOR=#3366CC]End Sub
[/COLOR]