#1
|
|||
|
|||
Dynamic Subject Email Merge
I have a Word 2010 document linked to an Access 2010 data source. When a user clicks a button in Access, the Word document loads and performs a email merge using the below VBA code:
Private Sub Document_Open() With ActiveDocument.MailMerge .Destination = wdSendToEmail .SuppressBlankLines = True .MailSubject = "Your Refund " & ActiveDocument.MailMerge.DataSource.DataFields("Re turn_code").Value With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With End Sub However, as the .mailsubject part is not in the loop it is only retrieving the first Return Code. I have tried to integrate in the loop to no avail using this code: Dim i As Integer Private Sub Document_Open() With ActiveDocument.MailMerge .Destination = wdSendToEmail .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord i = .DataSource.DataFields.Count Do While i > 0 .MailSubject = "Your Refund " & ActiveDocument.MailMerge.DataSource.DataFields("Re turn_code").Value i = i - 1 Loop End With End With End Sub But keep receiving the message the data member (.DataSource) is not found. Thank you for any help. Regards, Michael |
Tags |
access 2010, vba, word 2010 |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Mail Merge Into Dynamic Table | Jag618 | Mail Merge | 1 | 03-04-2013 11:26 PM |
merge to excel in dynamic location | mjlaw | Mail Merge | 1 | 03-22-2012 11:16 PM |
email as pdf attachment - subject line and attachment named after mail merge | Nexus | Mail Merge | 12 | 04-13-2011 11:34 PM |
Mail merge with customised subject | mohanss | Mail Merge | 0 | 06-26-2010 10:14 AM |
getting additional characters in email subject line | namishtiwari | Outlook | 1 | 04-21-2009 11:21 PM |