Hoe u een melding ontvangt als u niet binnen de verwachte tijd een antwoord op een specifieke e-mail ontvangt

Outlook-oplossingen 29 september 2025

Dit artikel leert je een snelle truc met VBA om Outlook je automatisch te laten vragen of je een notificatie-e-mail wilt verzenden wanneer je binnen een bepaalde tijd geen antwoord op een specifieke e-mail hebt ontvangen.

Soms, voor de uiterst belangrijke e-mails, zult u zeker uitkijken naar de antwoorden ervan. Met andere woorden, u moet hopen dat de ontvanger u zo snel mogelijk kan antwoorden. Anders, zolang u het antwoord nog niet binnen de verwachte tijd heeft ontvangen, stuurt u opnieuw een vervolgmelding naar de ontvanger. Daarom zullen we in reactie op deze vereiste hier een methode introduceren die VBA gebruikt om Outlook automatisch te laten waarschuwen en u in een dergelijk geval te vragen. Lees verder om de uitgebreide stappen en codes te krijgen.

Ontvang een melding als u geen antwoord op een specifieke e-mail ontvangt

Ontvang een melding als u het antwoord van een specifieke e-mail niet binnen de verwachte tijd ontvangt

  1. Vanaf het allereerste begin start uw Outlook.
  2. Vervolgens moet u een specifieke herinneringstijd instellen voor de specifieke e-mail.
  • Klik eerst met de rechtermuisknop op de specifieke e-mail.
  • Selecteer vervolgens "Vervolg"> "Herinnering toevoegen".Voeg herinnering toe aan de specifieke e-mail
  • In het dialoogvenster kunt u de herinneringstijd hetzelfde instellen als de specifieke tijd waarbinnen u een antwoord wilt ontvangen.Stel een specifieke herinnering in
  1. Druk daarna op de toets "Alt + F11" om de Outlook VBA-editor te openen.
  2. Open vervolgens in het nieuwe venster het "ThisOutlookSession" -project en kopieer de volgende codes erin.
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

'If receive the reply, clear the flag and remove the reminder
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objSentItems As Outlook.Items
    Dim objVariant As Variant
    Dim i As Long
    Dim strSubject As String
    Dim dSendTime As String
 
    Set objSentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
 
    If Item.Class = olMail Then
       For i = 1 To objSentItems.Count
           If objSentItems.Item(i).Class = olMail Then
              Set objVariant = objSentItems.Item(i)
              strSubject = LCase(objVariant.Subject)
              dSendTime = objVariant.SentOn
 
              If LCase(Item.Subject) = "re: " & strSubject Or InStr(LCase(Item.Subject), strSubject) > 0 Then
                 If Item.SentOn > dSendTime Then
                    With objVariant
                         .ClearTaskFlag
                         .ReminderSet = False
                         .Save
                    End With
                 End If
              End If
           End If
       Next i
    End If
End Sub

'Get a prompt asking if to send a notification email
Private Sub Application_Reminder(ByVal Item As Object)
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim objFollowUpMail As Outlook.MailItem
 
    'You can change the subject as per your real case
    If (Item.Class = olMail) And (LCase(Item.Subject) = "datanumen outlook repair") Then
       strPrompt = "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?"
       nResponse = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm to Send a Follow-Up Notification Email")
       If nResponse = vbYes Then
          Set objFollowUpMail = Application.CreateItem(olMailItem)
          With objFollowUpMail
               .To = Item.Recipients.Item(1).Address
               .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 If
    End If
End Sub

VBA-codes - Ontvang een melding als u het antwoord van een specifieke e-mail niet binnen de verwachte tijd ontvangt

  1. Onderteken vervolgens deze code.
  2. Wijzig later de Outlook-macro-instelling om de digitaal ondertekende macro's toe te staan.
  3. Uiteindelijk restart Outlook om de nieuwe macro te activeren. Vanaf nu werkt Outlook als volgt:
  • Als u het antwoord van de specifieke e-mail hebt ontvangen voordat de herinnering verschijnt, zal Outlook de vlag automatisch wissen en de herinnering uitschakelen.
  • Als u geen antwoord hebt ontvangen wanneer de herinnering wordt geactiveerd, zal Outlook u vragen of u een vervolgkennisgevingsmail wilt sturen. Als u "Ja" selecteert, wordt de e-mail verzonden. Als u "Nee" selecteert, verdwijnt de prompt onmiddellijk.

Los vervelende Outlook-problemen op

Omdat Outlook foutgevoelig is, om te voorkomen Outlook corruptie, kunt u beter niet alleen vertrouwen op de inbox-tool, Scanpst.exe. U moet een ander krachtig en gerenommeerd reparatietool voorbereiden, zoals DataNumen Outlook Repair, die de vervelende problemen kunnen oplossen die Scanpst.exe niet kan oplossen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.