This example merges the document named "Offer.doc" with it's attached data document. The results are sent to the electronic mail addresses stored in the EmailNames merge field, and the subject of the mail message is "Amazing Offer."
With Documents("Offer.doc").MailMerge
.MailAddressFieldName = "EmailNames"
.MailSubject = "Amazing Offer"
.Destination = wdSendToEmail
.Execute
End With