Outlook 2010で、現在スヌーズされているアイテムのリストをプルアップする方法はありますか?たとえば、2週間後に、金曜日に次の月曜日の重要なランチミーティングのポップアップを表示するようにリマインダーを設定したとします(週末の前に月曜日のタスクを思い出したい)。金曜日にリマインダーが表示されたら、3日間スヌーズして、月曜日の昼食の直前に再度表示されるようにします。その後、月曜日が転がり、私の記憶はぼやけており、金曜日にリマインダーを正しくスヌーズせずに誤って閉じてしまったことを少し妄想的にしています。元の予定は引き続きカレンダーに表示されますが、会議を逃さないように、予定どおりにリマインダーをポップアップ表示することを確認する必要があります。
Outlook 2010で、現在スヌーズされているリマインダーのリストをプルアップする方法はありますか?これは、リマインダーが後でスヌーズしていたタスクを完了し、スヌーズしたリマインダーを引き上げてキャンセルしたい場合にも役立ちます。
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の説明ページ を参照してください。次の情報が見つかります。
この スヌーズしたアイテムを表示 フォーラムの投稿によると、スヌーズしたアイテムのリストを表示することはできません。この投稿は、リマインダーフィールドの一部を表示するカスタムビューを作成することで、限られた量の役立つ情報を表示できる可能性があることを示唆しています。