Ciao
io farei cosė:
\'Creo il documento nuovo in questo modo
Set docNewDest = New NotesDocument (DB)
docNewDest.Form = "MyForm"
plainText = rtitemMail.GetFormattedText( False, 0 )
docNewDest.Test = plainText
Set ritmBodyDest = New NotesRichTextItem( docNewDest , "NOME2" )
\' Set ritmBodyDest = docNewDest.GetFirstItem( "NOME2" )
Forall o In rtitemMail.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:" & o.Source )
Set object = ritmBodyDest.EmbedObject ( EMBED_OBJECT, "", "c:" & o.Source)
End If
End Forall
Call docNewDest.Save (True, False)
Call ws.EditDocument (docNewDest, True)
Andrea Ferro - Lotus Notes Developer - www.work.it
|