Hoe voeg ik specifieke tekst in bij de cursor bij het opstellen van een bericht in Outlook? 

Stel dat u een aantal specifieke tekstreeksen heeft die vaak worden gebruikt bij het opstellen van het e-mailbericht, dus u wilt de tekst automatisch op de huidige positie van de cursor in de hoofdtekst van de e-mail invoegen zonder ze steeds opnieuw handmatig te typen. In dit artikel zal ik het hebben over een eenvoudige methode om deze taak snel op te lossen.

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

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

De volgende VBA-code kan u helpen om een ​​specifieke tekstreeks of huidige datum op de cursorpositie in te voegen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: voeg specifieke tekst of huidige datum in 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

Note: In de bovenstaande code, ExtendOffice is de specifieke tekst die u wilt invoegen, als u de huidige datum moet invoegen in plaats van de tekstreeks, verander dan de tekst in dit script xSel.InsertBefore Format ("ExtendOffice") naar xSel.InsertBefore-indeling (nu, "DD / MM / JJJJ").

3. Sla vervolgens het codevenster op en sluit het, maak een nieuwe e-mail en klik in het berichtvenster op Pas de werkbalk Snelle toegang aan drop-down en kies Meer Command, zie screenshot:

4. In de Outlook Opties dialoogvenster, voer dan de volgende bewerkingen uit:

(1.) Selecteer Macro's van het Kies commando uit laten vallen;

(2.) Klik op de macronaam die u hebt ingevoegd;

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

5. En klik dan OK knop om het dialoogvenster te sluiten, nu is het macro-pictogram in de Pas de werkbalk Snelle toegang aan. Plaats de cursor waar u de tekst wilt invoegen en klik vervolgens op deze macroknop, de specifieke tekst wordt in één keer ingevoegd, zie screenshot:

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw