Partager via


Méthode MailMergeDataField.AddToRecipientFields (Publisher)

Ajoute l'objet parent MailMergeDataField à partir d'une source de données particulière à la source de données master (collection de champs de données) pour une composition de fusion et publipostage.

Syntaxe

expression. AddToRecipientFields

Expression Variable qui représente un objet MailMergeDataField .

Remarques

Cette méthode fonctionne uniquement si l'objet parent MailMergeDataField n'a pas déjà été mappé à un champ de destinataire. Utilisez la propriété IsMapped pour déterminer si l’objet a déjà été mappé.

Exemple

Le suivant Microsoft Visual Basic pour Applications (VBA) montre comment utiliser la méthode AddToRecipientFields pour ajouter un champ de données (colonne) dans une source de données particulière à la source de données master (liste des destinataires combinés) pour la composition.

Avant d’exécuter cette macro, remplacez par datasourceindex le numéro d’index d’une source de données valide dans la collection de sources de données du document actif, puis remplacez par fieldname le nom du champ dans la source de données que vous souhaitez ajouter à la liste combinée des champs de destinataire.

Remarque

Pour obtenir un exemple montrant comment utiliser la propriété Name de l’objet DataSource pour déterminer le numéro d’index de la source de données souhaitée, consultez la méthode MailMergeDataSources.Item .

Public Sub AddToRecipientFields_Example() 
 
 Dim pubMailMergeDataSources As Publisher.MailMergeDataSources 
 Dim pubMailMergeDataField As Publisher.MailMergeDataField 
 
 Set pubMailMergeDataSources = ThisDocument.MailMerge.DataSource.DataSources 
 Set pubMailMergeDataField = pubMailMergeDataSources.Item(datasourceindex).DataFields.Item("fieldname") 
 
 If pubMailMergeDataField.IsMapped Then 
 
 Debug.Print "This field is already mapped!" 
 
 Else 
 
 pubMailMergeDataField.AddToRecipientFields 
 Debug.Print "Field added successfully. (You can verify this by looking at the recipient or product list in the UI.)" 
 
 End If 
 
End Sub

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.