Propriedade Reminder.NextReminderDate (Outlook)

Retorna uma Data que indica na próxima vez que o lembrete especificado ocorrerá. Somente leitura.

Sintaxe

expression. NextReminderDate

Expressão Uma variável que representa um objeto Lembrete .

Comentários

O valor da propriedade NextReminderDate altera toda vez que o método do objeto Snooze for executado ou quando o usuário clica no botão Adiar.

Exemplo

O exemplo a seguir cria um relatório de todos os lembretes na coleção e as datas quando eles ocorrerão da próxima. A sub-rotina concatena as propriedades Caption e NextReminderDate em uma cadeia de caracteres e exibe a cadeia de caracteres em uma caixa de diálogo.

Sub DisplayNextDateReport() 
 
 'Displays the next time all reminders will be displayed. 
 
 Dim objRems As Outlook.Reminders 
 
 Dim objRem As Outlook.Reminder 
 
 Dim strTitle As String 
 
 Dim strReport As String 
 
 
 
 Set objRems = Application.Reminders 
 
 strTitle = "Current Reminder Schedule:" 
 
 strReport = "" 
 
 'Check if any reminders exist. 
 
 If objRems.Count = 0 Then 
 
 MsgBox "There are no current reminders." 
 
 Else 
 
 For Each objRem In objRems 
 
 'Add information to string. 
 
 strReport = strReport & objRem.Caption & vbTab & _ 
 
 objRem.NextReminderDate & vbCr 
 
 Next objRem 
 
 'Display report in dialog box 
 
 MsgBox strTitle & vbCr & vbCr & strReport 
 
 End If 
 
End Sub

Confira também

Objeto Reminder

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.