Makro zu Erstellung von E-Mails
E-Mails
ich brauche Eure Hilfe. Im Forum fand ich eine Makro-Vorlage zur Erstellung von E-Mails. So weit so gut. Als Mail-Text kann man leider jeweils nur eine Zelle aus Excel entnehmen. Mehrere Zellen aus Excel müssen dann für die Text-Einstellung ins E-Mail hintereinander eingegeben werden.
Auszug aus dem Makro:
(Variablenvergabe in Excel)
.
.
Textkörper1 = Range("b8")
Textkörper2 = Range("a16")
Textkörper3 = Range("a17")
Textkörper4 = Range("a19")
Textkörper5 = Range("a21")
.
.
Set OleApp = CreateObject("Outlook.Application")
With OleApp.CreateItem(0)
.
.
.HTMLBody = (Textkörper1) & (Textkörper2) & (Textkörper3) & (Textkörper4) & (Textkörper5)
.
.
End With
.
.
Leider werden die Textkörper in Outlook einfach hintereinander - ohne Absätze - eingestellt. Meine Frage hierzu: Wie kann ich Outlook dazu veranlassen, nach jedem Textkörper einen Absatz einzufügen?
Vielen Dank für Eure Hilfe.