Oder so mit der NotesUIKlasse....
version = ses.NotesBuildVersion
Set profile = db.GetProfileDocument("CalendarProfile")
If Val(version) >= 359 Then
EnableSignature = profile.EnableSignature(0)
If EnableSignature = "1" Then
If profile.HasItem("Signature_Rich") Then
Call source.GotoField("Body")
Call source.ImportItem(profile, "Signature_Rich")
Call source.Fieldsettext("MailSignature", "1")
End If
End If
Else
oder
wenn's im Backend gehen soll....
RT1 = zu aktualisierendes RT Feld
RT2 = hinzuzufügendes RT Feld
1) RT1 in ein neues tmpRT1 Feld kopieren
2) RT1 löschen und mit dem RT2 Inhalt neu erstellen
3) tmpRT1 an RT1 anfügen AppendRTitem
und immer schön speichern dazwischen.
Gruß
Bernd