Reminders Object (Outlook)
Contains a collection of all the Reminder objects in a Microsoft Outlook application that represent the reminders for all pending items.
Reminders are created programmatically when a new Outlook item is created with a reminder. For example, a reminder is created when an AppointmentItem object is created and the AppointmentItem object's ReminderSet property is set to True.
The following example displays the captions of each reminder in the list.
Sub ViewReminderInfo() 'Lists reminder caption information Dim objRem As Reminder Dim objRems As Reminders Dim strTitle As String Dim strReport As String Set objRems = Application.Reminders strTitle = "Current Reminders:" 'If there are reminders, display message If Application.Reminders.Count <> 0 Then For Each objRem In objRems 'If string is empty, create new string If strReport = "" Then strReport = objRem.Caption & vbCr Else 'Add info to string strReport = strReport & objRem.Caption & vbCr End If Next objRem 'Display report in dialog MsgBox strTitle & vbCr & vbCr & strReport Else MsgBox "There are no reminders in the collection." End If End Sub
The following example creates a new appointment item and sets the ReminderSet property to True, adding a new Reminder object to the Reminders collection.