Le code VBA suivant peut ajouter automatiquement un message d'accueil personnalisé lors de la réponse aux messages dans Outlook. Vous pouvez faire comme suit:

1. Sélectionnez le message électronique auquel vous répondrez.

2. appuie sur le autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur l' insérer > Moduleet collez le code VBA suivant dans la nouvelle fenêtre du module.

VBA: réponse avec un message d'accueil personnalisé

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 Sub

4. appuie sur le F5 Clé ou clic Courir bouton pour exécuter ce VBA. Il fera apparaître une boîte de dialogue comme ci-dessous la capture d'écran montrée. Tapez 1 ou 2 en fonction de vos besoins, puis cliquez sur OK .

Tapez 1 pour le message d'accueil avec le nom du destinataire:	Tapez 2 pour le message d'accueil avec l'heure du jour:

Notes: Dans Outlook 2013, ce code VBA ne fonctionne pas si vous répondez aux messages dans le volet de lecture. Cliquez sur ici pour savoir comment désactiver la réponse dans le volet de lecture dans Outlook 2013.

Certains utilisateurs pourraient ne pas aimer appliquer le code VBA dans Outlook. Par conséquent, j'introduis la deuxième méthode : Kutools for Outlook's Utilitaire de message d'accueil automatique ajoutera facilement un message d'accueil personnalisé dans tous les messages de réponse.

Kutools for Outlook simplifie votre communication quotidienne par e-mail via Outlook en ajoutant des dizaines de fonctionnalités pratiques. En savoir plus      Gratuit Télécharger maintenant

1. Cliquez sur l' Kutools > Options.

2. Dans la boîte de dialogue Options d'ouverture, accédez à la Répondre onglet, vérifiez le Ajouter un message d'accueil lors de la réponse option, tapez Hi < >, dans la case ci-dessous, et cliquez sur le OK .

À partir de maintenant, lorsque vous répondez aux messages dans Outlook, le message d'accueil personnalisé sera ajouté automatiquement dans le corps de l'e-mail, comme la capture d'écran suivante:

Notes: Dans Outlook 2013, cet utilitaire ne fonctionne pas si vous répondez aux messages dans le volet de lecture. Cliquez sur ici pour savoir comment désactiver la réponse dans le volet de lecture dans Outlook 2013.

Télécharger gratuitement Kutools pour Outlook