Questo il codice:
--------------------
Set uidocNewDest = uiWork.ComposeDocument(szServer, szPathDest, "MyForm",,, True )
Call uidocNewDest.Save
Set docNewDest = uidocNewDest.Document
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
|