hier ein kurzes CodeFragment:
' Bulid the message
Set doc = New NotesDocument ( db ) ' create temp doc
Set rtItem = New NotesRichTextItem ( doc, "Body")
Call rtItem.AppendRTItem (TemplateDoc.GetFirstItem("Body"))
If ( rtItem.Type = RICHTEXT ) Then
'Call rtItem.AddNewline(1)
Call rtItem.AppendDocLink ( TicketDoc, "" ) '
End If