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