Kaip greitai gauti „Outlook“ atidėtų priminimų sąrašą

Atidėjus priminimus jums gali būti šiek tiek sunku išsiaiškinti, kurie priminimai buvo atidėti tarp visų priminimų. Dabar šiame straipsnyje išmokysime, kaip greitai gauti snaustų priminimų sąrašą „Outlook“.

Kai „Outlook“ programoje pasirodo priminimas, galite pasirinkti jį atmesti arba atidėti. Dažniausiai, jei neturite laiko spręsti su priminimu susijusio elemento, kai jį gaunate, pasirenkate atidėti priminimą tam tikram laikui, pvz., 5 minutėms, 1 valandai ir pan. Tačiau atidėjus priminimą, pastebėsite, kad šiek tiek sunku rasti atidėtus priminimus. Tokiu atveju jums prireiks sprendimo, kuris leistų jums vienu metu rasti visus atidėtus priminimus. Todėl toliau pasidalinsime su jumis būdu.

Gaukite snaustų priminimų sąrašą

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada, patekę į pagrindinį "Outlook" langą, turėtumėte paspausti "Alt + F11" klavišų mygtukus.
3. Vėliau sėkmingai gausite prieigą prie VBA redaktoriaus lango.
4. Dabar jūs turite rasti nenaudojamą modulį.
5. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį modulį.

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. Po to galite paleisti šią makrokomandą spustelėdami piktogramą "Vykdyti" įrankių juostoje arba bakstelėdami klavišą "F5".
7. Galiausiai naujas pastabos elementas bus rodomas fone. Jis bus rodomas kaip ši ekrano kopija:
8. Jei norite atsispausdinti šį elementą, galite jį rasti aplanke „Pastabos“. Tada eikite į meniu „Failas“, perjunkite į skirtuką „Spausdinti“ ir paspauskite mygtuką „Spausdinti“.

Grįžkite į galingesnį remonto įrankį

Kaip visi žinome, „Outlook“ yra aprūpinta integruotu taisymo įrankiu. Jei susiduriate su nedidelėmis problemomis, galite ja pasinaudoti. Tačiau jei susiduriate su sudėtingomis bėdomis, geriau pasinaudokite kitomis išorinėmis priemonėmis, pvz DataNumen Outlook Repair. Jis gali išspręsti įvairias „Outlook“ problemas ir susigrąžinti PST duomenis su didžiausiu lengvumu, nesvarbu, kaip smarkiai PST failas pažeidžiamas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com