DownloadState 属性

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

OlDownloadState 可为以下 OlDownloadState 常量之一。

olFullItem 下载了整个项目。

olHeaderOnly 仅下载了标题。

expression.DownloadState

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

示例

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

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