Sub file_send_rout()
	Workbooks("Book1.xls").HasRoutingSlip = True
	'HasRoutingSlipにTrueが設定されてないと
	'RoutingSlipにアクセスできないそうです
	With Workbooks("Book1.xls").RoutingSlip
    		.Delivery = xlOneAfterAnother
		'送信方法を順次送るようにします
		'一括で送る場合はxlAllAtOnceにします
    		.Recipients = Array("ちゅん","あいん")
		'送信先にちゅんとあいんを選択します
		'名前がない場合エラーを返します
    		.Subject = "Book1.xlsを送ります。"
		'件名
    		.Message = "意見をお聞かせください。"
		'本文
    		.ReturnWhenDone = True
		'回覧後発信者に戻るようにします
    		.TrackStatus = True
		'回覧先に対して状況管理を有効にします
	End With
	Workbooks("Book1.xls").Route
	'Book1.xlsを送信します
End Sub