Absatz in Memofeld

[Bernie110]

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

[DF6GL]

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>")

[Bernie110]

Danke Franz, das funktioniert !
Lg Bernie