Note: The other languages of the website are Google-translated. Back to English

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 la modification et la navigation par onglets dans Office et simplifiez considérablement le travail ...
Kutools for Outlook - apporte 100 fonctionnalités avancées puissantes à Microsoft Outlook
  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à plusieurs e-mails à la fois; Ajouter un message d'accueil automatique quand répondre; Ajout automatique de la date et de l'heure au sujet ...
  • Outils de fixation: Détacher automatiquement, Tout compresser, Tout renommer, Tout enregistrer automatiquement ... Rapport rapide, Compter les courriers sélectionnés, Supprimer les messages et contacts en double ...
  • Plus de 100 fonctionnalités avancées résoudre la plupart de vos problèmes dans Outlook 2010-2019 et 365. Fonctionnalités complètes Essai gratuit de 60 jours.

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


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnés...
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en double... Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés