Πώς να λάβετε γρήγορα μια λίστα με τις υπενθυμίσεις σε αναβολή στο Outlook

Μετά την αναβολή υπενθυμίσεων, ενδέχεται να δυσκολευτείτε λίγο να καταλάβετε τις αναβολή μεταξύ όλων των υπενθυμίσεων. Τώρα, σε αυτό το άρθρο, θα σας διδάξουμε πώς να λαμβάνετε γρήγορα μια λίστα με υπενθυμίσεις σε αναβολή στο Outlook.

Όταν εμφανίζεται μια υπενθύμιση στο Outlook, μπορείτε να επιλέξετε είτε να την απορρίψετε είτε να την αναβάλετε. Τις περισσότερες φορές, εάν δεν έχετε χρόνο να διαχειριστείτε το σχετικό στοιχείο όταν σας ειδοποιεί μια υπενθύμιση, θα επιλέξετε να αναβάλετε την υπενθύμιση για ένα συγκεκριμένο χρονικό διάστημα, όπως 5 λεπτά, 1 ώρα κ.λπ. Ωστόσο, μετά την αναβολή της, θα δυσκολευτείτε λίγο να βρείτε τις αναβληθείσες υπενθυμίσεις. Σε αυτήν την περίπτωση, θα χρειαστείτε μια λύση που θα σας επιτρέψει να βρείτε όλες τις αναβληθείσες υπενθυμίσεις ταυτόχρονα. Έτσι, στη συνέχεια, θα σας δείξουμε έναν τρόπο.

Λάβετε μια λίστα με τις υπενθυμίσεις σε αναβολή

1. Για αρχή, ξεκινήστε την εφαρμογή Outlook.
2. Στη συνέχεια, αφού μπείτε στο κύριο παράθυρο του Outlook, θα πρέπει να πατήσετε τα πλήκτρα "Alt + F11".
3. Στη συνέχεια, θα έχετε πρόσβαση στο παράθυρο του προγράμματος επεξεργασίας VBA με επιτυχία.
4. Τώρα, πρέπει να βρείτε μια αχρησιμοποίητη ενότητα.
5. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

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. Μετά από αυτό, μπορείτε να εκτελέσετε αυτήν τη μακροεντολή κάνοντας κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων ή πατώντας στο κουμπί "F5".
7. Τελικά, ένα νέο στοιχείο σημείωσης θα εμφανιστεί στο παρασκήνιο. Θα εμφανιστεί όπως το ακόλουθο στιγμιότυπο οθόνης:
8. Εάν θέλετε να εκτυπώσετε αυτό το αντικείμενο, μπορείτε να το εντοπίσετε στο φάκελο "Σημειώσεις". Στη συνέχεια, μεταβείτε στο μενού "Αρχείο", μεταβείτε στην καρτέλα "Εκτύπωση" και πατήστε το κουμπί "Εκτύπωση".

Επιστρέψτε σε ένα Mightier Repair Tool

Όπως όλοι γνωρίζουμε, το Outlook διαθέτει ένα ενσωματωμένο εργαλείο επισκευής. Εάν αντιμετωπίζετε μικρά προβλήματα, μπορείτε να το χρησιμοποιήσετε. Ωστόσο, εάν αντιμετωπίσετε πολύπλοκα προβλήματα, θα πρέπει καλύτερα να βοηθήσετε άλλα εξωτερικά εργαλεία, όπως DataNumen Outlook Repair. Μπορεί να διορθώσει διάφορα ζητήματα του Outlook και ανάκτηση PST δεδομένα με απόλυτη ευκολία, ανεξάρτητα από το πόσο πολύ καταστραφεί το αρχείο PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com