Propiedad Reminder.OriginalReminderDate (Outlook)
Devuelve un valor Date que especifica la fecha y hora en que el aviso especificado se establece que se produzca originales. Solo lectura.
Sintaxis
expresión. OriginalReminderDate
Expresión Variable que representa un objeto Reminder .
Comentarios
Este valor corresponde al valor de fecha y hora original antes de que se ejecuta el método Snooze o el usuario hace clic en el botón Posponer.
Ejemplo:
El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se crea un informe de todos los avisos de la colección Reminders y las fechas en el que están programados para producirse. La subrutina concatena las propiedades Caption y OriginalReminderDate de todos los objetos Reminder de la colección en una cadena y muestra la cadena en un cuadro 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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.