Поделиться через

Свойство Application.Reminders (Outlook)

  • Статья

Возвращает коллекцию напоминаний , представляющую все текущие напоминания. Только для чтения.

Синтаксис

выражение. Reminders

выражение: переменная, представляющая объект Application.

Пример

В следующем примере возвращается коллекция Напоминания и отображаются субтитры всех напоминаний в коллекции. Если текущие напоминания недоступны, пользователю отображается сообщение.

Sub ViewReminderInfo() 
 
 'Lists reminder caption information 
 
 Dim objRem As Outlook.Reminder 
 
 Dim objRems As Outlook.Reminders 
 
 Dim strTitle As String 
 
 Dim strReport As String 
 
 
 
 Set objRems = Application.Reminders 
 
 strTitle = "Current Reminders:" 
 
 strReport = "" 
 
 'If there are reminders, display message 
 
 If Application.Reminders.Count <> 0 Then 
 
 For Each objRem In objRems 
 
 'Add information to string 
 
 strReport = strReport & objRem.Caption & vbCr 
 
 Next objRem 
 
 'Display report in dialog 
 
 MsgBox strTitle & vbCr & vbCr & strReport 
 
 Else 
 
 MsgBox "There are no reminders in the collection." 
 
 End If 
 
End Sub

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.