|OlRemoteStatus can be one of these OlRemoteStatus constants.|
|olMarkedForCopy The item will be copied to the remote site.|
|olMarkedForDelete The item will be deleted.|
|olMarkedForDownload The item will be downloaded in its entirety.|
|olRemoteStatusNone The item has no remote status.|
|olUnMarked The item isn't marked for remote status and will be disregarded.|
expression Required. An expression that returns one of the objects in the Applies To list.
The following example searches through the user's Inbox for items that have not yet been fully downloaded. If any items are found that are not fully downloaded, a message is displayed and the item is marked for download.
Sub DownloadItems() Dim outApp As Outlook.Application Dim mpfInbox As Outlook.MAPIFolder Dim obj As Object Dim i As Integer 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