Slik får du et varsel hvis du ikke mottar svar på en spesifikk e-post innen forventet tid

Outlook-løsninger September 29, 2025

Denne artikkelen vil lære deg et raskt triks ved å bruke VBA for å la Outlook automatisk spørre deg om du vil sende en e-postvarsling når du ikke har mottatt svar på en bestemt e-post innen en bestemt tid.

Noen ganger, for de livsviktige e-postene, vil du definitivt se frem til svarene. Du må med andre ord håpe at mottakeren kan svare deg så raskt som mulig. Ellers, så lenge du ennå ikke har mottatt svaret innen forventet tid, vil du sende en oppfølgingsvarslings-e-post til mottakeren igjen. Derfor, som svar på dette kravet, vil vi her introdusere en metode som bruker VBA for å få Outlook til å automatisk advare og spørre deg i et slikt tilfelle. Les videre for å få de forseggjorte trinnene og kodene.

Få et varsel hvis du ikke mottar svar på en spesifikk e-post

Få et varsel hvis du ikke mottar svar på en spesifikk e-post innen forventet tid

  1. Helt i begynnelsen, start Outlook.
  2. Deretter må du angi et bestemt påminnelsestidspunkt for den spesifikke e-posten.
  • Først, høyreklikk på den spesifikke e-posten.
  • Velg deretter «Oppfølging» > «Legg til påminnelse».Legg til påminnelse i den spesifikke e-posten
  • I dialogboksen kan du stille inn påminnelsestiden til samme tid som den spesifikke tiden du vil motta svaret innen.Angi en spesifikk påminnelse
  1. Deretter trykker du på "Alt + F11"-tastene for å få tilgang til Outlook VBA-editor.
  2. Neste i det nye vinduet, åpne "ThisOutlookSession" -prosjektet og kopier følgende koder inn i det.
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-koder - Få et varsel hvis du ikke mottar svar på en spesifikk e-post innen forventet tid

  1. Deretter signerer du denne koden.
  2. Endre senere Outlook-makroinnstillingen for å tillate de digitalt signerte makroene.
  3. Etter hvert restart Outlook for å aktivere den nye makroen. Fra nå av vil Outlook fungere som følgende:
  • Hvis du har mottatt svar på den spesifikke e-posten før påminnelsen dukker opp, vil Outlook automatisk fjerne flagget og deaktivere påminnelsen.
  • Hvis du ikke har mottatt svaret når påminnelsen utløses, vil Outlook spørre deg om du vil sende en oppfølgingsvarslings-e-post. Hvis du velger "Ja", vil e-posten bli sendt ut. Hvis du velger "Nei", forsvinner forespørselen med en gang.

Løs irriterende Outlook-problemer

Som Outlook er feil utsatt, for å forhindre Outlook-korrupsjon, bør du ikke bare stole på innboksverktøyet, Scanpst.exe. Du bør forberede et annet potent og anerkjent reparasjonsverktøy, som f.eks DataNumen Outlook Repair, som kan fjerne de irriterende problemene som Scanpst.exe ikke kan løse.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.