Hallo,
ich habe ein Memofeld, in welchem sich einige Absätze befinden.
Jetzt übergebe ich das Memofeld "Me.Email_Zusammenfassung" mit folgendem Code an Outlook
Dim Applikation As New Outlook.Application
Dim Mail As Outlook.MailItem
Set Mail = Applikation.CreateItem(olMailItem)
If Not IsNull(Me!Email_EMPFÄNGER) Then
Mail.To = Me!Email_EMPFÄNGER
Else
Mail.To = ""
End If
Mail.BCC = ""
Mail.Subject = Me.Email_Bereff
Mail.HTMLBody = Me.Email_Zusammenfassung
Mail.Display
Funktionier auch. Allerdings werden dann in der Email die Absätze nicht beachtet.
Gibt es da eine Möglichkeit die Absätze des Memofeldes beizubeahlten ?
danke für eure Antworten.
Lg Bernie
Hallo,
wenn Du Text an HTMLBody übergibst, dann sollte der Text im RTF, bzw. HTML-Format vor-formatiert sein.
"Absätze" (Zeilenschaltungen) im normalen Text bestehen aus (den zwei Zeichen) chr(13) & chr(10), im HTML-Format kommt der Tag "<br>" (break) zum Einsatz.
Probier mal:
Mail.HTMLBody = Replace(Me!Email_Zusammenfassung,vbCrLf, "<br>")
Danke Franz, das funktioniert !
Lg Bernie