Hi,
na ja, so ganz einfach ist das nicht. Das Handling von RTF-Feldern mit Script hat mich schon manchmal die letzten Nerven gekostet.
Ich hab' mal ein bisschen gebastelt und das ist dabei herausgekommen:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim maildb As NotesDatabase
Dim maildoc As NotesDocument
Dim profile As NotesDocument
Dim rtitem As NotesRichTextItem
Dim mailrtitem As NotesRichTextItem
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document
Set maildb = New NotesDatabase("","")
maildb.OpenMail
'Handle auf Profildokument mit den ganzen Vorgaben des Users in der Mail-DB
Set profile = maildb.GetProfileDocument("CalendarProfile")
'Anlegen eines neuen Dokumentes
Set maildoc = New NotesDocument(maildb)
maildoc.Form = "Memo"
maildoc.Logo = profile.DefaultLogo(0) 'Setzen des, vom User eingestellten Bildchens
maildoc.Principal = profile.Owner(0)
maildoc.Subject = "Vom " + Cstr(doc.datum(0))+ " - " +doc.nachhaken(0))
'Zugriff auf Bodyfeld im Memo
Set mailrtitem = New NotesRichTextItem( maildoc, "Body" )
'Anhängen des ersten RTF-Feldes
Set rtitem = doc.GetFirstItem("Attachments")
Call mailrtitem.AppendRTItem(rtitem)
'Einfügen von zwei Leerzeilen
Call mailrtitem.AddNewline(2)
'Anhängen des zweiten RTF-Feldes
Set rtitem = doc.GetFirstItem("Bemerkungen")
Call mailrtitem.AppendRTItem(rtitem)
'Anhängen von zwei Leerzeilen und der Signatur
Call mailrtitem.AddNewline(2)
Call mailrtitem.AppendText(profile.Signature(0))
'Speichern des Backend-Dokumentes
Call maildoc.Save(True,False)
'Öffnen im Frontend
Call workspace.EditDocument(True, maildoc)
'Löschen des Backend-Dokumentes
Call maildoc.Remove(True)
Ich hab's mal probiert und ich denke so funktioniert's wie gewünscht. Wenn du noch Info's aus anderen FEldern brauchst, kannst du die einfach zwischenrein schieben.
Axel