Outlook) (Reminders 对象
包含 Microsoft Outlook 应用程序中所有 Reminder 对象的集合，代表所有挂起项目的提醒。
备注
使用 应用程序 对象的 提醒 属性返回 提醒 集合。 使用 Reminders (索引) （其中 index 是提醒的名称或序号值）返回单个 Reminder 对象。
提醒使用创建新的 Outlook 项目时，以编程方式创建提醒。 例如，创建一个 AppointmentItem 对象和 AppointmentItem 对象的 ReminderSet 属性设置为 True 时创建提醒。
示例
以下示例显示列表中每个提醒的标题。
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
下面的示例创建新的约会项目，将 ReminderSet属性设置为 True ，则向 提醒 集合中添加一个新对象， 提醒 。
Sub AddAppt()
'Adds a new appointment and reminder to the reminders collection
Dim objApt As AppointmentItem
Set objApt = Application.CreateItem(olAppointmentItem)
objApt.ReminderSet = True
objApt.Subject = "Tuesday's meeting"
objApt.Save
End Sub
事件
| 名称 |
|---|
| BeforeReminderShow |
| ReminderAdd |
| ReminderChange |
| ReminderFire |
| ReminderRemove |
| 暂停 |
方法
| 名称 |
|---|
| 项目 |
| Remove |
属性
| 名称 |
|---|
| Application |
| 类 |
| Count |
| Parent |
| Session |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。