Adjuntar un archivo a un elemento de correo

Este tema muestra un procedimiento para adjuntar un archivo de hoja de cálculo a un elemento de correo. El procedimiento , AddAttachmentsupone que la hoja de cálculo especificada, Q496.xlsx, existe en la ruta de acceso especificada, D:\Documents. AddAttachment crea un nuevo mensaje de correo electrónico, adjunta Q496.xlsx al mensaje de correo, asigna a los datos adjuntos un título descriptivo y muestra un mensaje de correo con esos datos adjuntos.

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "D:\Documents\Q496.xlsx", _ 
 olByValue, 1, "4th Quarter 1996 Results Chart" 
 myItem.Display 
End Sub

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.