電子メールで送信したブックの受信状況を知るには?(RoutingSlip)

Question 63.9   Previous Next
質問させてください。 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
Answer   Copyright (C) 2003.10.20 永井善王
質問チケットをお持ちの方専用の質問フォームで送信いただきましたが、チケット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 に変えて試してみられたら如何でしょうか。
受信者側で、次のように表示されるかと思います。
添付されているファイルには回覧用紙が付いています。このファイルの内容を確認したら、[ファイル] メニューの [送信] - [次の回覧先] を選択して、送信者へ戻してください。

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

Excel VBA Macro