Hoe voegt u specifieke tekst in op de cursorpositie tijdens het opstellen van een bericht in Outlook?

Stel dat u bepaalde tekstfragmenten hebt die u vaak gebruikt bij het opstellen van e-mails. U wilt deze tekst automatisch op de huidige cursorpositie in de e-mailtekst invoegen zonder ze telkens opnieuw handmatig te hoeven typen. In dit artikel bespreek ik een eenvoudige methode om deze taak snel uit te voeren.

Voeg specifieke tekst of de huidige datum in bij de cursor tijdens het opstellen van een bericht met VBA-code

---

Voeg specifieke tekst of de huidige datum in bij de cursor tijdens het opstellen van een bericht met VBA-code

De volgende VBA-code helpt u om een specifiek tekstfragment of de huidige datum in te voegen op de cursorpositie. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module en plak de onderstaande code in de geopende lege module:

VBA-code: Specifieke tekst of huidige datum invoegen bij de cursor

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

Opmerking: In de bovenstaande code is ExtendOffice de specifieke tekst die u wilt invoegen. Als u in plaats van deze tekst de huidige datum wilt invoegen, wijzig dan de regel xSel.InsertBefore Format(„ExtendOffice") in xSel.InsertBefore Format(Now, „DD/MM/YYYY").

3. Sluit vervolgens het codavenster, maak een nieuwe e-mail aan en klik in het berichtvenster op het vervolgkeuzemenu Snelle toegang aanpassen en kies Meer opdrachten, zie schermafbeelding:

4. Voer in het dialoogvenster Outlook-opties de volgende handelingen uit:

(1.) Selecteer Macro'sin de vervolgkeuzelijst Kies opdracht uit;

(2.) Klik op de naam van de macro die u hebt ingevoegd;

(3.) Klik vervolgens op de knop Toevoegen om deze macro toe te voegen aan het lijstvak Snelle toegang aanpassen.

5. Klik daarna op de knop OK om het dialoogvenster te sluiten. Het macro-icoon is nu toegevoegd aan de Snelle toegang aanpassen. Plaats de cursor waar u de tekst wilt invoegen en klik op deze macroknop – de specifieke tekst wordt dan direct ingevoegd, zie schermafbeelding:

---

Voeg specifieke tekst in op elke gewenste locatie tijdens het opstellen van een bericht: Met de Kutools voor Outlook's Automatische tekst-functie kunt u automatische teksten aanmaken en deze vervolgens overal invoegen tijdens het opstellen van een bericht, precies wanneer u ze nodig heeft. 👉 Werk slimmer in Outlook!Download Kutools voor Outlookom uw productiviteit een boost te geven met 100+ tijdbesparende functies — 30 dagen gratis!