[X]My Assistant

[andywal6]

Hey Guys
I've cobbled together the Macro below to Merge word doc and send out as html email.
The email address is one of the merge fields called 'CustEmail' but am having trouble with the code reference.
The code after '.MailAddressFieldName'
It's just a little mixed up.
Can anyone help me to sort it out.
Many thanks for viewing.

CODE

Sub SendMergedDocByEmail()

    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .MailAddressFieldName = ActiveDocument.MailMerge.DataSource.DataFields("CustEmail").Value   '**This bit!**
        .MailSubject = "Your Documents as promised"
        .SuppressBlankLines = True
        .MailAsAttachment = False
        .MailFormat = wdMailFormatHTML
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
End Sub

[June7]

Is this code in Access module? Not seeing data source opened.

Following appears to be a good example https://rtmccormick.com/2015/11/23/automati...VBA-and-access/

[andywal6]

HI June7
It will be a Macro in Word Normal template, called by an icon in the QATB.
Andy

[June7]

The only example I can find simply references the field name:

.MailAddressFieldName = "CustEmail"

[andywal6]

Many thanks June7

All done now and the final Macro is below.

CODE

Sub SendMergedDocByEmail()
    '*** Macro to Automate Merge and Send by Email ***
    '*** (CustEmail) on line 4 is the name of the merge field in your document ***
    Dim strSend
    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .MailAddressFieldName = "CustEmail"
        strSend = InputBox("Enter a Subject line or Click [OK] to accept the Default", "Enter a Subject line", "Your Documents as promised")
        If strSend = "" Then Application.Quit SaveChanges:=wdDoNotSaveChanges
        .MailSubject = strSend
        .SuppressBlankLines = True
        .MailAsAttachment = False
        .MailFormat = wdMailFormatHTML
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
    Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub

Regards
Andy.........