Outlook : Comment réenvoyer automatiquement un email en l'absence de réponse
Lorsque vous envoyez un email à un collègue, partenaire de coopération ou une autre personne et que vous avez besoin d'une réponse urgente, vous pouvez configurer un paramètre de réenvoi automatique si la réponse n'est pas arrivée avant un délai spécifié.
Utiliser le rappel et VBA pour configurer un réenvoi automatique en l'absence de réponse
Utiliser le rappel et VBA pour configurer un réenvoi automatique en l'absence de réponse
Partie 1 : définir un rappel pour être notifié à un moment précis
1. Faites un clic droit sur un email (dans le dossier Éléments envoyés) que vous souhaitez renvoyer en cas d'absence de réponse, puis dans le menu contextuel qui apparaît, cliquez sur "Besoin de suivi" > "Ajouter un rappel".
2. Dans la fenêtre "Personnalisé" qui s'affiche, laissez la case "Rappel" cochée, puis choisissez une date et une heure dans les menus déroulants ci-dessous pour indiquer quand vous souhaitez recevoir la réponse. Vous pouvez également taper directement la date et l'heure dans les champs. Cliquez sur "OK".
Partie 2 : Insérer un code VBA pour réenvoyer des emails en l'absence de réponse dans le délai imparti
3. Appuyez sur les touches "Alt" + "F11" pour activer la fenêtre "Microsoft Visual Basic for Applications".
4. Double-cliquez sur "ThisOutlookSession" dans le volet "Projet – Projet1" pour créer un script vide, puis copiez et collez le code VBA ci-dessous dans ce script vide.
VBA : Réenvoyer un email en l'absence de réponse
Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
Dim xInboxFld As Folder
Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = xInboxFld.Items
End Sub
'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xSentItems As Outlook.Items
Dim xMail As MailItem
Dim i As Long
Dim xSubject As String
Dim xItemSubject As String
Dim xSendTime As String
On Error Resume Next
Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class <> olMail Then Exit Sub
For i = xSentItems.Count To 1 Step -1
If xSentItems.Item(i).Class = olMail Then
Set xMail = xSentItems.Item(i)
xSubject = LCase(xMail.Subject)
xSendTime = xMail.SentOn
xItemSubject = LCase(Item.Subject)
If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
If Item.SentOn > xSendTime Then
With xMail
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End Sub
'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
Dim xPrompt As String
Dim xResponse As Integer
Dim xFollowUpMail As Outlook.MailItem
Dim xRcp As Recipient
On Error Resume Next
'Resend
If (Item.Class <> olMail) Then Exit Sub
xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xResponse = vbNo Then Exit Sub
Set xFollowUpMail = Application.CreateItem(olMailItem)
With xFollowUpMail
For Each xRcp In Item.Recipients
.Recipients.Add (xRcp.Address)
Next
.Recipients.ResolveAll
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
.Attachments.Add Item
.Display
End With
End Sub5. Enregistrez le code, puis revenez à l'interface principale, cliquez sur "Fichier" > "Options" et dans la fenêtre "Options Outlook", cliquez sur "Centre de confiance" dans le volet de gauche, puis sur "Paramètres du Centre de confiance" pour activer la fenêtre "Centre de confiance". Cliquez sur "Paramètres des macros" et assurez-vous que l'option "Activer toutes les macros (non recommandé ; du code potentiellement dangereux peut s'exécuter)" est sélectionnée dans la section de droite. Cliquez sur "OK" > "OK".
6. Maintenant, si l'email envoyé avec un rappel configuré ne reçoit aucune réponse lorsque l'heure spécifiée arrive, une boîte de dialogue apparaît pour vous rappeler si vous souhaitez renvoyer un email afin de faire une notification.
7. Cliquez sur "Oui", une fenêtre de message apparaît avec l'email précédent joint, et vous pouvez modifier le corps du message et cliquer sur "Envoyer" pour renvoyer l'email.
8. Cliquez sur "Non", le rappel sera supprimé.
Remarque : Si l'email a été répondu avant l'heure spécifiée, le rappel sera supprimé par VBA.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
