Navigation:  DominoPDF > Sample Code > DominoPDF - Mailing PDF Example

Once you have created your PDF output via DominoPDF you may wish to mail the PDF file via Notes mail. Mailing an attachment can be carried out via LotusScript and an example is below.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim rdoc As NotesDocument

Dim rt As NotesRichTextItem

Dim object As NotesEmbeddedObject

 

Set db = session.CurrentDatabase

Set rdoc = db.createdocument

 

rdoc.form = "Memo"

rdoc.subject = "PDF"

 

Set rt = New NotesRichTextItem (rdoc , "Body" )

Call rt.addnewline(2)

Call rt.appendtext("Here's your attachment --> ")

 

Set object = rt.EmbedObject( EMBED_ATTACHMENT, "", "c:\test.pdf")

Call rt.addnewline(2)

 

rdoc.sendto = "mail@primeapple.co.uk"

Call rdoc.send(True)