Outlook-da Ertələnmiş Xatırlatmaların siyahısını necə tez əldə etmək olar

Xatırlatmaları mürgülədikdən sonra bütün xatırlatmalar arasından mürgüləyənləri müəyyən etmək bir az çətin ola bilər. İndi bu məqalədə sizə Outlook-da mürgüləmiş xatırlatmaların siyahısını necə tez əldə etməyi öyrədəcəyik.

Outlook-da xatırlatma göründüyü zaman onu ləğv etməyi və ya təxirə salmağı seçə bilərsiniz. Əksər hallarda, xatırlatma sizə xəbərdarlıq etdikdə əlaqəli elementlə işləmək üçün vaxtınız yoxdursa, xatırlatmanı müəyyən bir müddətə, məsələn, 5 dəqiqə, 1 saat və s. təxirə salmağı seçəcəksiniz. Lakin, təxirə saldıqdan sonra təxirə salınmış xatırlatmaları tapmaq bir az çətin olacaq. Bu halda, bütün təxirə salınmış xatırlatmaları bir anda tapmağa imkan verən bir həll yolu axtaracaqsınız. Beləliklə, bundan sonra sizinlə bir yol paylaşacağıq.

Mürgülə edilmiş Xatırlatmaların Siyahısını əldə edin

1. Başlamaq üçün Outlook tətbiqinizi işə salın.
2. Sonra, əsas Outlook pəncərəsinə daxil olduqdan sonra "Alt + F11" düymələrini basmalısınız.
3. Sonradan VBA redaktoru pəncərəsinə uğurla giriş əldə edəcəksiniz.
4. İndi istifadə olunmamış modulu tapmalısınız.
5. Sonra, aşağıdakı VBA kodunu bu modula köçürün və yapışdırın.

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. Bundan sonra, alətlər panelindəki "Çalış" simgesini və ya "F5" düyməsini sıxaraq bu makrosunu işə sala bilərsiniz.
7. Nəhayət, fonda yeni qeyd elementi görünəcək. Aşağıdakı ekran görüntüsü kimi görünəcək:
8. Bu elementi çap etmək istəyirsinizsə, onu “Qeydlər” qovluğunda tapa bilərsiniz. Sonra "Fayl" menyusuna keçin, "Çap et" sekmesine keçin və "Çap et" düyməsini basın.

Mightier Repair Tool-a qayıdın

Hamımızın bildiyimiz kimi, Outlook daxili təmir aləti ilə təchiz edilmişdir. Kiçik problemlərlə qarşılaşsanız, ondan istifadə edə bilərsiniz. Bununla belə, mürəkkəb problemlərlə qarşılaşsanız, digər xarici vasitələrdən, məsələn, kömək etmək daha yaxşıdır DataNumen Outlook Repair. Müxtəlif Outlook problemlərini həll edə bilər və PST bərpa edin PST faylı nə qədər zədələnsə də, məlumatları maksimum dərəcədə asanlıqla bərpa edin.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc pozulmuş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com