Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Merge to a new document and use only records 1 to 3

Sub MailmergeLetter()    Dim myLetter As Document    Documents.Open FileName:="C:\Letter.doc"    Set myLetter = Documents("Letter.doc")    myLetter.MailMerge.OpenDataSource Name:="C:\mydb.mdb", Connection:="TABLE Employees"          With myLetter.MailMerge               .Destination = wdSendToNewDocument             With .DataSource               .FirstRecord = 1               .LastRecord = 3              End With              .Execute          End With End Sub