In diesem Beispiel wird ein Verteiler für MAPPE1.XLS erstellt und die Arbeitsmappe den drei Empfängern nacheinander übermittelt.
Workbooks("BOOK1.XLS").HasRoutingSlip = True With Workbooks("BOOK1.XLS").RoutingSlip .Delivery = xlOneAfterAnother .Recipients = Array("Adam Bendel", _ "Jean Selva", "Bernard Gabor") .Subject = "Here is BOOK1.XLS" .Message = "Here is the workbook. What do you think?" End With Workbooks("BOOK1.XLS").Route