Ciao a tutti,
ho un problema con un richTextItem ..... praticamente mi trovo a comporre un documento dove ho un campo richtext che si chiama "com_testo", ho bisogno di copiare dentro a questo campo il valore di un altro campo sempre richtext che si trova su un altro documento.
Il mio codice funziona, ma per vedere i risultati sono costretta a salvare il nuovo documento creato e io non lo vorrei fare.
Esiste un modo per ottenere questo risultato??????
Questo è il codice :
Dim bodyMail As NotesRichTextItem
Set bodyMail = thisdoc.GetFirstItem("Body")
Dim body As NotesRichTextItem
Set body = New NotesRichTextItem( doc, "com_testo" )
Call body.AddNewline(2)
richStyle.FontSize = 9
richStyle.Italic = True
Call body.AppendStyle(richStyle)
Call body.AddNewline(1)
Call body.AppendText("TESTO :")
Call body.AddNewline(2)
Call body.AppendRTItem(bodyMail )
Call body.AddNewline(1)
Set uidoc = uiwrk.EditDocument(True, doc, False)
|