В Outlook2010 есть ли способ просмотреть текущие дремлющие напоминания?


15

Есть ли способ в Outlook 2010, чтобы получить список элементов, которые в настоящее время откладываются? Например, скажем, через две недели я установил напоминание, которое должно появиться в пятницу для важного обеденного собрания в следующий понедельник (мне нравится напоминать о заданиях в понедельник перед выходными). Когда в пятницу всплывает напоминание, я откладываю его на три дня, чтобы оно снова всплыло прямо перед обедом в понедельник. Затем наступает понедельник, и моя память становится нечеткой, и я немного параноидален, потому что я случайно отклонил напоминание в пятницу вместо того, чтобы правильно отложить его. Я все еще вижу исходную встречу в своем календаре, но мне нужно убедиться, что у меня действительно будет всплывающее напоминание, когда я ожидаю его, чтобы я не пропустил свою встречу.

Есть ли способ в Outlook 2010, чтобы получить список напоминаний, которые в настоящее время откладываются? Это также было бы полезно в тех случаях, когда я выполняю задание, напоминание которого я отложил до позднего времени, и теперь я хочу открыть отложенное напоминание и отменить его.

Ответы:


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

Если вы не знакомы с VBA, см. Страницу объяснения Slipstick . Вы найдете информацию о:

  • настройки безопасности макросов;
  • куда поместить код (Вы можете использовать обычный модуль с Insert | Module); и
  • как создать кнопку.

Это немного больше работы для настройки, но результаты потрясающие! Я добавил кнопку на панель инструментов Outlook, которая позволяет легко его использовать.
RSW

1

В соответствии с этим сообщением на форуме Просмотр отложенных элементов невозможно просмотреть список отложенных элементов. В публикации предполагается, что вы можете увидеть ограниченное количество полезной информации, создав собственное представление, отображающее некоторые поля напоминания.


-3

Попробуйте нажать на вкладку «Календарь», выбрать «Просмотр и изменение вида». Затем выберите Список. Появится список всех напоминаний.


Добро пожаловать в SuperUser. Эта ответ не полностью отвечает на вопрос. Пожалуйста, отредактируйте его, чтобы ответить на конкретный вопрос ОП.
Я говорю: восстановите Монику
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.