Mailmerge To Ms-Word

This code makes a text file which is supported by MS-Word mailmerge.

Put this code in a viewaction and select some documents. After clicking the
button the scripts askes you for an filename and creates a mailmerge record in
this file for each selected doc.
You can than use the file created in MS-Word as a mailmergefile.

Good luck

Ard van Leeuwen
My Way Solutions
Sub Initialize

Set session = New NotesSession

fhandle% = Freefile()
file =Inputbox("Naam van het te maken merge bestand", "Bestandsnaam")
If (file="") Then
Exit Sub
End If
filedir="C:\temp\Mergebestanden\" + file + ".doc"
Open filedir For Output As fhandle%
Print #fhandle%, "mergefieldcode1";Chr(9); "mergefieldcode2"; Chr(9)
;"mergefieldcode3"
Set db = session.currentdatabase
Set col = db.UnprocessedDocuments
'Only the selected docs are merged
Set doc = col.GetFirstDocument()
While Not(Doc Is Nothing)
Print #fhandle%, doc.NotesField1(0)+Chr(9),
doc.NotesField2(0)+Chr(9), doc.NotesField3(0)+Chr(9)
Set doc = col.GetNextDocument(doc)
Wend

Close fhandle%
End Sub
This was first published in November 2000

Dig deeper on Domino Resources - Part 7

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close