Propriété Reminder.OriginalReminderDate (Outlook)
Renvoie une valeur de type Date qui spécifie la date et l'heure d'origine à laquelle le rappel spécifié doit se produire. En lecture seule.
Syntaxe
expression. OriginalReminderDate
Expression Variable qui représente un objet Reminder .
Remarques
Cette valeur correspond à la valeur de date et d’heure d’origine avant l’exécution de la méthode Snooze ou avant que l’utilisateur clique sur le bouton Répéter .
Exemple
L’exemple Microsoft Visual Basic pour Applications (VBA) suivant crée un rapport de tous les rappels de la collection Reminders et des dates auxquelles ils sont planifiés. La sous-routine concatène les propriétés Caption et OriginalReminderDate de tous les objets Reminder de la collection dans une chaîne et affiche la chaîne dans une boîte de dialogue.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.