Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Outlook
  • Comment créer automatiquement le nom d'un cher expéditeur lors de la réponse à un message dans Outlook?

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

Créez automatiquement le nom et les salutations d'un cher expéditeur lors de la réponse au message avec Kutools for 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

doc auto cher expéditeur nom 1

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:

doc auto cher expéditeur nom 2


Créez automatiquement le nom et les salutations d'un cher expéditeur lors de la réponse au message avec Kutools for Outlook

Si vous avez Kutools pour 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.

Kutools pour Outlook : avec plus de 100 compléments Outlook pratiques, essai gratuit sans limitation dans 60 jours. 

Après l'installation de Kutools pour Outlook, fais comme ça :

1Cliquez sur Kutools > Options, voir capture d'écran:

doc auto cher expéditeur nom 3

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:

doc auto cher expéditeur nom 4

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:

doc auto cher expéditeur nom 5

Cliquez pour télécharger Kutools pour Outlook et un essai gratuit maintenant!


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Chère équipe,

Cependant, si j'ai configuré la configuration ci-dessus, si je réponds à un e-mail qui a plusieurs destinataires dans le À, le message d'accueil n'est pas par défaut. Comment puis-je y parvenir ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Wesley,
Oui, comme vous l'avez dit, s'il y a plusieurs destinataires dans le champ À, le message d'accueil ne sera pas inséré par défaut.
Ce commentaire a été minimisé par le modérateur sur le site
Salut.
Que dois-je modifier dans le code VBA pour inclure uniquement le prénom et omettre le "(s)" après Cher ?
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut.
Que dois-je modifier dans le code VBA pour inclure uniquement le prénom et omettre le "(s)" après Cher ?
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Mat,
Pour résoudre votre problème, le code VBA suivant peut vous rendre service :
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 xRcpName As String
  Dim xRecipient As Recipient
  Dim xContactItem As ContactItem
  Dim xExUser As ExchangeUser
  On Error Resume Next
  If Item.Class <> olMail Then Exit Sub
  Set xReplyMail = Item
  xSenderName = ""
  xRcpName = ""
  For Each xRecipient In xReplyMail.Recipients
    Set xExUser = Nothing
    Set xContactItem = Nothing
    If xRecipient.AddressEntry.AddressEntryUserType < 6 Then
      Set xExUser = xRecipient.AddressEntry.GetExchangeUser
    Else
      Set xContactItem = xRecipient.AddressEntry.GetContact
    End If
    If Not xExUser Is Nothing Then
      If xSenderName = "" Then
        xSenderName = xExUser.FirstName
        If xSenderName = "" Then
          xSenderName = xRecipient.Name
        End If
      Else
        xSenderName = xSenderName & ", " & xExUser.FirstName
        If xExUser.FirstName = "" Then
          xSenderName = xSenderName & xRecipient.Name
        End If
      End If
    ElseIf Not xContactItem Is Nothing Then
      If xSenderName = "" Then
        xSenderName = xContactItem.FirstName
        If xSenderName = "" Then
          xSenderName = xRecipient.Name
        End If
      Else
        xSenderName = xSenderName & ", " & xContactItem.FirstName
        If xRecipient.FirstName = "" Then
          xSenderName = xSenderName & xRecipient.Name
        End If
      End If
    Else
      If xSenderName = "" Then
        xSenderName = xRecipient.Name
      Else
        xSenderName = xSenderName & ", " & xRecipient.Name
      End If
    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

S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour
Merci pour les suggestions, même si cela ne fonctionne pas. Je souhaite n'inclure que le prénom et omettre le "(s)" après Cher ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Mat,
Le code ci-dessus fonctionne bien.
Tout d'abord, vous devez vous assurer que l'adresse du destinataire a été ajoutée dans le dossier Contact de votre Outlook.
Si le destinataire n'est pas dans le dossier Contact, lorsque vous appliquez ce code, le nom complet sera affiché.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour

Merci pour votre réponse! Je vais ajouter des contacts à mon dossier. Je me demandais s'il existait un moyen de toujours afficher uniquement le prénom, même sans contacts dans mon dossier. Pour le contexte, je travaille dans une grande université et il serait difficile et long de trouver tous les membres du personnel individuellement.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL