Comment insérer un texte spécifique au curseur lors de la rédaction d'un message dans Outlook ?
Supposons que vous ayez certaines chaînes de texte spécifiques qui sont fréquemment utilisées lors de la rédaction de messages électroniques. Vous aimeriez donc insérer ce texte à la position actuelle du curseur dans le corps du mail automatiquement, sans avoir à les retaper manuellement encore et encore. Dans cet article, je vais vous parler d'une méthode simple pour résoudre cette tâche rapidement.
Insérer un texte spécifique ou la date actuelle au curseur lors de la rédaction d'un message avec un code VBA
Le code VBA suivant peut vous aider à insérer une chaîne de texte spécifique ou la date actuelle à la position du curseur, veuillez procéder comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vierge ouvert :
Code VBA : Insérer un texte spécifique ou la date actuelle au 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 devez insérer la date actuelle au lieu de la chaîne de texte, veuillez remplacer le texte dans ce script xSel.InsertBefore Format("ExtendOffice") par xSel.InsertBefore Format(Now, "DD/MM/YYYY").
3. Ensuite, sauvegardez et fermez la fenêtre de code, créez un nouvel email, et dans la fenêtre Message, cliquez sur le menu déroulant Personnaliser la barre d'outils Accès rapide, puis choisissez Plus de commandes, voir capture d'écran :
4. Dans la boîte de dialogue Options Outlook, veuillez effectuer les opérations suivantes :
(1.) Sélectionnez Macros depuis le menu déroulant Choisir une commande depuis ;
(2.) Cliquez sur le nom de la macro que vous avez insérée ;
(3.) Ensuite, cliquez sur le Ajouter bouton pour ajouter cette macro à la liste des commandes de la barre d'outils Accès rapide personnalisée.
5. Ensuite, cliquez sur le bouton OK pour fermer la boîte de dialogue. Maintenant, l'icône de la macro a été ajoutée à la barre d'outils Accès rapide personnalisée. Placez le curseur là où vous souhaitez insérer le texte, puis cliquez sur ce bouton de macro, le texte spécifique sera inséré immédiatement, voir capture d'écran :
Insérer un texte spécifique à n'importe quel endroit lors de la rédaction d'un message : Avec la fonction Auto Texte de Kutools pour Outlook, vous pouvez créer un texte automatique, puis l'insérer n'importe où lors de la rédaction d'un message selon vos besoins.  👉 Kutools for Outlook dispose désormais d'une version gratuite, avec 70+ fonctionnalités gratuites à vie. Téléchargez la version gratuite dès maintenant. |
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
