Hogyan lehet gyorsan lekérni az elhalasztott emlékeztetők listáját az Outlookban

Az emlékeztetők elhalasztása után kissé nehéznek találhatja az összes emlékeztető közül az elhalasztottakat. Ebben a cikkben megtanítjuk, hogyan szerezheti be gyorsan az elhalasztott emlékeztetők listáját az Outlookban.

Amikor egy emlékeztető felugrik az Outlookban, választhatja az elvetést vagy a szundi funkciót. Az esetek többségében, ha éppen nincs ideje a kapcsolódó elemmel foglalkozni, amikor egy emlékeztető riasztja, kiválasztja az emlékeztető egy adott időtartamra, például 5 percre, 1 órára stb. történő szundi funkcióját. A szundi funkció használata után azonban kissé nehéznek találhatja az elhalasztott emlékeztetők megtalálását. Ebben az esetben olyan megoldásra lesz szüksége, amellyel egyszerre megtalálhatja az összes elhalasztott emlékeztetőt. Ezért a továbbiakban megosztunk egy módszert.

Szerezze meg az elhalasztott emlékeztetők listáját

1. Kezdésként indítsa el az Outlook alkalmazást.
2. Ezután, miután belépett az Outlook főablakába, meg kell nyomnia az „Alt + F11” billentyűket.
3. Ezt követően sikeresen hozzáférhet a VBA szerkesztő ablakához.
4. Most meg kell találnia egy nem használt modult.
5. Ezután másolja ki és illessze be a következő VBA-kódot ebbe a modulba.

Sub GetListofSnoozedReminders()
    Dim objReminder As Outlook.Reminder
    Dim objReminders As Outlook.Reminders
    Dim strList As String
    Dim i As Long
    Dim objNote As Outlook.NoteItem
    
    'Get all the reminders in Outlook
    Set objReminders = Outlook.Reminders
 
    i = 1
    For Each objReminder In objReminders
        'Get the snoozed reminders
        If (objReminder.OriginalReminderDate <> objReminder.NextReminderDate) = True Then
            strList = strList & i & ". " & objReminder.Caption & " (" & Replace(TypeName(objReminder.Item), "Item", "") & ")" & vbCrLf & " Snoozed to " & objReminder.NextReminderDate & vbCrLf & vbCrLf
           i = i + 1
        End If
    Next objReminder
  
    'Display the list of snoozed reminders in a Note
    Set objNote = Outlook.Application.CreateItem(olNoteItem)
    With objNote
         .Body = "Snoozed Reminders" & vbCrLf & vbCrLf & strList
         .Display
    End With
End Sub

6. Ezt követően futtathatja ezt a makrót az eszköztár „Futtatás” ikonjára kattintva vagy az „F5” billentyű megérintésével.
7. Végül egy új jegyzetelem jelenik meg a háttérben. A következő képernyőképhez hasonlóan fog megjelenni:
8. Ha ki szeretné nyomtatni ezt az elemet, keresse meg a „Megjegyzések” mappában. Ezután lépjen a „Fájl” menübe, váltson a „Nyomtatás” fülre, és nyomja meg a „Nyomtatás” gombot.

Váljon vissza egy erősebb javítószerszámra

Mint mindannyian tudjuk, az Outlook beépített javítóeszközzel rendelkezik. Ha apró problémákkal szembesül, használhatja. Mégis, ha összetett problémákkal találkozik, jobb, ha más külső eszközöket vesz igénybe, mint pl DataNumen Outlook Repair. Különféle Outlook-problémákat javíthat, és visszaállítani a PST-t adatokat a lehető legnagyobb könnyedséggel, függetlenül attól, hogy mennyire sérül meg a PST fájl.

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 korrupt mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com