在Outlook2010中,有没有办法查看当前正在暂停的提醒?

在Outlook2010中,有没有办法查看当前正在暂停的提醒?

Outlook 2010 中是否有任何方法可以调出当前已延后的项目列表?例如,假设两周后我设置了一个提醒,在周五弹出,提醒下周一有一个重要的午餐会议(我喜欢在周末之前提醒我周一的任务)。当提醒在周五弹出时,我会将其延后三天,以便它会在周一午餐前再次弹出。然后周一到了,我的记忆很模糊,我有点担心自己在周五不小心忽略了提醒,而不是正确地将其延后。我仍然可以在日历上看到原始约会,但我需要确保提醒会在我期望的时间弹出,这样我就不会错过会议。

Outlook 2010 中是否有任何方法可以调出当前已暂停的提醒列表?这在以下情况下也会很有帮助:我完成了一项提醒已暂停到稍后的任务,现在想调出已暂停的提醒并取消它。

答案1

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 的解释页面. 您将找到有关以下内容的信息:

  • 宏安全设置;
  • 代码放在哪里(你可以使用带有插入|模块的常规模块);
  • 如何创建按钮。

答案2

根据这个查看已延后的项目论坛帖子中,无法查看已暂停项目的列表。该帖子建议,通过创建显示部分提醒字段的自定义视图,您可以查看有限的有用信息。

答案3

尝试点击日历选项卡,选择查看和更改视图。然后选择列表。这似乎会显示所有提醒的列表。

相关内容