Passer au contenu principal

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

Onglet Office - Activez l'édition et la navigation par onglets dans Microsoft Office, ce qui facilite le travail
Kutools for Outlook - Boostez Outlook avec plus de 100 fonctionnalités avancées pour une efficacité supérieure
Boostez votre Outlook 2021 - 2010 ou Outlook 365 avec ces fonctionnalités avancées. Profitez d'un essai gratuit complet de 60 jours et améliorez votre expérience de messagerie !

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.

doc renvoyer si pas de réponse 1

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.

doc renvoyer si pas de réponse 1 doc renvoyer si pas de réponse 1

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 l' 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 Sub

5. Enregistrez le code, puis revenez à l'interface principale, cliquez sur Déposez le > 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.

doc renvoyer si pas de réponse 1

doc renvoyer si pas de réponse 1

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.

doc renvoyer si pas de réponse 1

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..

doc renvoyer si pas de réponse 1

8. Cliquez Non, le rappel sera supprimé.

doc renvoyer si pas de réponse 1

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

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (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 facile 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 ProSauvegarde 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   /  Boostez votre productivité Outlook avec des vues à onglets  /  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 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, great script! How can I make this so that it replies to the email instead of sending the original email as an attachment?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations