Hogyan kaphat értesítést, ha nem kap választ egy adott e-mailre a Várható időn belül

Ez a cikk megtanít egy gyors trükköt a VBA használatára, amellyel az Outlook automatikusan rákérdezhet, hogy küldjön-e értesítő e-mailt, ha egy adott e-mailre adott időn belül nem érkezik meg a válasz.

Időnként a létfontosságú e-mailek esetében biztosan várni fogja a válaszait. Más szóval, remélnie kell, hogy a címzett a lehető leghamarabb válaszolni tud Önnek. Ellenkező esetben mindaddig, amíg nem kapja meg a választ a várt időn belül, ismét küld egy utólagos értesítő e-mailt a címzettnek. Ezért, válaszul erre a követelményre, itt bemutatunk egy olyan módszert, amely VBA-t használ az Outlook automatikus figyelmeztetésére és felszólítására ilyen esetekben. Olvassa el a részletes lépéseket és kódokat.

Értesítést kap, ha nem kap választ egy adott e-mailre a Várható időn belül

1. A legelején start az Outlook.
2. Ezután be kell állítania egy adott emlékeztető időpontját az adott e-mailhez.

• Először kattintson a jobb gombbal az adott e-mailre.
• Ezután válassza a „Követés” > „Emlékeztető hozzáadása” lehetőséget.
• A párbeszédpanelen beállíthatja, hogy az emlékeztető időpontja megegyezzen azzal az idővel, amelyen belül meg szeretné kapni a választ.

3. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook VBA szerkesztő eléréséhez.
4. Ezután az új ablakban nyissa meg a „ThisOutlookSession” projektet, és másolja be a következő kódokat.

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. Ezt követően írja alá ezt a kódot.
6. Később módosítsa az Outlook makró beállításait, hogy engedélyezze a digitálisan aláírt makrókat.
7. Végül restart Outlook az új makró aktiválásához. Mostantól az Outlook a következőképpen fog működni:

• Ha az adott e-mailre az emlékeztető megjelenése előtt kapta meg a választ, az Outlook automatikusan törli a zászlót, és letiltja az emlékeztetőt.
• Ha nem kapta meg a választ, amikor az emlékeztető aktiválódik, az Outlook megkérdezi, hogy küldjön-e utólagos értesítő e-mailt. Ha az „Igen” lehetőséget választja, az e-mailt elküldjük. Ha a „Nem” lehetőséget választja, a prompt azonnal eltűnik.

Oldja meg a bosszantó Outlook-problémákat

Mivel az Outlook hibás, a megelőzés érdekében Az Outlook korrupciója, jobb, ha nem csak a beérkező levelek eszközére, a Scanpst.exe-re hagyatkozik. Elő kell készítenie egy másik erős és jó hírű javítóeszközt, mint pl DataNumen Outlook Repair, amely megszabadulhat azoktól a bosszantó problémáktól, amelyeket a Scanpst.exe nem tud megoldani.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com