How to add email body when mail merge from word vba - vba

Question

Hi am trying to automate email from word through mail merge
right now my code is working but I can't able to add an email body while sending an email
please help me to sort it out
here is my code below
Private Sub Send_EmailUsingMaiIMerge_Click()
Dim Wd_App As Word.Application
Dim Wd_Doc As Word.Document
Dim Wd_MailMerge As Word.MailMerge
Dim Data_Path As String
Dim Wd_MMFNs As Word.MailMergeFieldNames
Dim Wd_MMFN As Word.MailMergeFieldName
Dim Wd_MMDFs As Word.MailMergeDataFields
Dim Wd_MMDF As Word.MailMergeDataField
Set Wd_App = Application
Set Wd_Doc = Wd_App.Documents.Open("template.docx")
Set Wd_MailMerge = Wd_Doc.MailMerge
'Get Data Path'
Data_Path = "Sheet.xlsx"
'Give mail merge type'
Wd_MailMerge.MainDocumentType = wdFormLetters
'Lets connect to data source'
Wd_MailMerge.OpenDataSource Name:=Data_Path, SQLStatement:="SELECT * FROM [Sheet1$]"
'Lets Email using Mail Merge'
'Outlook must be open and you are connected to the internet'
Dim TotalCnt As Integer
For TotalCnt = 1 To Wd_MailMerge.DataSource.RecordCount
Wd_MailMerge.DataSource.ActiveRecord = TotalCnt
Wd_MailMerge.DataSource.FirstRecord = TotalCnt
Wd_MailMerge.DataSource.LastRecord = TotalCnt
'Target Mail Address Column'
Wd_MailMerge.MailAddressFieldName = "Email"
'Add Attachment'
Wd_MailMerge.MailAsAttachment = True
'Add Subject'
Wd_MailMerge.MailSubject = "Email Subject Test"
'Add Destination'
Wd_MailMerge.Destination = wdSendToEmail
'Execute'
Wd_MailMerge.Execute False
Next TotalCnt
Wd_Doc.Close False
Set Wd_Doc = Nothing
End Sub
Using this code i can able to send bulk emails but it's getting sent without any email body i want to add more clarification before sending
please help me with a solution to add an email body or is there any other approach to archive my requirements
Thank you very much in advance

Answer 1

On the add attachment module just set it to False then it will send as the body of the email
'Target Mail Address Column'
Wd_MailMerge.MailAddressFieldName = "Email"
'Add Attachment'
Wd_MailMerge.MailAsAttachment = False
'Add Subject'
Wd_MailMerge.MailSubject = "Email Subject Test"
'Add Destination'
Wd_MailMerge.Destination = wdSendToEmail