Word-Dokument als Mailtext einfügen

Sie beantworten immer wieder ähnliche Anfragen und haben die passenden Texte längst als Word-Dokumente abgelegt? Statt jedes Mal Word zu öffnen, alles zu markieren und zu kopieren, holt dieses Makro den kompletten Inhalt eines Word-Dokuments direkt in Ihre Antwort oder in eine neue E-Mail. Formatierungen, Tabellen und Aufzählungen bleiben dabei erhalten.

1. Ziel des Makros

Das Makro besteht aus zwei Befehlen, die Sie über eine Schaltfläche oder Alt + F8 starten:

• WordTextAlsAntwort erstellt eine Antwort auf die markierte oder geöffnete E-Mail und setzt den Inhalt eines Word-Dokuments an den Anfang des Nachrichtentextes, also über Ihre Signatur und den zitierten Originaltext.
• WordTextAlsNeueMail öffnet eine neue E-Mail mit dem Inhalt des Dokuments. Ist noch kein Betreff eingetragen, wird der Dateiname als Betreff vorgeschlagen.

Das Dokument wählen Sie jeweils in einem normalen Dateidialog aus, der standardmäßig im Ordner Dokumente\Mailtexte startet. Die E-Mail wird nur angezeigt und nie automatisch gesendet. Sie können den Text also vor dem Versand noch anpassen.

2. Technische Umsetzung

Outlook verwendet für den Nachrichteneditor intern Word. Über Inspector.WordEditor erhält das Makro Zugriff auf das Word-Dokument, das hinter dem geöffneten Nachrichtenfenster steckt. Darauf lässt sich die Word-Methode Range.InsertFile anwenden, die eine Datei an einer bestimmten Stelle einfügt, genau so, als hätten Sie in Word Einfügen → Objekt → Text aus Datei gewählt.

Ablauf

1. Das Makro ermittelt die markierte oder geöffnete E-Mail (nur bei der Antwort-Variante).
2. Es erstellt die Antwort beziehungsweise eine neue E-Mail im HTML-Format und zeigt sie an. Erst ein angezeigtes Fenster stellt den Word-Editor zuverlässig bereit.
3. Über den Dateidialog von Word wählen Sie das Dokument aus.
4. Das Makro prüft, ob die Datei existiert, und fügt ihren Inhalt an Position 0 des Nachrichtentextes ein.

Kompatibilität

Der Code nutzt nur die Outlook-Objektbibliothek und spricht Word über späte Bindung (As Object) an. Sie müssen also keinen Verweis auf die Word-Bibliothek setzen. Es gibt keine Windows-API-Aufrufe; das Makro läuft daher unverändert in 32- und 64-Bit-Versionen von klassischem Outlook (Outlook 2016, 2019, 2021, 2024 und Microsoft 365). Das neue Outlook unterstützt keine VBA-Makros.

3. Vollständiger VBA-Code

Fügen Sie den folgenden Code in ein normales Modul ein (siehe Abschnitt 5). Den Startordner des Dateidialogs passen Sie bei Bedarf in der Funktion StartOrdner an.

Option Explicit

' Word-Dokument als Mailtext einfuegen
' Fuer klassisches Outlook unter Windows, 32 und 64 Bit.
' Word wird ueber spaete Bindung angesprochen, kein Verweis noetig.

Private Const DIALOG_DATEIAUSWAHL As Long = 3   ' msoFileDialogFilePicker
Private Const TITEL As String = "Word-Text einfuegen"

' Antwort auf die markierte oder geoeffnete E-Mail mit Word-Inhalt
Public Sub WordTextAlsAntwort()
    Dim original As Outlook.MailItem
    Dim antwort As Outlook.MailItem
    Dim pfad As String

    On Error GoTo Fehler
    Set original = AktuelleMail()
    If original Is Nothing Then
        MsgBox "Bitte zuerst eine E-Mail markieren oder oeffnen.", _
               vbInformation, TITEL
        Exit Sub
    End If

    Set antwort = original.Reply
    antwort.BodyFormat = olFormatHTML
    antwort.Display

    pfad = WordDateiWaehlen(antwort)
    If Len(pfad) = 0 Then Exit Sub   ' Abbruch: Antwort bleibt offen

    WordDateiEinfuegen antwort, pfad
    Exit Sub

