![]() RemItems = RemItems & rCount & ": " & oReminder.Caption & vbCrLf & _ It will not list dismissed reminders.ĮlseIf oReminder.OriginalReminderDate <= Date + 1 Then ![]() This version of the macro lists all snoozed reminders, all reminders visible in the reminder dialog, and all reminders for "Today". List all Snoozed, Visible, and Upcoming Reminders 'Set oMail = Application.CreateItem(olMailItem) Set oMail = Application.CreateItem(olPostItem) RemItems = RemItems & oReminder.Caption & vbCrLf & "Original Reminder time: " & oReminder.OriginalReminderDate & vbCrLf & "Snoozed to: " & oReminder.NextReminderDate & vbCrLf & vbCrLf If (oReminder.OriginalReminderDate oReminder.NextReminderDate) Then ![]() ![]() If you need to send the list, you can write it to an email instead. The macros below will create a new Post message with a list of all snoozed reminders, for Appointments, Tasks and Flags. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |