Comment insérer un texte spécifique au curseur lors de la composition d'un message dans Outlook? 

Supposons que vous ayez des chaînes de texte spécifiques qui sont fréquemment utilisées lors de la composition du message électronique.Vous souhaitez donc insérer automatiquement le texte à la position actuelle du curseur dans le corps du courrier sans les saisir manuellement encore et encore. Cet article, je vais 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 composition d'un message avec le code VBA

Insérer un texte spécifique ou la date actuelle au curseur lors de la composition d'un message avec le code VBA

Le code VBA suivant peut vous aider à insérer une chaîne de texte spécifique ou une date actuelle à la position du curseur, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide 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

Notes: 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 modifier le texte de ce script xSel.InsertBefore Format ("ExtendOffice") à xSel.InsertBefore Format (maintenant, "JJ / MM / AAAA").

3. Ensuite, enregistrez et fermez la fenêtre de code, créez un nouvel e-mail et dans la fenêtre Message, cliquez sur Personnaliser la barre d'outils Accès rapide descendez et choisissez Plus de commande, voir capture d'écran:

4. Dans le Options d'Outlook boîte de dialogue, veuillez effectuer les opérations suivantes:

(1.) Sélectionnez Macros du Choisissez la commande de menu déroulant;

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

(3.) Ensuite, cliquez sur Ajouter pour ajouter cette macro au Personnaliser la barre d'outils Accès rapide zone de liste.

5. Et puis, cliquez OK pour fermer la boîte de dialogue, maintenant, l'icône de macro a été insérée dans le Personnaliser la barre d'outils Accès rapide. Placez le curseur à l'endroit où vous souhaitez insérer le texte, puis cliquez sur ce bouton macro, le texte spécifique sera inséré à la fois, voir capture d'écran:

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat