Método Attachments.Remove (Outlook)

Quita un objeto de la colección.

Sintaxis

expresión. Quitar (índice)

Expresión Variable que representa un objeto Attachments .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Index	Obligatorio	Long	Valor de índice basado en 1 del objeto en la colección.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método Remove para quitar todos los datos adjuntos de un mensaje reenviado antes de enviarlo a Dan Wilson. Antes de ejecutar este ejemplo, reemplace a 'Dan Wilson' por un nombre de destinatario válido.

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

Consulte también

Objeto de datos adjuntos

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.