Propriedade JournalItem.DownloadState (Outlook)

Retorna uma constante que pertence à enumeração OlDownloadState, indicando o estado de download do item. Somente leitura.

Sintaxe

expression. DownloadState

Expressão Uma variável que representa um objeto JournalItem .

Exemplo

O exemplo do Microsoft Visual Basic for Applications (VBA) a seguir pesquisa em toda a Caixa de Entrada do usuário itens que ainda não tenham sido totalmente baixados. Se for localizado algum item com download ainda incompleto, será exibida uma mensagem para o usuário e o item será marcado para download.

Sub DownloadItems() 
 
 Dim mpfInbox As Outlook.Folder 
 
 Dim objItems As Outlook.Items 
 
 Dim obj As Object 
 
 Dim i As Integer 
 
 Dim iCount As Integer 
 
 
 
 Set mpfInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
 
 Set objItems = mpfInbox.Items 
 
 iCount = objItems.Count 
 
 'Loop all items in the Inbox folder 
 
 For i = 1 To iCount 
 
 Set obj = objItems.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 
 
 obj.Save 
 
 End If 
 
 Next 
 
End Sub

Confira também

Objeto JournalItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.