In diesem Beispiel wird der Betreff eines Verteilers für die offene Arbeitsmappe festgelegt. Damit Sie dieses Makro ausführen können, muss Microsoft Exchange installiert sein.
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