Compartilhar via


Evento MailItem.AttachmentRead (Outlook)

Ocorre quando um anexo de uma instância do objeto pai é aberto para leitura.

Sintaxe

expression. AttachmentRead( _Attachment_ )

expressão Uma variável que representa um objeto MailItem.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Attachment Obrigatório Attachment O anexo que foi aberto.

Exemplo

Este exemplo do Visual Basic for Applications (VBA) exibe uma mensagem quando um usuário tenta ler um anexo. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession, e o TestAttachRead() procedimento deve ser chamado antes que o procedimento de evento possa ser chamado pelo Microsoft Outlook. Para este exemplo ser executado, é necessário que haja pelo menos um item na Caixa de Entrada cujo assunto seja 'Test' contendo pelo menos um anexo.

Public WithEvents myItem As outlook.MailItem 
 
 
 
Private Sub myItem_AttachmentRead(ByVal myAttachment As Outlook.Attachment) 
 
 If myAttachment.Type = olByValue Then 
 
 MsgBox "If you change this file, also save your changes to the original file." 
 
 End If 
 
End Sub 
 
 
 
Public Sub TestAttachRead() 
 
 Dim atts As Outlook.Attachments 
 
 Dim myAttachment As Outlook.Attachment 
 
 
 
 Set myItem = Application.ActiveExplorer.CurrentFolder.Items("Test") 
 
 Set atts = myItem.Attachments 
 
 myItem.Display 
 
End Sub

Confira também

Objeto MailItem

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.