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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
