ich schreibe mit unten stehenden Code eine Mail.
Mein Frage hierzu bezieht sich auf das Format des Freitextes.
Wie kann ich die folgenden Freitexte formatieren?
Freitext 1 fett
Freitext 2 rot
Freitext 3 unterstrichen
Freitext 4 fett und rot
Danke für Eure Mühe.
Viele Grüße
Marco
Private Sub CommandButton6_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
strTxt = "Sehr geehrter Herr " & Sheets("Datenbank").Range("C18") & "," & vbCrLf
strTxt = strTxt & vbCrLf
strTxt = strTxt & "Freitext 1" & "Freitext 2" & vbCrLf
strTxt = strTxt & "Freitext 3" & "Freitext 4" & vbCrLf
strTxt = strTxt & "Freitext 5" & "Freitext 6" & vbCrLf
strTxt = strTxt & "Freitext 7" & "Freitext 8" & vbCrLf
.body = strTxt
.Display
End With
End Sub