Wie fügt man beim Verfassen einer Nachricht in Outlook bestimmten Text an der aktuellen Cursorposition ein?

Angenommen, Sie verfügen über bestimmte Textbausteine, die Sie häufig beim Verfassen von E-Mails verwenden, und möchten diese automatisch an der aktuellen Cursorposition im Nachrichtentext einfügen, ohne sie jedes Mal erneut manuell eingeben zu müssen. In diesem Artikel stelle ich eine einfache Methode vor, um diese Aufgabe schnell zu lösen.

Bestimmten Text oder das aktuelle Datum per VBA-Code beim Verfassen einer Nachricht an der Cursorposition einfügen

---

Bestimmten Text oder das aktuelle Datum per VBA-Code beim Verfassen einer Nachricht an der Cursorposition einfügen

Der folgende VBA-Code ermöglicht es Ihnen, an der aktuellen Cursorposition einen bestimmten Textbaustein oder das aktuelle Datum einzufügen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden Code in das geöffnete leere Modul ein:

VBA-Code: Bestimmten Text oder aktuelles Datum an der Cursorposition einfügen

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Hinweis: Im obigen Code steht ExtendOffice für den einzufügenden Text. Möchten Sie stattdessen das aktuelle Datum einfügen, ändern Sie im Skript die Zeile xSel.InsertBefore Format(„ExtendOffice") in xSel.InsertBefore Format(Now, „DD/MM/YYYY").

3. Schließen Sie anschließend das Codefenster, erstellen Sie eine neue E-Mail, und klicken Sie im Nachrichtenfenster auf das Dropdown-Menü Schnellzugriffssymbolleiste anpassen und wählen Sie Weitere Befehle. Siehe Screenshot:

4. Führen Sie im Dialogfeld Outlook-Optionen die folgenden Schritte aus:

(1.) Wählen Sie im Dropdown-Menü Makrosunter Befehl auswählen aus;

(2.) Klicken Sie auf den Namen des Makros, das Sie eingefügt haben;

(3.) Klicken Sie anschließend auf die Schaltfläche Hinzufügen, um dieses Makro zur Liste Schnellzugriffssymbolleiste anpassen hinzuzufügen.

5. Klicken Sie danach auf die Schaltfläche OK, um das Dialogfeld zu schließen. Das Makrosymbol wurde nun in die Schnellzugriffssymbolleiste eingefügt. Platzieren Sie den Cursor an der gewünschten Position und klicken Sie auf diese Makroschaltfläche – der entsprechende Text wird sofort eingefügt. Siehe Screenshot:

---

Fügen Sie beim Verfassen einer Nachricht an beliebiger Stelle bestimmten Text ein: Mit der Kutools für Outlook-AutoText-Funktion können Sie eigenen AutoText erstellen und ihn beim Verfassen einer Nachricht jederzeit und überall gezielt einfügen. 👉 Arbeiten Sie intelligenter in Outlook!Herunterladen Kutools für Outlook, um Ihre Produktivität mit 100+ zeitsparenden Funktionen zu steigern – 30 Tage lang kostenlos!