Outlook'unuzdaki Ertelenen Hatırlatıcıların Listesini Hızlıca Nasıl Alabilirsiniz?

Hatırlatıcıları erteledikten sonra, tüm hatırlatıcılar arasında ertelenenleri bulmakta biraz zorlanabilirsiniz. Şimdi, bu makalede, Outlook'unuzda ertelenen hatırlatıcıların bir listesini nasıl hızlı bir şekilde alacağınızı öğreteceğiz.

Outlook'ta bir hatırlatıcı belirdiğinde, onu kapatmayı veya ertelemeyi seçebilirsiniz. Çoğu zaman, bir hatırlatıcı sizi uyardığında ilgili öğeyle ilgilenmek için zamanınız yoksa, hatırlatıcıyı 5 dakika, 1 saat vb. belirli bir süre için ertelemeyi seçersiniz. Ancak, erteledikten sonra, ertelenen hatırlatıcıları bulmanın biraz zor olduğunu fark edeceksiniz. Bu durumda, tüm ertelenen hatırlatıcıları tek seferde bulmanızı sağlayacak bir çözüme ihtiyaç duyacaksınız. Bu nedenle, aşağıda size bir yol göstereceğiz.

Ertelenen Hatırlatıcıların Listesini Alın

1. Öncelikle Outlook uygulamanızı başlatın.
2. Ardından, ana Outlook penceresine girdikten sonra “Alt + F11” tuşlarına basmalısınız.
3. Daha sonra, başarılı bir şekilde VBA editör penceresine erişeceksiniz.
4. Şimdi, kullanılmayan bir modül bulmalısınız.
5. Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştı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. Daha sonra araç çubuğundaki “Çalıştır” simgesine tıklayarak veya “F5” tuşuna basarak bu makroyu çalıştırabilirsiniz.
7. Sonunda, arka planda yeni bir not öğesi görüntülenecektir. Aşağıdaki ekran görüntüsü gibi görünecektir:
8. Bu öğeyi yazdırmak isterseniz, onu "Notlar" klasöründe bulabilirsiniz. Ardından, “Dosya” menüsüne gidin, “Yazdır” sekmesine geçin ve “Yazdır” düğmesine basın.

Daha Güçlü Bir Onarım Aracına güvenin

Hepimizin bildiği gibi, Outlook yerleşik bir onarım aracıyla birlikte gelir. Küçük sorunlarla karşılaşırsanız, kullanabilirsiniz. Yine de, karmaşık sorunlarla karşılaşırsanız, diğer harici araçlardan yardım alsanız iyi olur. DataNumen Outlook Repair. Çeşitli Outlook sorunlarını çözebilir ve PST'yi kurtar PST dosyasının ne kadar hasar görmüş olursa olsun, verilere son derece kolay bir şekilde erişebilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com