HTML E-Mail aus Excel erzeugen + formatübernahme
steffen
vielen dank für die Hilfe die ich hier schon erhalten habe! Ein großes Danke an
alle die Ihre Zeit hier investieren!
Jetzt zu meinem Fall;)
Ich lasse eine E-Mail aus Excel erzeugen mit folgendem Code:
Sub Mail()
Dim objOutlook As New Outlook.Application
Dim ObjMessage As MailItem
Set ObjMessage = objOutlook.CreateItem(olMailItem)
'Absätze erzeugen
Dim EmailText, EmailSignatur As String
EmailText = Replace(Range("Text"), C,hr(10), "")
EmailSignatur = Replace(Range("Signatur"), C,hr(10), "")
'E-Mail wird erzeugt
With ObjMessage
.To = TestAdresse
.Subject = Range("Betreff")
.BodyFormat = olFormatHTML
.HTMLBody = EmailSignatur
.Display
Jetzt möchte ich auch das er meine Formate aus der Excel Zelle "Text" übernimmt.z.B. Fett oder die Farbe
mit den Absätzen habe ich es hin bekommen, nur wie mache ich das mit dem Format?
Vielen Dank!
Gruß steffen
ps die Kommas oben sind nur da, damit das Forum meine texte nicht umwandelt;)