提醒对象 (Outlook)
代表 Outlook 提醒。
用户可以通过提醒安排在指定时间弹出对话框,跟踪将要到来的约会。 除了约会,还可以对任务、联系人和电子邮件发出提醒。
使用 Reminders (索引) (其中 index 是提醒的名称或索引号)返回单个 Reminder 对象。
创建一个新的Microsoft Outlook项目,如一个 AppointmentItem 对象,和项的 ReminderSet 属性设置为 True 时,将以编程方式创建提醒。
使用 提醒 集合的 删除 方法可从集合中移除一个 提醒 。 一旦从与其关联的项中删除提醒, AppointmentItem 对象的 ReminderSet 属性设置为 False 。
以下示例显示集合中第一个提醒的标题。
Sub ViewReminderInfo()
'Displays information about first reminder in collection
Dim colReminders As Outlook.Reminders
Dim objRem As Reminder
Set colReminders = Application.Reminders
'If there are reminders, display message
If colReminders.Count <> 0 Then
Set objRem = colReminders.Item(1)
MsgBox "The caption of the first reminder in the collection is: " & _
objRem.Caption
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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。