Hello,
I have vba email mail merge code that works without issues.
Using the code below, how would I add text to the bottom of the mail merge email message?
Windows(DocName).Activate
' Do mailmerge
' Only send if an email address exists.
With ActiveDocument.MailMerge
.MainDocumentType = wdEMail
'Specify the data source here
.OpenDataSource Name:=strDataSource & "\" & DocNameCut & ".dbf", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & strDataSource & ";" & _
"Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";" & _
"Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=" _
, SQLStatement:="SELECT * FROM `" & DocNameCut & "` WHERE EMAIL > ''", SQLStatement1:="", SubType:=wdMergeSubTypeAccess
If .DataSource.RecordCount > 0 Then
.MailSubject = "Notice RE: " & .DataSource.DataFields("CLIENT").Value
.MailFormat = wdMailFormatHTML
.Destination = wdSendToEmail
.MailAddressFieldName = "EMAIL"
.SuppressBlankLines = True
With .DataSource
.MappedDataFields(wdFirstName).DataFieldIndex = .DataFields("DFNAME").Index
.MappedDataFields(wdLastName).DataFieldIndex = .DataFields("DLNAME").Index
.MappedDataFields(wdUniqueIdentifier).DataFieldIndex = .DataFields("CUSTNUM").Index
.MappedDataFields(wdAddress1).DataFieldIndex = .DataFields("DADDR1").Index
.MappedDataFields(wdCity).DataFieldIndex = .DataFields("DCITY").Index
.MappedDataFields(wdState).DataFieldIndex = .DataFields("DPROV").Index
.MappedDataFields(wdPostalCode).DataFieldIndex = .DataFields("DPCODE").Index
.MappedDataFields(wdCountryRegion).DataFieldIndex = .DataFields("DCOUNTRY").Index
.MappedDataFields(wdEmailAddress).DataFieldIndex = .DataFields("EMAIL").Index
.MappedDataFields(wdSpouseFirstName).DataFieldIndex = .DataFields("SPOUSEFNAM").Index
.MappedDataFields(wdSpouseLastName).DataFieldIndex = .DataFields("SPOUSELNAM").Index
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End If
End With
Thanks,
CJGibson