Slik får du raskt en liste over utsatte påminnelser i Outlook

Etter å ha slumret påminnelser, kan det være litt vanskelig å finne ut de slumrede påminnelsene blant alle påminnelsene. Nå, i denne artikkelen, vil vi lære deg hvordan du raskt får en liste over slumrede påminnelser i Outlook.

Når en påminnelse dukker opp i Outlook, kan du velge enten å avvise eller slumre den. Som oftest, hvis du ikke har tid til å håndtere det tilknyttede elementet når en påminnelse varsler deg, vil du velge å slumre påminnelsen i en viss tid, for eksempel 5 minutter, 1 time osv. Etter å ha slumret den, vil du imidlertid oppdage at det er litt vanskelig å finne de slumrede påminnelsene. I dette tilfellet vil du lengte etter en løsning som lar deg finne alle slumrede påminnelser på én gang. Derfor vil vi nedenfor dele en måte for deg.

Få en liste over utsatte påminnelser

1. For å begynne, start Outlook-applikasjonen din.
2. Deretter, etter å ha kommet inn i hovedvinduet i Outlook, bør du trykke på "Alt + F11" -tastene.
3. Deretter vil du få tilgang til VBA-redigeringsvinduet med suksess.
4. Nå må du finne en ubrukt modul.
5. Deretter kopierer og limer du inn følgende VBA-kode i denne modulen.

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. Etter det kan du kjøre denne makroen ved å klikke på "Kjør"-ikonet i verktøylinjen eller trykke på "F5"-tasten.
7. Til slutt vil et nytt notatelement vises i bakgrunnen. Det vil vises som følgende skjermbilde:
8. Hvis du vil skrive ut dette elementet, kan du finne det i "Notes"-mappen. Gå deretter til "Fil"-menyen, bytt til "Skriv ut" -fanen og trykk på "Skriv ut" -knappen.

Fall tilbake på et mektigere reparasjonsverktøy

Som vi alle vet, kommer Outlook utstyrt med et innebygd reparasjonsverktøy. Hvis du blir konfrontert med små problemer, kan du bruke den. Likevel, hvis du støter på komplekse problemer, bør du ta hjelp av andre eksterne verktøy, for eksempel DataNumen Outlook Repair. Det kan fikse ulike Outlook-problemer og gjenopprette PST data med største letthet, uansett hvor alvorlig PST-filen blir skadet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert korrupt mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med