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