Propriedade Application.Reminders (Outlook)

Retorna um conjunto Reminders que representa todos os lembretes atuais. Somente leitura.

Sintaxe

expression. Reminders

expressão Uma variável que representa um Aplicativo objeto.

Exemplo

O exemplo a seguir retorna a coleção Reminders e exibe as legendas de todos os lembretes na coleção. Se nenhum lembrete atual estiver disponível, uma mensagem é exibida ao usuário.

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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.