In diesem Beispiel wird MAPPE1.XLS nacheinander an drei Empfänger weitergeleitet.
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