Outlook VBAでメールにリプライした日時を取得する

GetRepliedAt.vb

Dim m As Outlook.MailItem
Set m = GetMailItem(...)  ' リプライした日時を取得したいMailItemを取得するなにか
    
' MailItemのPropertyAccessorを使ってリプライした日時を取得する
Dim pa As Outlook.PropertyAccessor
Set pa = m.PropertyAccessor

' MailItemの返信済ステータスを取得
' 102: 返信, 103: 全員に返信, 104: 転送
Dim replyStatus As Integer
replyStatus = pa.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
Select Case replyStatus
  Case 102, 103, 104  ' リプライ済の場合だけ、リプライ日時が取得できる
    Dim repliedAtUTC As Date, repliedAtJST As Date
    repliedAtUTC = pa.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10820040")
    repliedAtJST = DateAdd("h", 9, repliedAtUTC)  ' リプライ日時はUTCで取れるみたいなので、日本時間に直す(+9時間)
    Debug.Print "Replied At:" & repliedAtJST
End Select