Schnellbaustein automatisch einsetzen

[schadre]

Hallo. Seit kurzen bin ich Nutzer von Outlook. Leider totaler Anfänger. Wir nutzen die Version 2019 in unserer Firma.
Mit dem Thema Schnellbausteine habe ich mich beschäftigt und das erstellen, bearbeiten und einfügen klappt.
Jetzt meine Frage. Gibt es eine Möglichkeit einen festgelegten Schnellbaustein automatisch in jede Mail die sich im Posteingang befindet einzufügen?
Wir machen das jetzt händisch, aber vielleicht gibt es ja einen Lösungsansatz.

Danke schon mal im Voraus.

[Fennek]

Hallo,

ja, das sollte gehen.

Hier die Kopie aus einem funktionierenden Projekt:

Code:

Dim aWD As Word.Application, Doc As Word.Document, Bkmrk As Word.Bookmark
Dim Tmpl As Word.Template, Blk As Word.BuildingBlock
dim EML as mailitem

set eml = ' richtige Mail auswählen'

Set EML = EML.Reply

EML.BodyFormat = olFormatHTML
EML.Display

Set Doc = EML.GetInspector.WordEditor
Set aWD = Doc.Application
Set Tmpl = aWD.Templates(1)
Set Blk = Tmpl.BuildingBlockEntries(ad)   '"ad": Name des Bausteins

Blk.Insert aWD.Selection.Range, True

Word als "early binding".
mfg

[schadre]

Vielen Dank Fennek. Ich bin immer wieder begeistert von eurem Fachwissen. Ich bin aber totaler Outlookneuling. Deshalb verzeih wenn ich ein bisschen doof frage;
Was genau mach ich mit deinem Code? Ist das ähnlich wie bei Excel ? 
Was meinst du mit: „ Word als early bindung?
Meine Fragen sind bestimmt peinlich ??

[Fennek]

Hallo,

der beste Rat dürfte sein einen Experten inhouse zu suchen oder einen Dienstleister zu beauftragen, der direkt vor Ort die Aufgabe besprechen und die Codes einfügen kann.

Aber ein Versuch:

"Early binding": Mit "alt-F11" wird der VBA-Editor geöffnet. In der Menü-Leiste gibt es "Verweis". Dort wird "Microsoft Word" angeklickt.

Outlook VBA is ähnlich wie Excel und der VBA-Editor identisch. Der Code gehört in ein allgemeines Modul: "Einfügen ... Modul".

Da es aber in Outlook nur ein VBA-Project gibt, kann nicht wie in Excel eine Datei kommuniziert werden.

mfg