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

Hvis du raskt vil sjekke eller skrive ut en liste over alle gjeldende eksisterende påminnelser i Outlook, uansett oppgavepåminnelse eller avtalepåminnelse, kan du bruke Outlook VBA. Denne artikkelen vil introdusere deg detaljert hvordan du får det.

Generelt er det ganske enkelt å se alle eksisterende påminnelser i en bestemt mappe, for eksempel alle påminnelsene i en bestemt oppgavemappe eller en bestemt kalender. Men når du ønsker å sjekke alle påminnelsene i alle Outlook-mapper samtidig, hvis du bare går tilbake til opprinnelige Outlook-funksjoner, er det umulig. Derfor må du søke etter andre tilnærminger, for eksempel 3^rd partytillegg eller VBA-koder. Her vil vi veilede deg hvordan du raskt kan alle gjeldende påminnelser med Outlook VBA.

Få raskt en liste over alle eksisterende påminnelser

1. For det første, start Outlook-applikasjonen.
2. Deretter bør du bytte til "Utvikler"-fanen. Hvis du ikke har funnet den, må du først aktivere den. Gå til "Fil"> "Alternativer"> "Tilpass bånd".
3. Deretter bør du klikke på "Visual Basic"-knappen under denne fanen.
4. Etter det vil du få tilgang til Outlook VBA-editoren. På dette tidspunktet kan du åpne en modul som ikke er i bruk eller sette inn en ny modul ved å velge "Sett inn" > "Modul".
5. Deretter bør du kopiere og lime inn følgende VBA-koder i modulen.

Sub GetAllExistingReminders()
    Dim objReminders As Reminders
    Dim objReminder As Reminder
    Dim strReminderDetails As String
    Dim objNewNote As NoteItem
 
    Set objReminders = Outlook.Application.Reminders

   'Check if any reminders exist
    If objReminders.Count = 0 Then
       MsgBox "There is no existing reminder."
    Else
       For Each objReminder In objReminders
           strReminderDetails = strReminderDetails & objReminder.Caption & " (" & TypeName(objReminder.Item) & ") ---- " & objReminder.NextReminderDate & vbCrLf
       Next objReminder
       'Display report in a new note item
       Set objNewNote = Outlook.Application.CreateItem(olNoteItem)
       With objNewNote
            .Body = "All Existing Reminders:" & vbCrLf & vbCrLf & strReminderDetails
            .Categories = "Reminder"
            .Display
            'To print out all these reminders, add ".PrintOut" line.
       End With
    End If
End Sub

6. Senere kan du klikke på "Kjør"-ikonet i verktøylinjen for å start den nye makroen.
7. Til slutt vil et nytt Outlook Note-element vises. Alle eksisterende påminnelser i Outlook vil bli inkludert i denne merknaden, som følgende skjermbilde:

OBS: Hvis du har lagt til ".PrintOut"-linjen i VBA-kodene, vil Outlook skrive ut notatelementet automatisk. Det vil se ut som bildet nedenfor:

Vær forsiktig med ondsinnede makroer

Makro er virkelig nyttig og nyttig ettersom den kan hjelpe oss med å utføre oppgavene som virker umulige. Du bør imidlertid være forsiktig med makroene fra andre, siden de kan være skadelige. Det betyr at makroene fra andre kan inneholde virus, som kan gjengi PST-korrupsjon på et blunk. Forutsatt at PST-filen din blir infisert, vil Scanpst.exe, det gratis innboksverktøyet, ikke gi noen effekter. På det tidspunktet har du ikke noe annet valg enn å bruke et kraftigere verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

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