Método Attachments.Remove (Outlook)

Remove um objeto do conjunto.

Sintaxe

expressão. Remover (Índice)

Expressão Uma variável que representa um objeto Attachments .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	O valor de índice baseado em 1 do objeto dentro da coleção.

Exemplo

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

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 Attachments

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.