Il campo Body lo devi trattare diversamente.
Scrivo due righe al volo.
"memo" è l\'e-mail ricevuta. "memoFwd", come "memo", è un NotesDocument.
"body" e "bodyFwd" sono NotesRichTextItem.
Set body = memo.GetFirstItem("Body")
Set memoFwd = db.CreateDocument
Call memoFwd.replaceitemvalue("Form", "Memo")
Call memoFwd.replaceitemvalue("Importance", memo.GetItemValue("Importance"))
Call memoFwd.replaceitemvalue("SendTo", "destinatari inoltro")
Call memoFwd.replaceitemvalue("Subject", "[PREFISSO] " + memo.GetItemValue("Subject")(0))
Set bodyFwd = memoFwd.CreateRichTextItem("Body")
Call bodyFwd.AppendText("NOTA A INIZIO MEMO")
Call bodyFwd.AddNewLine(2) \' Aggiunge due righe di spazio tra la nota e il corpo del messaggio
Call bodyFwd.AppendRTItem(body)
Call bodyFwd.Update()
Call memoFwd.Send(False)
Massimo Nadalin | Devangarde
|