Outlook VBA教程:NextReminderDate属性

返回指定的提醒下一次发生的时间。Date 类型,只读。

expression.NextReminderDate

expression  必选。该表达式返回Reminder对象。

说明

NextReminderDate属性的值会在每次执行该对象的Snooze方法或用户单击“暂停”按钮时更改。

VBA示例

以下示例创建集合中所有提醒的报告和它们下一次发生的时间。子例程将Caption 和 NextReminderDate属性连接为一个字符串,并在对话框中显示该字符串。


Sub DisplayNextDateReport()
'Displays the next time all reminders will be displayed
    Dim olApp As Outlook.Application
    Dim objRems As Reminders
    Dim objRem As Reminder
    Dim strTitle As String
    Dim strReport As String
    Set olApp = Outlook.Application
    Set objRems = olApp.Reminders
    strTitle = "Current Reminder Schedule:"
    'Check if any reminders exist
    If objRems.Count = 0 Then
        MsgBox "There are no current reminders."
    Else
        For Each objRem In objRems
            'If string is empty, create new string
            If strReport = "" Then
                strReport = objRem.Caption & vbTab & _
                            objRem.NextReminderDate & vbCr
            Else
                'Add info to string
                strReport = strReport & objRem.Caption & vbTab & _
                            objRem.NextReminderDate & vbCr
            End If
        Next objRem
        'Display report in dialog
        MsgBox strTitle & vbCr & vbCr & strReport
    End If
End Sub

上页:Outlook VBA教程:NetShowURL属性 下页:Outlook VBA教程:NickName属性

Outlook VBA教程:NextReminderDate属性:相关链接

Outlook VBA教程:NickName属性 Outlook VBA教程:NoAging属性
Outlook VBA教程:NoEndDate属性 Outlook VBA教程:Number属性
Outlook VBA教程:Occurrences属性 Outlook VBA教程:OfficeLocation属性
Outlook VBA教程:Offline属性 Outlook VBA教程:OneOff属性
Outlook VBA教程:OptionalAttendees属性 Outlook VBA教程:Ordinal属性
Outlook VBA教程:OrganizationalIDNumber属性 Outlook VBA教程:Organizer属性
Outlook VBA教程:OriginalDate属性 Outlook VBA教程:OriginalReminderDate属性
Outlook VBA教程:OriginatorDeliveryReportRequested属性 Outlook VBA教程:OtherAddress属性
Outlook VBA教程:OtherAddressCity属性 Outlook VBA教程:OtherAddressCountry属性
Outlook VBA教程:OtherAddressPostalCode属性 Outlook VBA教程:OtherAddressPostOfficeBox属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号