Propiedad MailItem.Attachments (Outlook)
Devuelve un objeto Attachments que representa todos los datos adjuntos para el elemento especificado. Solo lectura.
expresión. Attachments
expresión Variable que representa un objeto MailItem.
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
¿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.