Objet EmailMergeEnvelope (Publisher)
Représente le conteneur de courrier électronique (enveloppe) qui contient le document Microsoft Publisher qui est fusionné dans un publipostage.
Remarques
Les propriétés de l’objet EmailMergeEnvelope correspondent à la combinaison des paramètres obligatoires et facultatifs de la boîte de dialogue Fusionner vers Email de l’interface utilisateur de Publisher (dans le menu Fichier, pointez sur Envoyer Email, choisissez Envoyer Email Fusionner, puis Options).
Avant de pouvoir utiliser la méthode Execute de l’objet MailMerge pour envoyer un e-mail fusionné, vous devez spécifier une valeur pour la propriété To de l’objet EmailMergeEnvelope , sinon Publisher retourne une erreur.
Exemple
La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment affecter certaines des propriétés d’un objet EmailMergeEnvelope qui représente une fusion, puis envoyer le message électronique résultant, une invitation. La macro se connecte à une source de données, affecte des valeurs aux propriétés To et Subject de l’objet EmailMergeEnvelope et ajoute une zone de texte contenant des champs de fusion et du texte supplémentaire au message électronique. Il utilise ensuite la méthode Execute de l’objet MailMerge pour exécuter la fusion et envoyer l’e-mail.
La source de données référencée dans cet exemple est un fichier texte simple délimité par des tabulations qui contient trois colonnes avec les en-têtes First, Last et Email Address respectivement.
Avant d'exécuter le code, créez le fichier texte, ajoutez une ou plusieurs lignes de données, nommez le fichier DataSource.txt et enregistrez-le sur le disque. Ajoutez le chemin d’accès du fichier au code en remplaçant la variable PathToFile par votre chemin d’accès.
Si vous exécutez le code de cet exemple à plusieurs reprises, des erreurs apparaissent car Publisher se connecte à la source de données à chaque exécution du code, la composition étant connectée à plusieurs sources de données. En cas de connexion à des sources de données multiples, Publisher insère une colonne supplémentaire dans la source de données de fusion et publipostage (combiné) master afin de spécifier la source de données spécifique pour chaque enregistrement. Ce qui permet à Publisher de modifier efficacement le nombre d’index de toutes les colonnes de sources de données, les index utilisés dans ce code (par exemple, MailMergeField1) devenant incorrects.
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
Propriétés
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.