Kako dobiti obavještenje ako ne dobijete odgovor na određenu e-poštu u očekivanom vremenu

Ovaj članak će vas naučiti brzom triku pomoću VBA da dozvolite Outlooku da vas automatski upita da li da pošaljete e-poruku sa obaveštenjem kada ne dobijete odgovor na određenu e-poštu u određenom vremenskom periodu.

S vremena na vrijeme, za vitalno važne e-poruke, sigurno ćete se radovati njegovim odgovorima. Drugim riječima, morate se nadati da će vam primalac moći odgovoriti što je prije moguće. U suprotnom, sve dok još niste primili odgovor u očekivanom roku, primatelju ćete ponovo poslati e-poruku s naknadnim obavještenjem. Stoga, kao odgovor na ovaj zahtjev, ovdje ćemo predstaviti metodu koja koristi VBA kako bi Outlook automatski upozorio i zatražio od vas u takvom slučaju. Čitajte dalje da biste dobili detaljne korake i kodove.

Dobijte obavještenje ako ne primite odgovor na određenu e-poštu u očekivanom vremenu

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

• Prvo kliknite desnim tasterom miša na određeni email.
• Zatim odaberite “Follow Up” > “Add Reminder”.
• U dijaloškom okviru možete podesiti vrijeme podsjetnika isto kao i određeno vrijeme u kojem želite da dobijete njegov odgovor.

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

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 makroa Outlooka da biste dozvolili digitalno potpisane makroe.
7. Na kraju restart Outlook da aktivirate novi makro. Od sada, Outlook će raditi na sljedeći način:

• Ako ste primili odgovor na određenu e-poštu prije nego što se njen podsjetnik pojavi, Outlook će automatski izbrisati oznaku i onemogućiti podsjetnik.
• Ako niste primili odgovor kada se podsjetnik aktivira, Outlook će vas pitati da li da pošaljete e-poruku s naknadnim obavještenjem. Ako odaberete “Da”, e-mail će biti poslan. Ako odaberete “Ne”, prompt će odmah nestati.

Rešite dosadne probleme sa Outlookom

Kako je Outlook sklon greškama, kako bi se spriječio Outlook korupcija, bolje je da se ne oslanjate samo na inbox alat, Scanpst.exe. Trebali biste pripremiti još jedan moćan i renomiran alat za popravku, kao npr DataNumen Outlook Repair, koji može riješiti dosadne probleme koje Scanpst.exe ne može riješiti.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql corruption i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com