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