Objeto EmailMergeEnvelope (Publisher)

Representa el contenedor de correo electrónico (sobre) que contiene el documento de Microsoft Publisher que se combina con una combinación de correo electrónico.

Comentarios

Las propiedades del objeto EmailMergeEnvelope corresponden a la combinación de la configuración obligatoria y opcional del cuadro de diálogo Combinar en Email de la interfaz de usuario de Publisher (en el menú Archivo, seleccione Enviar Email, elija Enviar combinación de Email y, después, elija Opciones).

Para poder usar el método Execute del objeto MailMerge para enviar un correo electrónico combinado, debe especificar un valor para la propiedad Para del objeto EmailMergeEnvelope , o Publisher devuelve un error.

Ejemplo

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo asignar algunas de las propiedades de un objeto EmailMergeEnvelope que representa una combinación de correo electrónico y, a continuación, enviar el mensaje de correo electrónico resultante, una invitación. La macro se conecta a un origen de datos, asigna valores a las propiedades Para y Asunto del objeto EmailMergeEnvelope y agrega un cuadro de texto que contiene campos de combinación y algo de texto adicional al mensaje de correo electrónico. A continuación, utiliza el método Execute del objeto MailMerge para ejecutar la combinación y enviar el correo electrónico.

El origen de datos al que se hace referencia en este ejemplo es un archivo de texto delimitado por tabulaciones simple que contiene tres columnas con los encabezados First, Last y Email Address respectivamente.

Antes de ejecutar el código, cree el archivo de texto, agregue una o más filas de datos, asigne el nombre DataSource.txt al archivo y guárdelo. Agregue la ruta de acceso del archivo al código reemplazando la variable PathToFile por su ruta de acceso.

Si ejecuta más de una vez el código de este ejemplo, encontrará errores porque Publisher se conecta al origen de datos durante cada ejecución del código, lo que dará lugar a una publicación conectada a varios orígenes de datos. Cuando existen conexiones con varios orígenes de datos, Publisher inserta una columna adicional en el origen de datos principal de combinación de correspondencia (combinada) para especificar el origen de datos específico de cada registro. Por tanto, Publisher cambia el número de índice de todas las columnas de origen de datos, haciendo que los índices usados en este código (MailMergeField1, por ejemplo) sean incorrectos.

Public Sub EmailMergeEnvelope_Example() 
 
 Dim pubShape As Publisher.Shape 
 Dim pubMailMerge As Publisher.MailMerge 
 
 'Connect to the data source. 
 Set pubMailMerge = ThisDocument.MailMerge 
 pubMailMerge.OpenDataSource "PathToFile \DataSource.txt" 
 
 'Assign "Email Address" to the To field of the email message. 
 pubMailMerge.EmailMergeEnvelope.To = pubMailMerge.DataSource.DataFields.Item(3) 
 
 'Add text to the Subject field of the email message. 
 pubMailMerge.EmailMergeEnvelope.Subject = "Invitation" 
 
 'Insert two merge fields and some additional text in a text box in the body of the message. 
 Set pubShape = ThisDocument.Pages(1).Shapes.AddTextbox(pbTextOrientationHorizontal, 100, 100, 200, 100) 
 pubShape.TextFrame.TextRange.Text = "Dear " 
 pubShape.TextFrame.TextRange.InsertMailMergeField 1 
 pubShape.TextFrame.TextRange.InsertAfter " " 
 pubShape.TextFrame.TextRange.InsertMailMergeField 2 
 pubShape.TextFrame.TextRange.InsertAfter ": " 
 pubShape.TextFrame.TextRange.InsertAfter "You are invited!" 
 
 'Perform the merge. 
 pubMailMerge.Execute True, pbSendEmail 
 
 'Display a reminder 
 MsgBox "If your email client is not already open, remember to open it and send the email messages that are in the outbox." 
 
End Sub

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