Comment ajouter automatiquement une formule de politesse personnalisée lors d’une réponse dans Outlook ?
Habituellement, lorsque vous répondez à un message électronique dans Outlook, vous devez ajouter manuellement une formule de politesse. En réalité, le message original contient les informations du destinataire, telles que le Nom de l'expéditeur. Dans cet article, je vais vous présenter deux méthodes permettant d’ajouter automatiquement une formule de politesse personnalisée lors des réponses dans Outlook.
Ajouter automatiquement une formule de politesse personnalisée lors d’une réponse avec VBA
Ajouter automatiquement une formule de politesse personnalisée lors d’une réponse avec VBA
Le code VBA suivant ajoute automatiquement une formule de politesse personnalisée à vos réponses dans Outlook. Voici la marche à suivre :
1. Sélectionnez le message électronique auquel vous souhaitez répondre.
2. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez sur Insertion > Module, puis collez le code VBA suivant dans la nouvelle fenêtre du module.
VBA : Répondre avec une formule de politesse personnalisée
Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub4. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code VBA. Une boîte de dialogue s’ouvrira, comme illustré ci-dessous. Saisissez 1 ou 2 selon vos besoins, puis cliquez sur le bouton OK.
| Tapez 1 pour une formule de politesse incluant le nom du destinataire : | Tapez 2 pour une formule de politesse incluant l’heure de la journée : |
 |  |
Remarque : dans Outlook 2013, ce code VBA ne fonctionne pas si vous répondez aux messages depuis le volet de lecture. Cliquez ici pour savoir comment désactiver la réponse dans le volet de lecture dans Outlook 2013.
Ajouter automatiquement une formule de politesse personnalisée lors d’une réponse avec Kutools pour Outlook
Certains utilisateurs préfèrent ne pas utiliser de code VBA dans Outlook. Voici donc une deuxième méthode : l’utilitaire Formule de politesse automatique de Kutools pour Outlook ajoute facilement des formules de politesse personnalisées à tous vos messages de réponse.
Kutools pour Outlooksimplifie votre communication quotidienne par e-mail via Outlook en ajoutant des dizaines de fonctionnalités pratiques.En savoir plus Télécharger gratuitement maintenant
1. Cliquez sur Kutools > Options.
2. Dans la boîte de dialogue Options qui s’ouvre, accédez à l’onglet Réponse, cochez l’option Ajouter automatiquement une salutation lors de la rédaction, de la réponse ou du transfert d'e-mails, personnalisez la formule de politesse en incluant des espaces réservés tels que >, > ou > selon vos besoins dans la zone ci-dessous, puis cliquez sur le bouton OK.
Désormais, lorsque vous répondez à des messages dans Outlook, la formule de politesse personnalisée sera automatiquement insérée dans le corps de l’e-mail, comme illustré dans la capture d’écran suivante :
Remarque : Dans Outlook 2013, cet utilitaire ne fonctionne pas si vous répondez aux messages depuis le volet de lecture. Cliquez ici pour découvrir comment désactiver la réponse dans le volet de lecture sous Outlook 2013.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour accroître votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, au lieu de le faire dans des fenêtres séparées.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools en un seul installateur.
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi qu’Office Tab Pro, ce qui en fait la solution idéale pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un— compléments pour Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée entre les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels