View Single Post
 
Old 10-19-2014, 04:57 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Hi toughiv,

I've been rather busy lately with Uni assignments and the like. Your code snippet seems somewhat unrelated to the macro from the tutorial. With the tutorial's approach, all you need do is to add two extra columns after the existing 'Recipient' column, to hold the CC and BCC mergefields, then make a few changes to the macros:

1. In the 'RunMerge' macro, after:
.MailAddressFieldName = "Recipient"
insert:
.CC = "CCRecipient"
.BCC = "BCCRecipient"

2. In the EmailMergeTableMaker macro, change:
j = 2
to:
j = 4
and change:
.Cell(1, 2).Range.Text = "Data"
to:
.Cell(1, 2).Range.Text = "CCRecipient"
.Cell(1, 3).Range.Text = "BCCRecipient"
.Cell(1, 4).Range.Text = "Data"

Your code snippet also suggests you're contemplating individualised email subjects. Doing that, of course presupposes you have a data field for that. If you do have such a field, it's just a matter of extending the above changes to accommodate yet another column in the mailmerge table.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote