ich hätte eine frage und hoffe auf eure Hilfe.
Ich versuche gerade mit VBA eine Mail in Outlook zu erstellen und zu versenden.
Das klappt auch gut nur eins würde ich gerne noch realisieren.
Ich möchte das ich meine Schriftfarbe und größe des Textes in der Mail ändern kann.
so das wie in meinem Beispiel die 3 zeilen eine verschiedene Farbe haben und auch verschiedene größen.
Wie mache ich das ?
Hier mein Code bis jetzt:
Sub SendMail(Adr, AdrK, Betrifft, Text, Pfad)
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = Betrifft
Mail.Body = Text
Mail.To = Adr
Mail.FlagStatus = olFlagMarked 'Mail zur Nachverfolgung kennzeichnen
Mail.FlagDueBy = Now + 10 'Datum festlegen wann Nachverfolgung ( _
Heute + 10 Tage)
Mail.Send
End Sub
Sub start()
betreff = welche & " von " & Environ("UserName") & " am " & Date ' hier Betreff für E-Mail
mail_body = "Zeile 1" & Chr(10) & "Zeile 2." & Chr(10) & "https://www.herber.de"
empf = "empfängername"
SendMail empf, "", betreff, mail_body, "testpfad ? löschen"
End Sub
vielen dank im voraus !
gruß Chris