Wie fügt man bestimmten Text an der Cursorposition ein, wenn man eine Nachricht in Outlook verfasst?
Angenommen, Sie haben einige spezifische Textzeichenfolgen, die häufig verwendet werden, wenn Sie E-Mail-Nachrichten verfassen. Daher möchten Sie den Text automatisch an der aktuellen Cursorposition im Nachrichtentext einfügen, ohne ihn immer wieder manuell eingeben zu müssen. In diesem Artikel werde ich über eine einfache Methode sprechen, um diese Aufgabe schnell zu lösen.
Spezifischen Text oder das aktuelle Datum an der Cursorposition beim Verfassen einer Nachricht mit VBA-Code einfügen
Der folgende VBA-Code kann Ihnen helfen, eine bestimmte Textzeichenfolge oder das aktuelle Datum an der Cursorposition 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 kopieren und fügen Sie den folgenden Code in das geöffnete leere Modul ein:
VBA-Code: Spezifischen Text oder das aktuelle 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 ist ExtendOffice der spezifische Text, den Sie einfügen möchten. Wenn Sie stattdessen das aktuelle Datum einfügen möchten, ändern Sie bitte den Text in diesem Skript von xSel.InsertBefore Format("ExtendOffice") zu xSel.InsertBefore Format(Now, "TT/MM/JJJJ").
3. Speichern und schließen Sie dann das Codefenster, erstellen Sie eine neue E-Mail, und im Nachrichtenfenster klicken Sie auf den Dropdown-Pfeil Benutzerdefiniertes Schnellzugriff-Toolbar und wählen Weitere Befehle aus, siehe Screenshot:
4. Im Dialogfeld Outlook-Optionen führen Sie bitte die folgenden Schritte aus:
(1.) Wählen Sie Makros aus dem Dropdown-Menü Befehl auswählen;
(2.) Klicken Sie auf den Namen des Makros, das Sie eingefügt haben;
(3.) Klicken Sie dann auf die Schaltfläche Hinzufügen, um dieses Makro zur Liste Benutzerdefiniertes Schnellzugriff-Toolbar hinzuzufügen.
5. Klicken Sie anschließend auf die Schaltfläche OK, um das Dialogfeld zu schließen. Nun wurde das Makro-Symbol in die Benutzerdefinierte Schnellzugriffsleiste eingefügt. Platzieren Sie den Cursor dort, wo Sie den Text einfügen möchten, und klicken Sie dann auf diese Makro-Schaltfläche, damit wird der spezifische Text sofort eingefügt, siehe Screenshot:
Spezifischen Text an beliebiger Stelle beim Verfassen einer Nachricht einfügen: Mit der Funktion AutoText von Kutools für Outlook können Sie einen AutoText erstellen und diesen dann beliebig einfügen, während Sie eine Nachricht verfassen.  👉 Kutools for Outlook hat jetzt eine kostenlose Version, deren 70+ Funktionen lebenslang kostenlos sind. Laden Sie die kostenlose Version jetzt herunter. |
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!
📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...
📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...
📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...
🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...
