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
|