Outlook VBA教程:Reminders属性



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


以下示例返回 Reminders集合并显示集合中所有提醒的标题。如果当前没有提醒,就会向用户显示一条消息。

Sub ViewReminderInfo()
'Lists reminder caption information
    Dim olApp As Outlook.Application
    Dim objRem As Reminder
    Dim objRems As Reminders
    Dim strTitle As String
    Dim strReport As String
    Set olApp = Outlook.Application
    Set objRems = olApp.Reminders
    strTitle = "Current Reminders:"
    'If there are reminders, display message
    If olApp.Reminders.Count <> 0 Then
        For Each objRem In objRems
            'If string is empty, create new string
            If strReport = "" Then
                strReport = objRem.Caption & vbCr
                'Add info to string
                strReport = strReport & objRem.Caption & vbCr
            End If
        Next objRem
        'Display report in dialog
        MsgBox strTitle & vbCr & vbCr & strReport
        MsgBox "There are no reminders in the collection."
    End If
End Sub

上页:Outlook VBA教程:ReminderPlaySound属性 下页:Outlook VBA教程:ReminderSet属性

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

Outlook VBA教程:ReminderSet属性 Outlook VBA教程:ReminderSoundFile属性
Outlook VBA教程:ReminderTime属性 Outlook VBA教程:RemoteMessageClass属性
Outlook VBA教程:RemoteStatus属性 Outlook VBA教程:ReplyRecipientNames属性
Outlook VBA教程:ReplyRecipients属性 Outlook VBA教程:ReplyStyle属性
Outlook VBA教程:ReplyTime属性 Outlook VBA教程:RequiredAttendees属性
Outlook VBA教程:Resolved属性 Outlook VBA教程:Resources属性
Outlook VBA教程:ResponseRequested属性 Outlook VBA教程:ResponseState属性
Outlook VBA教程:ResponseStatus属性 Outlook VBA教程:ResponseStyle属性
Outlook VBA教程:Results属性 Outlook VBA教程:Role属性
Outlook VBA教程:Saved属性 Outlook VBA教程:SaveOption属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号