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