Método Attachments.Add (Publisher)

Agrega un objeto Attachment a la colección Attachments de una publicación de Microsoft Publisher.

Sintaxis

expresión. Agregar (FileName)

expresión Variable que representa un objeto Attachments .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
FileName	Necesario	String	Nombre de archivo de los datos adjuntos.

Valor devuelto

Datos adjuntos

Ejemplo

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo agregar datos adjuntos al mensaje en una combinación de correo electrónico. El código agrega datos adjuntos a un mensaje de correo electrónico y, a continuación, imprime el número de datos adjuntos actuales en el mensaje en la ventana Inmediato.

Los datos adjuntos en este ejemplo son un archivo de imagen en la raíz de la unidad C:. Antes de ejecutar el código, reemplace "C:\image.jpg" por la ruta de acceso y el nombre del archivo en el equipo que desea agregar como datos adjuntos de correo electrónico.

Para poder crear una combinación de correo electrónico, debe usar el método OpenDataSource del objeto MailMerge para conectar el documento activo a un origen de datos. Para ejecutar la combinación, use el método Execute del objeto MailMerge.

Para obtener un ejemplo de cómo conectarse a un origen de datos y crear una combinación de correo electrónico, vea el objeto EmailMergeEnvelope .

Public Sub Add_Example() 
 
 Dim pubAttachment As Publisher.Attachment 
 
 Set pubAttachment = ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Add("C:\image.jpg") 
 Debug.Print ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Count 
 
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.