Compartilhar via


Propriedade MailItem.Attachments (Outlook)

Retorna um objeto de anexos que representa todos os anexos para o item especificado. Somente leitura.

Sintaxe

expressão. Attachments

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

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o método Attachments.Remove para remover todos os anexos de uma mensagem encaminhada antes de enviá-lo ao 'Dan Wilson'. Para executar esse exemplo, substitua 'Dan Wilson' com o nome de um destinatário válido e mantenha um item com anexos aberto em uma janela inspector.

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
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.