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")

Call docNew.Save(True, True)

Leave a Reply

Your email address will not be published.

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>