Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Colección de objetos Attachment que representa todos los datos adjuntos de un mensaje de correo electrónico combinado.
Observaciones
La colección Attachments corresponde a la lista de datos adjuntos del cuadro Datos adjuntos del cuadro de diálogo Combinar para Email de la interfaz de usuario de Microsoft Publisher (en el menú Archivo, seleccione Enviar Email, elija Enviar Email Combinar y, a continuación, elija Opciones).
Para agregar un objeto Attachment a la colección Attachments y, por tanto, agregar datos adjuntos a la lista de datos adjuntos al correo electrónico combinado que desea enviar, use el método Add .
Para quitar un único dato 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 Attachments .
Para quitar todos los datos adjuntos del correo electrónico combinado y, por tanto, vaciar la colección Attachments , 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 Add 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 de acceso 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.