Moin C_T,
wenn ich dich richtig verstanden habe, lässt sich dein Problem mit der selben Höhe durch notesrichtextitem.addnewline(1) lösen. Siehe Markierungen im Script.
Function EmailVorbereiten(Quelldoc As NotesDocument)
Call Logeintrag_Erstellen(db.Title,"Agent: BENACHRICHTIGUNG-Arbeitsunfall","EMailVorbereiten", _
"EMail wird vorbereitet")
Dim mail As notesdocument
Dim Body As notesrichtextitem
Dim richStyle As NotesRichTextStyle
'Erforderliche Daten auslesen
Call VariablenAuslesen(quelldoc)
'Mail vorbereiten
Set mail = New notesdocument(db)
mail.form = "Memo"
mail.Principal = db.title
mail.Subject = db.title + " - " & Betreff
Set Body = New NotesRichTextItem( mail, "Body" )
Set richstyle = s.CreateRichTextStyle
'variablen Einleitungstext der Mail erstellen
Call Body.AppendText (EmailText)
Call Body.AddNewLine( 2 )
........
........
'Links
Call Body.AppendText ("Verwenden Sie den folgenden Link um die Datenbank zu öffnen: ")
Call body.AppendDocLink(db,"Datenbanklink")
Call Body.AddNewLine( 1 )
Call Body.AppendText ("Verwenden Sie den folgenden Link um das Dokument zu öffnen: ")
Call Body.AppendDocLink( Quelldoc, "Dokumentlink" )
Call Body.AddNewLine( 1 )
Call Body.AppendText ("-----------------------------------------------------")
Call Body.AddNewLine( 1 )
Call Logeintrag_Erstellen(db.Title,"Agent: BENACHRICHTIGUNG-Arbeitsunfall","EMailVorbereiten", _
"EMail wird gesendet")
Call mailsenden(mail)
End Function
Was das Löschen des zum Beisipiel 2. Eintrags angeht, muss ich leider passen. Vielleicht lässt sich das Lösen, indem man alle Links bis auf den 2. neu erstellt.
Gruß
Demian