Gibt es in Outlook2010 eine Möglichkeit, die aktuell eingeschlafenen Erinnerungen anzuzeigen?


15

Gibt es in Outlook 2010 eine Möglichkeit, eine Liste der aktuell gesperrten Elemente aufzurufen? Nehmen wir zum Beispiel an, ich habe vor zwei Wochen eine Erinnerung festgelegt, die am Freitag für ein wichtiges Mittagessen am folgenden Montag auftaucht (ich möchte gern an Montagaufgaben vor dem Wochenende erinnert werden). Wenn die Erinnerung am Freitag auftaucht, schlafe ich drei Tage lang, damit sie am Montag kurz vor dem Mittagessen wieder auftaucht. Dann rollt der Montag herum und mein Gedächtnis ist verschwommen und ich bin ein bisschen paranoid, dass ich die Erinnerung am Freitag versehentlich abgewiesen habe, anstatt richtig zu dösen. Ich kann den ursprünglichen Termin immer noch in meinem Kalender sehen, aber ich muss sicherstellen, dass die Erinnerung tatsächlich angezeigt wird, wenn ich dies erwarte, damit ich mein Meeting nicht verpasse.

Gibt es in Outlook 2010 eine Möglichkeit, eine Liste der Erinnerungen aufzurufen, die derzeit gesperrt sind? Dies ist auch in Fällen hilfreich, in denen ich eine Aufgabe erledige, deren Erinnerung ich bis zu einem späteren Zeitpunkt geduscht habe, und jetzt die geduschte Erinnerung aufrufen und abbrechen möchte.

Antworten:


9
Sub SnoozedReminders()

' http://www.jpsoftwaretech.com/check-your-outlook-reminders-in-vba/

Dim MyReminder As Outlook.Reminder
Dim MyReminders As Outlook.Reminders
Dim Report As String
Dim i As Long

Set MyReminders = Outlook.Reminders

i = 0

For Each MyReminder In MyReminders

    If HasReminderFired(MyReminder) = True Then
        i = i + 1
        Report = Report & i & ": " & MyReminder.Caption & vbCr & _
            "     Snoozed to " & MyReminder.NextReminderDate & vbCr & vbCr
    End If

Next MyReminder

CreateReportAsEmail "Snoozed Items", Report

End Sub


Function HasReminderFired(rmndr As Outlook.Reminder) As Boolean
    HasReminderFired = (rmndr.OriginalReminderDate <> rmndr.NextReminderDate)
End Function


' VBA SubRoutine which displays a report inside an email
' Programming by Greg Thatcher, http://www.GregThatcher.com

Public Sub CreateReportAsEmail(Title As String, Report As String)

    On Error GoTo On_Error

    Dim Session As Outlook.Namespace
    Dim mail As MailItem
    Dim MyAddress As AddressEntry
    Dim Inbox As Outlook.folder 

    Set Session = Application.Session
    Set Inbox = Session.GetDefaultFolder(olFolderInbox)
    Set mail = Inbox.items.Add("IPM.Mail")

    mail.Subject = Title
    mail.Body = Report

    mail.Save
    mail.Display

Exiting:
    Set Session = Nothing
    Set Inbox = Nothing
    Set mail = Nothing
    Exit Sub

On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
    Resume Exiting

End Sub

Wenn Sie mit VBA nicht vertraut sind, lesen Sie die Erklärungsseite von Slipstick . Sie finden Informationen zu:

  • Makro Sicherheitseinstellungen;
  • Wo soll der Code abgelegt werden? (Sie können ein reguläres Modul mit Insert | Module verwenden.) und
  • Wie erstelle ich eine Schaltfläche?

Dies ist ein bisschen mehr Arbeit, aber die Ergebnisse sind fantastisch! Ich habe meiner Outlook-Symbolleiste eine Schaltfläche hinzugefügt, die die Verwendung dieser Funktion zum Kinderspiel macht.
RSW

1

Nach dieser Ansicht Artikel snoozed Forum posten, ist es nicht möglich , eine Liste von Verschobene Elementen zu sehen. Der Beitrag schlägt vor, dass Sie möglicherweise eine begrenzte Anzahl hilfreicher Informationen anzeigen können, indem Sie eine benutzerdefinierte Ansicht erstellen, in der einige der Erinnerungsfelder angezeigt werden.


-3

Versuchen Sie, auf die Registerkarte Kalender zu klicken, und wählen Sie Ansicht und Ansicht ändern. Wählen Sie dann Liste. Daraufhin wird eine Liste aller Erinnerungen angezeigt.


Willkommen bei SuperUser. Diese Antwort beantwortet die Frage nicht vollständig. Bitte bearbeiten Sie es, um die spezifische Frage des OP zu beantworten.
Ich sage Reinstate Monica
Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.