Email PDF Macro

[Jbrook07]

Hi,
I need some help. I currently have a Macro that we use for reporting that runs and automatically PDF's the report for multiple different locations.
But what I need is a Macro to automatically send out an email of each locations reports to the desired person. I also have three to four people I need to CC depending on who I'm sending to. The title will need to change for each email as the location will be added to the title. I also want to add a message in the email and signature.

Any helps would be great, I assume I will need to create a spreadsheet with contact info for each recipient, CC list and path location of file.

Thank you

[Janos™]

I think that you can use CDO and avoid outlook entirely and use the below macro:

Dim iMsg As Object 
Dim iConf As Object 
Dim Flds As Variant 
 
Set iMsg = CreateObject("CDO.Message") 
Set iConf = CreateObject("CDO.Configuration") 
 
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields 
With Flds 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourserverhere.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' usually 25
    .Update 
End With 
 
With iMsg 
    Set .Configuration = iConf 
    .To = "receiver@whereever.com" 
    .CC = "" 
    .BCC = "" 
    .From = "you@whereever.com" 
    .Subject = "" 
    .TextBody = "" 
    .Send 
End With