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
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.