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