Excel 2013 :: Trying To Run Automated Mail Merge Via Word

The database is full of customer bookings and the email side is for sending automated emails regarding There Gift aid donation.

Im trying to run an Automated mail merge from excel via word. Basically im opening an a spreadsheet which has the same information as the Mail merge data source, its a refresh-able Query from microsoft query . I want to be able to click a button that opens up Word and produces an email mail merge and sends it to my outbox. So the emails can be viewed before the final send. I am using Office 2013.

Once i have this stage working i want to eventually move on to having a field on the main spread sheet automatically fill in saying Sent with a Time Stamp.I want to send either email or print a letter depending on what Address/Email information they have.There may also be multiple bookings from the same Customer e.g Restaurant and house booking, which will show separately, and i want to some how have a condition that it puts all the customers Bookings onto one mail merge letter, instead of sending 3 separate letters to one customer.

This is my code so far:

VB:
Sub OpenWord()
'Setting up Word Application Dim wdApp as word.application
On Error Resume Next

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

[Code] .....