Microsoft Office Forums - View Single Post - [Solved] Mail Merging

toughiv · 10-13-2014, 04:21 AM

Hi Marco,

Long time!

I was hoping for your wizardry/ sagely advice once more...

I am now trying to use the catalog mail merge > merging the tables> Then sending the tables to multiple recipients...i.e. To & CC.

I have done a little looking around and this is what I have found so far:

Code:

With oItem 
    .Subject = mysubject 
    .body = ActiveDocument.Content 
    Set Datarange = Maillist.Tables(1).Cell(Counter, 1).Range 
    Datarange.End = Datarange.End - 1 
    .To = Datarange 
    For i = 2 To Maillist.Tables(1).Columns.Count 
        Set Datarange = Maillist.Tables(1).Cell(Counter, i).Range 
        Datarange.End = Datarange.End - 1 
        .Attachments.Add Trim(Datarange.Text), olByValue, 1 
    Next i 
    .CC = "Firstemailaddress; secondemailaddress" 
    .BCC = "Firstemailaddress; secondemailaddress" 
    .Send 
End With

Is it possible to insert this in your RunMerge Macro - so that I can have multiple coloumns in my excel spreadsheet, relating to email addresses, so that I can include a line manager etc to the email that is sent?