Fehler:
    MsgBox "Fehler " & Err.Number & ": " & Err.Description, _
           vbExclamation, TITEL
End Sub

' Neue E-Mail mit Word-Inhalt
Public Sub WordTextAlsNeueMail()
    Dim neueMail As Outlook.MailItem
    Dim pfad As String

    On Error GoTo Fehler
    Set neueMail = Application.CreateItem(olMailItem)
    neueMail.BodyFormat = olFormatHTML
    neueMail.Display

    pfad = WordDateiWaehlen(neueMail)
    If Len(pfad) = 0 Then Exit Sub

    WordDateiEinfuegen neueMail, pfad
    If Len(Trim$(neueMail.Subject)) = 0 Then
        neueMail.Subject = DateinameOhneEndung(pfad)
    End If
    Exit Sub

Fehler:
    MsgBox "Fehler " & Err.Number & ": " & Err.Description, _
           vbExclamation, TITEL
End Sub

' Liefert die geoeffnete oder die erste markierte E-Mail, sonst Nothing
Private Function AktuelleMail() As Outlook.MailItem
    Dim element As Object

    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Inspector"
            Set element = Application.ActiveInspector.CurrentItem
        Case "Explorer"
            If Application.ActiveExplorer.Selection.Count > 0 Then
                Set element = Application.ActiveExplorer.Selection.Item(1)
            End If
    End Select
    On Error GoTo 0

    If Not element Is Nothing Then
        If TypeOf element Is Outlook.MailItem Then
            Set AktuelleMail = element
        End If
    End If
End Function

' Zeigt den Word-Dateidialog; liefert den Pfad oder "" bei Abbruch
Private Function WordDateiWaehlen(ByVal mail As Outlook.MailItem) As String
    Dim editor As Object
    Dim dialog As Object

    On Error GoTo Ersatz
    Set editor = mail.GetInspector.WordEditor
    Set dialog = editor.Application.FileDialog(DIALOG_DATEIAUSWAHL)

    With dialog
        .Title = "Word-Dokument fuer den Mailtext waehlen"
        .AllowMultiSelect = False
        .InitialFileName = StartOrdner()
        .Filters.Clear
        .Filters.Add "Word-Dokumente", "*.docx;*.docm;*.doc;*.rtf"
        If .Show = -1 Then WordDateiWaehlen = .SelectedItems(1)
    End With
    Exit Function

Ersatz:
    ' Falls der Dialog nicht verfuegbar ist: Pfad manuell eingeben
    WordDateiWaehlen = Trim$(InputBox( _
        "Vollstaendigen Pfad zum Word-Dokument eingeben:", _
        TITEL, StartOrdner()))
End Function

