Objeto de datos adjuntos (Publisher)

La colección de objetos de datos adjuntos que representa todos los datos adjuntos en un mensaje de correo electrónico combinado.

Comentarios

La colección Datos adjuntos corresponde a la lista de datos adjuntos del cuadro Datos adjuntos del cuadro de diálogo Combinar en Email de la interfaz de usuario de Microsoft Publisher (en el menú Archivo, seleccione Enviar Email, elija Enviar combinación de Email y, después, elija Opciones).

Para agregar un objeto Attachment a la colección Attachments (Datos adjuntos ) y, por lo tanto, agregar un archivo adjunto a la lista de datos adjuntos al correo electrónico combinado que desea enviar, use el método Add .

Para quitar un único archivo adjunto de un mensaje de combinación de correo electrónico, use el método Delete del objeto Attachment específico que desea quitar de la colección de datos adjuntos .

Para quitar todos los datos adjuntos al correo electrónico combinado y, de esta forma, vaciar la colección de datos adjuntos , use el método ClearAll .

La propiedad predeterminada de la colección Attachments es la propiedad Item.

Ejemplo

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo usar el método Agregar para agregar datos adjuntos a un mensaje de combinación de correo electrónico. La macro agrega un Objeto Attachment que representa una imagen de mapa de bits a la colección Attachments del documento activo. También se recorre en iteración la colección de datos adjuntos y se imprime el nombre de cada archivo adjunto en la ventana inmediato.

Antes de ejecutar esta macro, coloque un archivo denominado image.bmp en la raíz de la unidad C del equipo o cambie el nombre y la ruta del archivo en la macro para especificar el que desea adjuntar.

Para enviar un mensaje de combinación de correo electrónico, debe conectarse a un origen de datos, crear la combinación de correo electrónico y, a continuación, enviar el mensaje. Para obtener más información, vea el objeto EmailMergeEnvelope .

Public Sub Attachments_Example() 
 
 Dim pubAttachments As Publisher.Attachments 
 Dim pubAttachment As Publisher.Attachment 
 Dim pubAttachment_Added As Publisher.Attachment 
 Dim pubMailMerge As Publisher.MailMerge 
 Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope 
 
 Set pubMailMerge = ThisDocument.MailMerge 
 Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope 
 Set pubAttachments = pubEmailMergeEnvelope.Attachments 
 
 Set pubAttachment_Added = pubAttachments.Add("C:\image.bmp ") 
 
 For Each pubAttachment In pubAttachments 
 Debug.Print pubAttachment.Name 
 Next 
 
End Sub

Métodos

Propiedades

Vea 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.

  • Last updated on