In diesem Beispiel wird die geöffnete Arbeitsmappe nacheinander an drei Empfänger gesendet.
With ThisWorkbook .HasRoutingSlip = True With .RoutingSlip .Delivery = xlOneAfterAnother .Recipients = Array("Adam Bendel", _ "Jean Selva", "Bernard Gabor") .Subject = "Here is the workbook" .Message = "Here is the workbook. What do you think?" .ReturnWhenDone = True End With .Route End With