Comment créer automatiquement le nom d'un cher expéditeur lors de la réponse à un message dans Outlook?
Lorsque vous répondez à un e-mail, vous devez taper manuellement le nom et les messages d'accueil de l'expéditeur. Pour gagner du temps et améliorer l'efficacité du travail, vous pouvez envisager de créer automatiquement le nom et les salutations d'un expéditeur cher dans Outlook. Cet article, je vais parler de quelques méthodes utiles pour résoudre cette tâche dans Outlook.
Créez automatiquement le nom et les salutations d'un cher expéditeur lors de la réponse au message avec le code VBA
Le code VBA suivant peut vous aider à insérer automatiquement le nom et les salutations d'un cher expéditeur lorsque vous répondez à un e-mail, procédez comme suit:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.
Code VBA: Insérez automatiquement le nom et les salutations d'un cher expéditeur lors de la réponse:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Ensuite, fermez Outlook et redémarrez-le pour prendre l'effet de code, et maintenant, lorsque vous répondez à un message électronique, le nom et les salutations d'un cher expéditeur sont automatiquement insérés dans le corps, voir capture d'écran:
Créez automatiquement le nom et les salutations d'un cher expéditeur lorsque vous répondez à un message avec Kutools for Outlook
Si vous avez Kutools for Outlook, Avec son Ajouter un message d'accueil lors de la réponse fonctionnalité, Outlook insérera automatiquement le nom de l'expéditeur lors de la réponse.
Après l'installation de Kutools for Outlook, fais comme ça ：
1Cliquez sur Kutools > Options, voir capture d'écran:
2. Dans le Options boîte de dialogue, sous la Répondre onglet, vérifier Ajouter un message d'accueil lors de la réponse option, puis entrez les salutations selon vos besoins, voir capture d'écran:
3. Puis clique OK pour terminer ce paramétrage, à partir de maintenant, lors de la réponse à un message, les salutations seront créées automatiquement devant le corps du message, voir capture d'écran:
Cliquez pour télécharger la version gratuite de Kutools pour Outlook maintenant !
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (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 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 / Vous rappeler lorsque des e-mails importants arrivent / 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
