Jak rychle získat seznam odložených připomenutí v aplikaci Outlook

Poté, co odložíte připomenutí, může být pro vás trochu obtížné zjistit, co jsou odložené, mezi všemi připomenutími. V tomto článku vás nyní naučíme, jak rychle získat seznam odložených připomenutí v aplikaci Outlook.

Když se v Outlooku zobrazí připomenutí, můžete si ho buď zavřít, nebo odložit. Většinou, pokud nemáte čas se zabývat související položkou, na kterou vás připomenutí upozorní, zvolíte odložení připomenutí na určitou dobu, například na 5 minut, 1 hodinu atd. Po odložení však zjistíte, že je trochu obtížné odložená připomenutí najít. V takovém případě budete toužit po řešení, které vám umožní najít všechna odložená připomenutí najednou. Proto se s vámi níže podělíme o jeden způsob.

Získejte seznam odložených připomenutí

1. Pro začátek spusťte aplikaci Outlook.
2. Poté, co jste se dostali do hlavního okna aplikace Outlook, měli byste stisknout klávesy „Alt + F11“.
3. Následně úspěšně získáte přístup do okna editoru VBA.
4. Nyní musíte najít nepoužitý modul.
5. Dále zkopírujte a vložte následující kód VBA do tohoto modulu.

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. Poté můžete toto makro spustit kliknutím na ikonu „Spustit“ na panelu nástrojů nebo klepnutím na tlačítko „F5“.
7. Nakonec se na pozadí zobrazí nová položka poznámky. Zobrazí se jako následující snímek obrazovky:
8. Pokud si přejete tuto položku vytisknout, najdete ji ve složce „Poznámky“. Poté přejděte do nabídky „Soubor“, přepněte na kartu „Tisk“ a stiskněte tlačítko „Tisk“.

Upusťte se od nástroje Mightier Repair Tool

Jak všichni víme, Outlook je vybaven vestavěným nástrojem pro opravy. Pokud jste konfrontováni s malými problémy, můžete jej použít. Pokud se však setkáte se složitými problémy, měli byste raději využít pomoc jiných externích nástrojů, jako např DataNumen Outlook Repair. Může opravit různé problémy s aplikací Outlook a obnovit PST data s maximální lehkostí bez ohledu na to, jak extrémně je soubor PST poškozen.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkorumpovaný mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com