Hallo,
Richtextitems funktionieren etwas anders als 'normale' NotesItems.
Hier ein funktionierender Code:
Dim session As New NotesSession
Dim maildoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set maildoc = session.CurrentDatabase.CreateDocument
maildoc.Form = "DBMemo"
maildoc.Subject = CustomerMailSubject
maildoc.Empfaenger = myNames
maildoc.SMNummer = uismnummer
maildoc.UsedTime = 0
Set rtitem = New NotesRichTextItem(maildoc,"Body")
Call rtitem.AppendText("XX")
Call maildoc.Save(True,True)
Dim rtitemC As NotesRichTextItem
Set rtitemC = maildoc.GetFirstItem( "Body" ) '''HIER IST DAS PROBLEM NICHT MEHR