Application.MailMergeInsertBarcode Event

Occurs when the user issues the command to insert postal barcodes into a mail-merge publication, either in the Microsoft Office Publisher user interface (UI), or programmatically.

Version Information
 Version Added:  Publisher 2007

Syntax

expression.MailMergeInsertBarcode(Doc, OkToInsert)

expression   A variable that represents an Application object.

Parameters

Remarks

You can use the InsertBarcode method to insert barcodes into a mail merge publication.

Third-party add-ins that validate mail-merge addresses can use the MailMergeInsertBarcode event to listen for user actions requesting that barcodes be inserted. In this situation, when the add-in receives notification that the MailMergeInsertBarcode event fired, it checks the validity of the addresses in the mail-merge list, and if the addreses are valid, it attempts to generate barcodes. If this attempt is successful, the add-in should return True for the OkToInsert parameter. If the attempt fails, the add-in should return False.

Actual barcode data is provided to Publisher by the MailMergeGenerateBarcode event.

The MailMergeInsertBarcode event is also triggered when a user clicks Add a postal barcode in the Mail Merge or Catalog Merge task pane, or Add postal bar codes in the Publisher Tasks task pane in the Publisher UI. Before a user can click either of these UI commands, you must first make them available by setting the InsertBarcodeVisible property to True.

For more information about using events with the Application object, see Using Events with the Application Object.

Example

The following Microsoft Visual Basic for Applications (VBA) macro shows how to handle the MailMergeInsertBarcode event. It displays a message asking whether to proceed with inserting barcodes.

  Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean)
Dim intResponse As Integer

intResponse = MsgBox("Proceed to insert barcodes?", vbYesNo)

If intResponse = vbYes Then OkToInsert = True

End Sub

For this event to occur, you must place the following line of code in the General Declarations section of your module.

  Public WithEvents pubApplication As Application

Then run the following initialization procedure.

  Public Sub Initialize_pubApplication()
    Set pubApplication = Publisher.Application
End Sub

See Also

• Application Object
• Application Object Members