Propiedad MailItem.Attachments (Outlook)
Devuelve un objeto Attachments que representa todos los datos adjuntos para el elemento especificado. Solo lectura.
Sintaxis
expresión. Attachments
expresión Variable que representa un objeto MailItem.
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método Attachments.Remove para quitar todos los datos adjuntos de un mensaje de correo reenviado antes de enviarlo a "Dan Wilson". Para ejecutar este ejemplo, reemplace a 'Dan Wilson' con nombre de un destinatario válido y mantenga abierto en una ventana del inspector un elemento con datos adjuntos.
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.