すぐに役立つエクセルVBAマクロ集 FAQ 送信したブックの受信状況

　すぐマク　YNxv9294

電子メールで送信したブックの受信状況を知るには？（RoutingSlip）

Ｑuestion 63.9　ブックシート

質問させてください。 Excelのバージョンは 2000です。
マクロを使用して、添付ファイルの送信を考えているのですが、ブック自体の添付ファイルの命令は下記の通りで、できました。
しかし、メールで送信する際に相手の受信日時がでてきません。どうすれば受信日時が明記されるのでしょうか？

Public Sub 送信()
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    
    With ActiveWorkbook
        .SaveAs "出張報告書.XLS"
    End With
    
    ActiveWorkbook.HasRoutingSlip = True
    With ActiveWorkbook.RoutingSlip
        .Delivery = xlAllAtOnce
        .Recipients = Array("dai@newlong.com")
        .Subject = "出張報告書"
        .Message = Range("C42")
        .ReturnWhenDone = False
    End With
    
    ActiveWorkbook.Route

End Sub

Ａnswer　　Excel 97以上

質問チケットをお持ちの方専用の質問フォームで送信いただきましたが、チケットNo.が未入力でした。後で結構ですからご連絡ください。

ご提示のマクロは、Excel2000の回覧機能（［ファイル］メニュー－［送信］）を利用して、1人の相手にブックを送信するためのものですね。
「相手の受信日時がでてきません。どうすれば･･･」ということですが、「メールで送信する際に」と言われるのは、送信したメール（および添付されたブック）を、相手が開いたかどうか知りたいということでしょうか？

・回覧先（RoutingSlipオブジェクト）関係のプロパティ ･･･ Excel 2002

プロパティ	機能	定数の値	型	回覧中の設定
Delivery	回覧順序	xlOneAfterAnother　：宛先リスト順にて xlAllAtOnce　：	Long	不可
Message	回覧先へのメッセージ	.	String	.
Recipients	回覧順序の宛先	.	Variant	.
ReturnWhenDone	回覧終了後に差出人に戻す	True　　：戻すそれ以外：戻さない	Boolean	不可
Status	回覧先の現状を取得する	xlNotYetRouted xlRoutingComplete xlRoutingInProgress	Long	－
Subject	件名を示す文字列	.	String	不可
TrackStatus	回覧先の状況管理	True　　：するそれ以外：しない	Boolean	不可
HasRoutingSlip	回覧先を設定	True　：設定する False　：削除する	Boolean	不可

・回覧先（RoutingSlipオブジェクト）関係のメソッド ･･･ Excel 2002

メソッド	機能	回覧中の設定
ReSet	回覧を新たに開始できるように回覧先をリセットする	不可

上表にある Statusプロパティの値を取得して現状を知る方法をとればよいのかも知れませんが、一度、あなたのマクロで ReturnWhenDoneプロパティの値を Falseに設定しているところを True に変えて試してみられたら如何でしょうか。
受信者側で、次のように表示されるかと思います。

添付されているファイルには回覧用紙が付いています。このファイルの内容を確認したら、[ファイル] メニューの [送信] - [次の回覧先] を選択して、送信者へ戻してください。

試した結果をぜひお知らせください。回覧機能の動作確認には、それに適した環境が必要であり個人ではなかなかできません。他の方々にも参考にしていただきましょう。

http://www.geocities.jp/happy_ngi/