Comment insérer un texte spécifique à l’emplacement du curseur lors de la rédaction d’un message dans Outlook ?

Imaginez que vous disposiez de certaines chaînes de texte fréquemment utilisées lors de la rédaction d’e-mails et que vous souhaitiez les insérer automatiquement à la position actuelle du curseur dans le corps du message, sans avoir à les retaper manuellement à chaque fois. Dans cet article, je vous présente une méthode simple pour accomplir cette tâche en un clin d’œil.

Insérez un texte spécifique ou la date du jour à la position du curseur lors de la rédaction d’un message à l’aide d’un code VBA

---

Insérez un texte spécifique ou la date du jour à la position du curseur lors de la rédaction d’un message à l’aide d’un code VBA

Le code VBA suivant vous permet d’insérer à la position du curseur une chaîne de texte spécifique ou la date du jour. Procédez comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vide qui s’ouvre :

Code VBA : Insérer un texte spécifique ou la date du jour à la position du curseur

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

Remarque : dans le code ci-dessus, ExtendOffice est le texte spécifique que vous souhaitez insérer. Si vous préférez insérer la date du jour au lieu de cette chaîne de texte, remplacez cette ligne du script xSel.InsertBefore Format(«ExtendOffice») par xSel.InsertBefore Format(Now, «DD/MM/YYYY»).

3. Ensuite, fermez la fenêtre de code, créez une macro, puis cliquez sur la flèche déroulante Personnaliser la barre d’outils Accès rapide dans la fenêtre de message et choisissez Autres commandes, comme illustré ci-dessous :

4. Dans la boîte de dialogue Options Outlook, effectuez les opérations suivantes :

(1.) Sélectionnez Macrosdans la liste déroulante Choisir les commandes dans;

(2.) Cliquez sur le nom de la macro que vous avez insérée ;

(3.) Cliquez ensuite sur le bouton Ajouter pour ajouter cette macro à la zone de liste Personnaliser la barre d’outils Accès rapide.

5. Cliquez ensuite sur le bouton OK pour fermer la boîte de dialogue. La macro apparaît désormais dans la barre d’outils Accès rapide. Placez le curseur à l’endroit où vous souhaitez insérer le texte, puis cliquez sur cette icône de macro : le texte spécifique sera inséré immédiatement, comme illustré ci-dessous :

---

Insérez un texte spécifique à n’importe quel emplacement lors de la rédaction d’un message : Grâce à la fonctionnalité Kutools pour Outlook Texte automatique, vous pouvez créer un texte automatique, puis l’insérer n’importe où dans vos messages, selon vos besoins. 👉 Travaillez plus intelligemment dans Outlook !Téléchargez Kutools pour Outlookpour booster votre productivité grâce à des fonctionnalités gain de temps de 100+ — gratuit pendant 30 jours !