' Fuegt den Inhalt der Datei am Anfang des Nachrichtentextes ein
Private Sub WordDateiEinfuegen(ByVal mail As Outlook.MailItem, _
                               ByVal pfad As String)
    Dim editor As Object
    Dim einfuegestelle As Object

    pfad = Replace(pfad, """", "")
    If Len(Dir$(pfad)) = 0 Then
        Err.Raise vbObjectError + 1001, TITEL, _
                  "Die Datei wurde nicht gefunden: " & pfad
    End If

    Set editor = mail.GetInspector.WordEditor
    Set einfuegestelle = editor.Range(0, 0)
    einfuegestelle.InsertFile FileName:=pfad, ConfirmConversions:=False
End Sub

' Startordner des Dateidialogs: Dokumente\Mailtexte
Private Function StartOrdner() As String
    StartOrdner = Environ$("USERPROFILE") & "\Documents\Mailtexte\"
End Function

Private Function DateinameOhneEndung(ByVal pfad As String) As String
    Dim dateiname As String
    dateiname = Mid$(pfad, InStrRev(pfad, "\") + 1)
    If InStrRev(dateiname, ".") > 0 Then
        dateiname = Left$(dateiname, InStrRev(dateiname, ".") - 1)
    End If
    DateinameOhneEndung = dateiname
End Function

Die Programmstruktur wurde statisch geprüft. Testen Sie das Makro vor dem regelmäßigen Einsatz einmal mit einer E-Mail an sich selbst.

4. Code-Erklärung

Wenn der Text am Ende statt am Anfang stehen soll, ersetzen Sie editor.Range(0, 0) durch editor.Range(editor.Content.End - 1, editor.Content.End - 1). Bei Antworten landet der Text dann allerdings unter dem zitierten Original.

5. Installation

1. Ordner anlegen. Erstellen Sie unter Dokumente den Ordner Mailtexte und legen Sie dort Ihre Textbausteine als Word-Dokumente ab. Ist Ihr Dokumente-Ordner per OneDrive umgeleitet, passen Sie den Pfad in StartOrdner an.
2. VBA-Editor öffnen. Drücken Sie in Outlook Alt + F11.
3. Modul einfügen. Wählen Sie Einfügen → Modul. Ein Eintrag in ThisOutlookSession ist hier nicht nötig, weil das Makro auf kein Outlook-Ereignis reagiert.
4. Code einfügen. Kopieren Sie den vollständigen Code in das neue Modul. Steht dort bereits Option Explicit, lassen Sie die doppelte Zeile weg.
5. Prüfen und speichern. Wählen Sie Debuggen → Kompilieren von VbaProject und speichern Sie mit Strg + S.
6. Makrosicherheit. Unter Datei → Optionen → Trust Center → Einstellungen für das Trust Center → Makroeinstellungen wählen Sie „Benachrichtigungen für digital signierte Makros, alle anderen Makros deaktiviert“ und signieren das Projekt, oder für einen ersten Test „Benachrichtigungen für alle Makros“.

6. Ausführung

Über die Makroliste: Markieren Sie eine E-Mail, drücken Sie Alt + F8 und starten Sie WordTextAlsAntwort oder WordTextAlsNeueMail.

Als Schaltfläche: Unter Datei → Optionen → Menüband anpassen legen Sie auf der Registerkarte Start eine neue Gruppe an, wählen links die Kategorie Makros und fügen beide Makros hinzu. Über Umbenennen vergeben Sie sprechende Namen wie „Antwort aus Word“ und „Neue Mail aus Word“ sowie ein passendes Symbol. Alternativ fügen Sie die Makros der Symbolleiste für den Schnellzugriff hinzu; dann erreichen Sie sie auch mit Alt und der angezeigten Zifferntaste.

Möchten Sie die Antwort-Variante auch direkt im geöffneten Nachrichtenfenster nutzen, fügen Sie die Schaltfläche zusätzlich im Menüband des Lesefensters hinzu (im geöffneten Nachrichtenfenster Datei → Optionen → Menüband anpassen).

7. Fehlerbehebung

8. Erweiterungen

• Allen antworten oder weiterleiten: Reply durch ReplyAll oder Forward ersetzen.
• Feste Textbausteine: Für einen häufig genutzten Text den Dialog überspringen und den Pfad direkt übergeben, etwa WordDateiEinfuegen antwort, StartOrdner() & "Lieferzeit.docx", als eigenes Makro mit eigener Schaltfläche.
• Platzhalter ersetzen: Nach dem Einfügen mit editor.Content.Find.Execute Platzhalter wie [Name] durch original.SenderName ersetzen.
• Anrede ergänzen: Vor dem Einfügen eine Zeile wie „Guten Tag Herr …“ mit editor.Range(0, 0).InsertBefore setzen.
• Kategorie setzen: Das Original nach dem Antworten mit original.Categories = "Beantwortet" kennzeichnen.

9. Sicherheitshinweise

Das Makro liest nur die Datei, die Sie selbst auswählen, und versendet nichts eigenständig. Fügen Sie nur Dokumente aus vertrauenswürdigen Quellen ein: Felder, Verknüpfungen oder versteckter Text aus fremden Dokumenten landen sonst ungeprüft in Ihrer E-Mail. Dokumente mit Makros (.docm) werden eingefügt, ihre Makros aber nicht ausgeführt.

Aktivieren Sie nicht pauschal alle Makros, sondern signieren Sie Ihr VBA-Projekt im VBA-Editor über Extras → Digitale Signatur. Für den Einsatz im Unternehmen eignet sich ein von der IT bereitgestelltes Codesignaturzertifikat; für den privaten Rechner genügt ein mit SelfCert.exe erstelltes Zertifikat.