Leider wird es nicht zentriert ausgegeben...
Dim rtpStyle As NotesRichTextParagraphStyle
Set rtpStyle = session.CreateRichTextParagraphStyle
Sub ausgabe(rtnavtab,rtt,rtnav,rtitem,doc,note,anzahl,rtpStyle)
...
rtpStyle.Alignment = ALIGN_CENTER
Call rtitem.AppendParagraphStyle(rtpStyle)
Call rtitem.BeginInsert(rtnav)
If titel><db_neu.title Or anzahl=1 Then
Call rtitem.AppendDocLink( db_neu, "Datenbank - "+db_neu.title)
End If
Call rtitem.EndInsert
rtpStyle.Alignment = ALIGN_LEFT
Call rtitem.AppendParagraphStyle(rtpStyle)