Получить данные из Outlook От, До, Тема, Время получения - PullRequest
Новая
       11

Получить данные из Outlook От, До, Тема, Время получения

0 голосов
/ 21 мая 2019

Я пытаюсь зафиксировать время ответа почты 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
...