从Outlook的“收件人”，“收件人”，“接收时间”获取数据

Question

我正在尝试通过以下方法捕获Outlook邮件响应时间，但我收到了接收时间和邮件发件人姓名，但是我有一个问题是，如果我选择了其他邮件（而不是打开当前邮件项目的父邮件），它将捕获所选邮件信息。

我想要当前打开邮件项目的接收时间和发件人姓名，任何人都可以帮助我从当前项目Outlook标头戳中获取数据

发件人： 发送： 至： 主题：

感谢您宝贵的时间和帮助。

     Set objItems = ActiveExplorer.Selection.Item(1)
     RecievedTime = objItems.ReceivedTime
     Set objItem = objOutlook.ActiveInspector.CurrentItem


    Dim objPrope As Outlook.UserProperty

    Set UserPrope = objItem.UserProperties.Find("RT")
    If Not UserPrope Is Nothing Then
        strCurrent = objItem.UserProperties("RT").Value
    End If
     Set objPrope = objItem.UserProperties.Add("RT", olDateTime, True)
    objPrope.Value = Date_String
    Err.Clear

        Dim Sen As String
        Sen = objItems.Sender

    Set objItem = objOutlook.ActiveInspector.CurrentItem
    Set UserPropr = objItem.UserProperties.Find("RN")
    If Not UserPropr Is Nothing Then
        strCurrent = objItem.UserProperties("RN").Value
    End If
     Set objPropr = objItem.UserProperties.Add("RN", olText, True)
    objPropr.Value = Sen
    Err.Clear

    Set objItem = objOutlook.ActiveInspector.CurrentItem
    objItem.Save