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

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.