Kako dobiti obavijest ako ne primite odgovor na određenu e-poštu unutar očekivanog vremena

Ovaj će vas članak naučiti brzom triku pomoću VBA kako biste dopustili Outlooku da vas automatski upita želite li poslati e-poruku s obavijesti ako niste primili odgovor na određenu e-poštu unutar određenog vremena.

S vremena na vrijeme, za vitalno važne e-poruke, sigurno ćete se veseliti njegovim odgovorima. Drugim riječima, morate se nadati da će vam primatelj moći odgovoriti što je prije moguće. U suprotnom, sve dok još niste primili odgovor unutar očekivanog vremena, ponovno ćete poslati e-poruku s dodatnom obavijesti primatelju. Stoga, kao odgovor na ovaj zahtjev, ovdje ćemo predstaviti metodu koja koristi VBA kako bi vas Outlook automatski upozorio i pitao u takvom slučaju. Čitajte dalje da biste saznali detaljne korake i kodove.

Primite obavijest ako ne primite odgovor na određenu e-poštu unutar očekivanog vremena

1. Na samom početku start vaš Outlook.
2. Zatim trebate postaviti određeno vrijeme podsjetnika za određenu e-poštu.

• Najprije desnom tipkom miša kliknite određenu e-poštu.
• Zatim odaberite “Follow Up” > “Add Reminder”.
• U dijaloškom okviru možete postaviti vrijeme podsjetnika isto kao određeno vrijeme unutar kojeg želite primiti odgovor.

3. Nakon toga pritisnite tipke "Alt + F11" za pristup Outlook VBA uređivaču.
4. Zatim u novom prozoru otvorite projekt “ThisOutlookSession” i u njega kopirajte sljedeće kodove.

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

5. Nakon toga potpišite ovaj kod.
6. Kasnije promijenite postavku Outlook makronaredbe da biste omogućili digitalno potpisane makronaredbe.
7. Na kraju restart Outlook za aktiviranje novog makronaredbe. Od sada će Outlook raditi na sljedeći način:

• Ako ste primili odgovor na određenu e-poštu prije nego što se podsjetnik pojavi, Outlook će automatski ukloniti oznaku i onemogućiti podsjetnik.
• Ako niste primili odgovor kada se aktivira njegov podsjetnik, Outlook će vas pitati želite li poslati naknadnu obavijest e-poštom. Ako odaberete "Da", e-poruka će biti poslana. Ako odaberete “Ne”, upit će odmah nestati.

Riješite dosadne probleme s Outlookom

Budući da je Outlook sklon pogreškama, kako bi se spriječilo Outlook korupcija, bolje da se ne oslanjate samo na alat za pristiglu poštu, Scanpst.exe. Trebali biste pripremiti još jedan snažan i ugledan alat za popravak, kao što je DataNumen Outlook Repair, koji može riješiti dosadne probleme koje Scanpst.exe ne može riješiti.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql korupcija i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com