Wie füge ich einen bestimmten Text am Cursor ein, wenn ich eine Nachricht in Outlook verfasse? 

Angenommen, Sie haben einige spezifische Textzeichenfolgen, die beim Verfassen der E-Mail-Nachricht häufig verwendet werden. Sie möchten den Text also automatisch an der aktuellen Position des Cursors in den E-Mail-Text einfügen, ohne sie immer wieder manuell einzugeben. In diesem Artikel werde ich über eine einfache Methode zur schnellen Lösung dieser Aufgabe sprechen.

Fügen Sie beim Verfassen einer Nachricht mit VBA-Code einen bestimmten Text oder ein aktuelles Datum am Cursor ein

Fügen Sie beim Verfassen einer Nachricht mit VBA-Code einen bestimmten Text oder ein aktuelles Datum am Cursor ein

Der folgende VBA-Code kann Ihnen helfen, eine bestimmte Textzeichenfolge oder ein aktuelles Datum an der Cursorposition einzufügen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Geben Sie einen bestimmten Text oder ein aktuelles Datum in den Cursor ein

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

Note: Im obigen Code, ExtendOffice ist der spezifische Text, den Sie einfügen möchten. Wenn Sie anstelle der Textzeichenfolge das aktuelle Datum einfügen müssen, ändern Sie bitte den Text in diesem Skript xSel.InsertBefore Format ("ExtendOffice") zu xSel.InsertBefore Format (jetzt "TT / MM / JJJJ").

3. Speichern und schließen Sie dann das Codefenster, erstellen Sie eine neue E-Mail und klicken Sie im Nachrichtenfenster auf Anpassen der Symbolleiste für den Schnellzugriff Dropdown und wählen Sie Mehr Befehl, siehe Screenshot:

4. In dem Outlook-Optionen Im Dialogfeld führen Sie bitte die folgenden Vorgänge aus:

(1.) Wählen Sie Makros von dem Wählen Sie den Befehl aus Dropdown-Liste;

(2.) Klicken Sie auf den Makronamen, den Sie eingefügt haben.

(3.) Klicken Sie dann auf Speichern Schaltfläche, um dieses Makro zum hinzuzufügen Anpassen der Symbolleiste für den Schnellzugriff Listenfeld.

5. Und dann klicken OK Klicken Sie auf die Schaltfläche, um das Dialogfeld zu schließen. Jetzt wurde das Makrosymbol in das Feld eingefügt Anpassen der Symbolleiste für den Schnellzugriff. Setzen Sie den Cursor an die Stelle, an der Sie den Text einfügen möchten, und klicken Sie dann auf diese Makroschaltfläche. Der spezifische Text wird sofort eingefügt. Siehe Screenshot:

---

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

Weiterlesen       Free Download      Bezug von MarvelClient