|
Hi Zusammen,
Ich arbeite als Werkstudent gerade an einer kleinen Automatisierung von Dokumenten mit Hilfe von Bookmarks (einfügen der "Standart" Felder bei Briefen, etc.). Mit Word Vorlagen funktioniert das Ganze einwandfrei, jedoch habe ich noch Schwierigkeiten bei Outlook Vorlagen. Ein Beispiel ist folgender VBA-Input:
Sub Probezeitende_XXX_m()
Dim mOFT As Object
Dim Probezeitende_XXX_m As Object
Set mOFT = CreateObject("Outlook.Application") Set Probezeitende_XXX_m = mOFT.CreateItemFromTemplate("G:\HR\02_HR Operations\01_Vorlagen\17_E-Mail_Vorlagen_Adminomat\Probezeitende_XXX_m.oft")
With Probezeitende_XXX_m
Probezeitende_XXX_m.Activate
Probezeitende_XXX_m.bookmarks("Vorname_FK").Range.Text = Range("B35")
Probezeitende_XXX_m.bookmarks("Vorname").Range.Text = Range("B5") Probezeitende_XXX_m.bookmarks("pers_Anrede").Range.Text = Range("B7")
Probezeitende_XXX_m.bookmarks("Nachname").Range.Text = Range("B4")
Probezeitende_XXX_m.bookmarks("Eintrittsdatum").Range.Text = Range("B14") Probezeitende_XXX_m.bookmarks("Probezeitende").Range.Text = Range("B15")
End With
Set Probezeitende_XXX_m = Nothing Set
mOFT = Nothing
End Sub
Es öffnet mir die Vorlage, jedoch ohne die entsprechenden Bookmarks. Könnte mir da jemand weiterhelfen, woran das liegen könnte?
Danke für eure Mühe :)
Viele Grüße
Paul
|