| Embed Multiple Attachments into a RTF in a Notes Document |
Tripp W Black on 03/01/2001 at 09:38 AM |
Category: Notes Developer Tips
LotusScript, Agents
|
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim filename As String
Dim body As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = s.CurrentDatabase
Set doc = db.CreateDocument
Set body = doc.CreateRichTextItem("Body")
doc.Form = "Memo"
filename$ = Dir$("c:\data\*.txt")
Do While filename$ <> ""
Set object = body.EmbedObject(EMBED_ATTACHMENT, "", "c:\data\" & filename$)
filename$ = Dir$()
Loop
Call doc.Save(True, False)
previous page
|