Outlook VBA教程:DownloadState属性

返回或设置项目的下载状态。OlDownloadState 常量,只读。

OlDownloadState 可为以下 OlDownloadState 常量之一。
olFullItem 下载了整个项目。
olHeaderOnly 仅下载了标题。

expression.DownloadState

expression  必选。该表达式返回“应用于”列表中的一个对象。

VBA示例

以下示例在用户的“收件箱”中搜索尚未下载的项目。如果找到了任何此类项目,就向用户显示一条消息,并将该项目标记为下载。


Public Sub DownloadStateTest()
'Tests items in the user's Inbox
    Dim outApp As Outlook.Application
    Dim mpfInbox As Outlook.MAPIFolder
    Dim obj As Object
    Set outApp = CreateObject("Outlook.Application")
    Set mpfInbox = outApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    ' Loop all items in the Inbox Folder
    For i = 1 To mpfInbox.Items.Count
        Set obj = mpfInbox.Items.Item(i)
        'Verify if the state of the item is olHeaderOnly
        If obj.DownloadState = olHeaderOnly Then
            MsgBox ("This item has not been fully downloaded")
            'Mark the item to be downloaded
            obj.MarkForDownload = olMarkedForDownload
        End If
    Next
End Sub

上页:Outlook VBA教程:DocSaved属性 下页:Outlook VBA教程:DueDate属性

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

Outlook VBA教程:DueDate属性 Outlook VBA教程:Duration属性
Outlook VBA教程:EditorType属性 Outlook VBA教程:Email1Address属性
Outlook VBA教程:Email1AddressType属性 Outlook VBA教程:Email1DisplayName属性
Outlook VBA教程:Email1EntryID属性 Outlook VBA教程:Email2Address属性
Outlook VBA教程:Email2AddressType属性 Outlook VBA教程:Email2DisplayName属性
Outlook VBA教程:Email2EntryID属性 Outlook VBA教程:Email3Address属性
Outlook VBA教程:Email3AddressType属性 Outlook VBA教程:Email3DisplayName属性
Outlook VBA教程:Email3EntryID属性 Outlook VBA教程:Enabled属性
Outlook VBA教程:End属性 Outlook VBA教程:EndTime属性
Outlook VBA教程:EntryID属性 Outlook VBA教程:Exceptions属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号