Kuidas saada teatist, kui te ei saa eeldatava aja jooksul konkreetsele meilile vastust

Outlooki lahendused September 29, 2025

See artikkel õpetab teile VBA kasutamise kiiret nippi, mis võimaldab Outlookil automaatselt küsida, kas saata teavitusmeil, kui te ei ole kindla aja jooksul konkreetsele meilile vastust saanud.

Mõnikord ootate eluliselt oluliste meilide puhul kindlasti selle vastuseid. Teisisõnu peate lootma, et adressaat saab teile võimalikult kiiresti vastata. Vastasel juhul, kui te pole oodatud aja jooksul vastust saanud, saadate adressaadile uuesti e-kirja. Seetõttu tutvustame siin vastusena sellele nõudele meetodit, mis kasutab VBA-d, et panna Outlook teid sellisel juhul automaatselt hoiatama ja viipama. Täpsemate sammude ja koodide saamiseks lugege edasi.

Saate teatise, kui te ei saa konkreetsele meilile vastust

Saate teatise, kui te ei saa eeldatava aja jooksul konkreetsele meilile vastust

  1. Kohe alguses, start oma Outlooki.
  2. Seejärel peate konkreetsele meilile määrama konkreetse meeldetuletuse aja.
  • Esiteks paremklõpsake konkreetsel meilil.
  • Seejärel valige "Jälgimine" > "Lisa meeldetuletus".Lisage konkreetsele meilile meeldetuletus
  • Dialoogiboksis saate määrata meeldetuletuse aja samaks kui konkreetse aja, mille jooksul soovite selle vastuse saada.Määrake konkreetne meeldetuletus
  1. Pärast seda vajutage Outlooki VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  2. Järgmisena avage uues aknas projekt "ThisOutlookSession" ja kopeerige sinna järgmised koodid.
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 koodid – hankige teatis, kui te ei saa eeldatava aja jooksul konkreetsele meilile vastust

  1. Seejärel allkirjastage see kood.
  2. Hiljem muutke Outlooki makrosätteid digitaalselt allkirjastatud makrode lubamiseks.
  3. Lõpuks restart Outlook uue makro aktiveerimiseks. Edaspidi töötab Outlook järgmiselt.
  • Kui saite konkreetsele meilile vastuse enne selle meeldetuletuse ilmumist, kustutab Outlook lipu automaatselt ja keelab meeldetuletuse.
  • Kui te ei ole selle meeldetuletuse käivitumisel vastust saanud, küsib Outlook teilt, kas saata järelmeil. Kui valite "Jah", saadetakse e-kiri välja. Kui valite "Ei", kaob viip kohe.

Lahendage tüütud Outlooki probleemid

Kuna Outlook on veatundlik, vältimaks Outlooki korruptsioon, ärge lootke ainult postkasti tööriistale Scanpst.exe. Peaksite valmistama teise võimsa ja maineka remonditööriista, näiteks DataNumen Outlook Repair, mis võib kõrvaldada tüütud probleemid, mida Scanpst.exe lahendada ei suuda.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql korruptsioon ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.