Compartir a través de

Objeto EmailMergeEnvelope (Publisher)

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

Observaciones

Las propiedades del objeto EmailMergeEnvelope corresponden a la combinación de valores necesarios y opcionales en el cuadro de diálogo Combinar para Email de la interfaz de usuario del publicador (en el menú Archivo, seleccione Enviar Email, elija Enviar Email combinar y, a continuación, 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 To 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 To y Subject del objeto EmailMergeEnvelope y agrega un cuadro de texto que contiene campos de combinación y texto adicional al mensaje de correo electrónico. A continuación, usa 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 simple archivo de texto delimitado por tabulaciones 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 la 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