... Set BodyRTITEM = mail.CreateRichTextItem( "Body" ) While Not doc Is Nothing If Cdat(doc.WVDatum(0)) <= Cdat(Today) Then Call BodyRTITEM.AppendDocLink( doc, "Dokument öffnen" ) Textzeile = " - " & Sachbearbeiter & " - " & doc.KDNR(0) & " - " & doc.Kundenname(0) & " vom " & doc.NotizDatum(0) Call BodyRTITEM.AppendText( Textzeile ) Call BodyRTITEM.AddNewLine(1) ...