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

Vea también

Objeto MailItem

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.