共用方式為

Outlook) (Reminder.OriginalReminderDate 屬性

  • 發行項

會傳回 Date，指出所指定之提醒設定要發生的原始日期及時間。 唯讀。

語法

expression。 OriginalReminderDate

表達 代表 Reminder 物件的變數。

註解

此值會對應至執行 Snooze 方法或使用者按一下 [ 延遲 ] 按鈕之前的原始日期和時間值。

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會建立 Reminders 集合中所有提醒的報表，以及它們排程發生的日期。 副程式會將集合中所有Reminder物件的Caption和OriginalReminderDate屬性串連成字串，並在對話方塊中顯示字串。

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

另請參閱

Reminder 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。