Outlook : comment renvoyer automatiquement un e-mail en l'absence de réponse
Lorsque vous envoyez un e-mail à votre collègue ou partenaire coopératif ou à quelqu'un et que vous avez besoin d'une réponse urgente, vous pouvez définir un paramètre de renvoi automatique de l'e-mail si la réponse n'est pas arrivée avant une heure spécifiée.
Utilisation du rappel et de VBA pour définir le renvoi automatique en l'absence de réponse
Utilisation du rappel et de VBA pour définir le renvoi automatique en l'absence de réponse
Partie 1 : définir un rappel pour rappeler dans un délai spécifié
1. Faites un clic droit sur un e-mail (du dossier Éléments envoyés) que vous souhaitez renvoyer en l'absence de réponse, dans le menu contextuel contextuel, cliquez sur Suivi > Ajouter un rappel.
2. Dans le popping Coutume dialogue, gardez le Rappel case cochée, puis dans les listes déroulantes ci-dessous, choisissez une date et une heure auxquelles vous souhaitez que la réponse arrive avant, vous pouvez également taper directement la date et l'heure dans les cases. Cliquez sur OK.
Partie 2 : Insérer un VBA pour renvoyer les e-mails si aucune réponse dans le délai spécifié
3. presse autre + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
4. Double-cliquez Cette session Outlook dans le Projet – Projet1 volet pour créer un script vierge, puis copiez et collez le code VBA ci-dessous dans le script vierge.
VBA : Renvoyer l'e-mail si aucune 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 recieved 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 Déposez votre dernière attestation > Options et en thOptions Outlook fenêtre, cliquez sur Trust Center dans le volet gauche, puis cliquez sur Paramètres du Centre pour activer le Trust Center fenêtre. Cliquez sur Paramètres de macro et assurez-vous que le Activer toutes les macros (non recommandé, le code potentiellement dangereux peut s'exécuter) l'option est sélectionnée dans la section de droite. Cliquez sur OK > OK.
6. Maintenant, si l'e-mail envoyé qui a été défini avec un rappel ne reçoit aucune réponse à l'heure spécifiée, une boîte de dialogue apparaît pour vous rappeler de renvoyer un e-mail pour faire une notification.
7. Cliquez Oui, une fenêtre de message apparaît et joint l'e-mail précédent, et vous pouvez rééditer le corps et cliquer sur Envoyer pour renvoyer l'email..
8. Cliquez Non, le rappel sera supprimé.
Notes： Si l'e-mail a reçu une réponse avant l'heure spécifiée, le rappel sera supprimé par VBA.
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
