Compartilhar via


Evento MailItem.AttachmentAdd (Outlook)

Ocorre quando um anexo é adicionado a uma instância do objeto pai.

Sintaxe

expression. AttachmentAdd( _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 adicionado ao item.

Exemplo

Esse exemplo do Visual Basic for Applications (VBA) verifica o tamanho do item após um anexo ter sido adicionado e exibe um aviso caso o tamanho exceda 500.000 bytes. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession, e o TestAttachAdd() procedimento deve ser chamado antes que o procedimento de evento possa ser chamado pelo Microsoft Outlook.

Public WithEvents newItem As Outlook.MailItem 
 
 
 
Private Sub newItem_AttachmentAdd(ByVal newAttachment As Attachment) 
 
 If newAttachment.Type = olByValue Then 
 
 newItem.Save 
 
 If newItem.Size > 500000 Then 
 
 MsgBox "Warning: Item size is now " & newItem.Size & " bytes." 
 
 End If 
 
 End If 
 
End Sub 
 
 
 
Public Sub TestAttachAdd() 
 
 Dim atts As Outlook.Attachments 
 
 Dim newAttachment As Outlook.Attachment 
 
 
 
 Set newItem = Application.CreateItem(olMailItem) 
 
 newItem.Subject = "Test attachment" 
 
 Set atts = newItem.Attachments 
 
 Set newAttachment = atts.Add("C:\Test.txt", olByValue) 
 
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.