Propriedade Reminder.OriginalReminderDate (Outlook)
Retorna uma Data que especifica a data e a hora em que o lembrete especificado está definido para ocorrer original. Somente leitura.
Sintaxe
expression. OriginalReminderDate
Expressão Uma variável que representa um objeto Lembrete .
Comentários
Esse valor corresponde ao valor de data e hora original antes do método Snooze for executado ou o usuário clica no botão Adiar.
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) cria um relatório de todos os lembretes na coleção Reminders e as datas em que estão programados para ocorrer. A sub-rotina concatena as propriedades Caption e OriginalReminderDate de todos os objetos Reminder na coleção em uma cadeia de caracteres e exibe a cadeia de caracteres em uma caixa de diálogo.
Sub DisplayOriginalDateReport()
'Displays the time at which 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 = "Original 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 info to string
strReport = strReport & objRem.Caption & vbTab & vbTab & _
objRem.OriginalReminderDate & vbCr
Next objRem
'Display report in dialog
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.