Salvare un documento Notes con allegato in Lotus Script
Dim docNew As NotesDocument
Dim RtItemDoc As Variant
'--Istanzio il documento
Set docNew = New NotesDocument(dbPostaUscita)
'--Imposto tutti i campi che mi servono
docNew.FORM = "Allegato"
...
...
'--Creo un oggetto RichText
Set rtitemDoc = New NotesRichTextItem( docNew, "Body" )
'--Inserisco l'allegato
Call rtitemDoc.EmbedObject(EMBED_ATTACHMENT, "", "c:\temp\documento.doc")
'--Salvo
Call docNew.Save(True, True)
Leave a Reply