Объект Напоминания (Outlook)
Представляет напоминание Outlook.
Напоминания позволяют пользователям отслеживать предстоящие встречи, запланируя отображение всплывающего диалогового окна в определенное время. Помимо встреч, могут возникать напоминания о задачах, контактах и сообщениях электронной почты.
Используйте напоминания (индекс), где index — это имя или номер индекса напоминания, чтобы вернуть один объект Reminder .
Напоминания создаются программным способом при создании нового элемента Microsoft Outlook, например объекта AppointmentItem , а свойству ReminderSet элемента присвоено значение True.
Используйте метод Remove коллекции Напоминания, чтобы удалить объект Reminder из коллекции. После удаления напоминания из связанного элемента свойство ReminderSet объекта AppointmentItem имеет значение 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, добавляя новый объект Reminder в коллекцию Reminders .
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
Справочник по объектной модели Outlookдля элементов объекта напоминания
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.