VBA Oulook
23.10.2019 09:21:56
Amir
ich komme derzeit nicht weiter und würde mich freuen Ratschläge zu bekommen.
Versuche derzeit VBA mit Outlook zu kombinieren.
Sub Daten_Aus_Excel_in_Outlookvorlage()
Worksheets("manuellabsenden").Activate
Set mOFT = CreateObject("Outlook.Application")
Set mMail = mOFT.CreateItemFromTemplate("Y:\XXXXXXXXX\YYYYYYYY\Vorlage.oft")
With mMail
.To = Range("B3")
.cc = Range("C3")
.bcc = Range("D3")
.Subject = Range("E3")
.display
End With
End Sub
Soweit funktioniert auch alles.
Aber sobald ich im Text etwas hinzufügen will, wird der Text in der Vorlage gelöscht.
Text hinzugefügt habe ich es wie folgt:
With mMail
.To = Range("B3")
.cc = Range("C3")
.bcc = Range("D3")
.Subject = Range("E3")
.body = Range ("F3")
.display
End With
Habt ihr vielleicht eine Idee, wie ich diese Problem lösen kann?
ich will, dass der Text in der Vorlage enthalten bleibt und einige Sachen personenabhängig hinzufügen.
Sowas wie: Hallo XXX, Sehr geehrter Herr YYY, Sehr geehrte Frau ZZZ
Danke im Voraus