Hoe voeg je specifieke tekst in bij de cursor tijdens het opstellen van een bericht in Outlook?
Stel dat je enkele specifieke tekstreeksen hebt die vaak worden gebruikt bij het opstellen van e-mailberichten, en je wilt deze tekst automatisch invoegen op de huidige positie van de cursor in de e-mailbody, zonder ze telkens handmatig te moeten typen. In dit artikel zal ik een eenvoudige methode bespreken om deze taak snel op te lossen.
Specifieke tekst of huidige datum invoegen bij de cursor tijdens het opstellen van een bericht met VBA-code
De volgende VBA-code kan je helpen om een specifieke tekstreeks of de huidige datum op de cursorpositie in te voegen. Doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module, kopieer 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 je wilt invoegen. Als je de huidige datum wilt invoegen in plaats van de tekstreeks, wijzig dan de tekst in dit script xSel.InsertBefore Format("ExtendOffice") naar xSel.InsertBefore Format(Now, "DD/MM/YYYY").
3. Sla daarna het coderaamwerk op en sluit het, maak een nieuwe e-mail aan, en in het Berichtvenster klik je op de vervolgkeuzelijst Gebruikersgedefinieerde werkbalk voor snelle toegang en kies Meer opdrachten, zie screenshot:
4. Voer in het dialoogvenster Opties voor Outlook de volgende acties uit:
(1.) Selecteer Macros uit de vervolgkeuzelijst Opdracht kiezen;
(2.) Klik op de naam van de macro die je hebt ingevoegd;
(3.) Klik vervolgens op de knop Toevoegen om deze macro toe te voegen aan het lijstvak Gebruikersgedefinieerde werkbalk voor snelle toegang.
5. Klik daarna op de knop OK om het dialoogvenster te sluiten. Nu is het macro-icoon ingevoegd in de Gebruikersgedefinieerde werkbalk voor snelle toegang. Plaats de cursor waar je de tekst wilt invoegen en klik vervolgens op deze macroknop. De specifieke tekst wordt onmiddellijk ingevoegd, zie screenshot:
Specifieke tekst invoegen op elke locatie tijdens het opstellen van een bericht: Met de functie Automatische tekst van Kutools voor Outlook kun je een automatische tekst maken en deze vervolgens overal invoegen wanneer je een bericht opstelt, zoals je nodig hebt.  👉 Kutools voor Outlook heeft nu een gratis versie, waarvan de 70+ functies levenslang gratis zijn. Download nu de gratis versie. |
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint