Outlook VisualBasic Script

Sub MailmergeLetter()
   Dim myLetter As Document
   Documents.Open FileName:="C:\Letter.doc"
   Set myLetter = Documents("Letter.doc")
   myLetter.MailMerge.OpenDataSource Name:="C:\store.mdb", Connection:="TABLE Employees"
End Sub