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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
