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

Opmerking:: 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 de 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:

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...