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
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.