Как узнать часовой пояс отправителя полученного письма в Outlook?

Получение часового пояса отправителя в полученном электронном письме - это хороший способ своевременно ответить на электронное письмо, чтобы сделать вашу работу более эффективной. В этой статье представлены некоторые методы, позволяющие узнать часовой пояс отправителя в полученном электронном письме в Outlook.

Получение часового пояса отправителя полученного письма с заголовками в Интернете
Получить часовой пояс отправителя полученного письма с кодом VBA
Автоматическое отображение часового пояса отправителя в заголовке сообщения с помощью Kutools for Outlook

---

Получение часового пояса отправителя полученного письма с заголовками в Интернете

Вы можете найти часовой пояс отправителя электронного письма в его заголовках в Интернете. Пожалуйста, сделайте следующее.

1. Дважды щелкните, чтобы открыть письмо, в котором вы получите часовой пояс отправителя.

2. Затем нажмите Параметры сообщения в Теги группа под Текст обращения таб. Смотрите скриншот:

3. в Свойства в окне вы можете увидеть часовой пояс отправителя в Интернет-заголовки коробка, как показано ниже.

---

---

Получить часовой пояс отправителя полученного письма с кодом VBA

Приведенный ниже код VBA также может помочь узнать часовой пояс отправителя полученного электронного письма. Вы можете сделать следующее.

1. Выберите электронное письмо, в котором будет указан часовой пояс отправителя, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модуль. Затем скопируйте ниже код VBA в модуль.

Код VBA: получить часовой пояс отправителя полученного письма в Outlook

Sub DisplayTimeZone()
'Updated by Extendoffice 2018/08/22
    Dim xMailItem As MailItem
    Dim xItem As Object, xTimezone As String
    Set xItem = Outlook.Application.ActiveExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    xTimezone = GetTimeZoneFromHeader(xMailItem)
    MsgBox xTimezone, vbInformation, "Kutools for Outlook"
    Set xMailItem = Nothing
End Sub

Function GetTimeZoneFromHeader(Item As Outlook.MailItem) As String
    Dim xPropertyAccessor As Outlook.PropertyAccessor
    Dim xHeader As String, xLineArr As Variant, xLine As Variant
    Const xInternetHeader As String = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    On Error Resume Next
    Set xPropertyAccessor = Item.PropertyAccessor
    xHeader = xPropertyAccessor.GetProperty(xInternetHeader)
    If Len(xHeader) = 0 Then
        MsgBox "The message header is empty.", vbInformation, "Kutools for Outlook"
        Exit Function
    End If
    xLineArr = Split(xHeader, vbCrLf)
    For Each xLine In xLineArr
        If InStr(xLine, "Date:") = 1 Then
            GetTimeZoneFromHeader = Trim(Replace(xLine, "Date:", ""))
        End If
    Next
    Set xPropertyAccessor = Nothing
End Function

3. нажмите F5 ключ для запуска кода. Потом Kutools для Outlook появится диалоговое окно с указанием часового пояса отправителя. Смотрите скриншот:

---

Автоматическое отображение часового пояса отправителя в заголовке сообщения с помощью Kutools for Outlook

Если вы хотите отображать часовой пояс отправителя непосредственно в заголовке сообщения, попробуйте утилиту «Часовой пояс отправителя» в Kutools for Outlook.

1. После установки Kutools for Outlook перейдите в Кутулс Плюс Вкладка, а затем нажмите кнопку Показать информацию о сообщении > Часовой пояс отправителя.

Тогда часовой пояс отправителя сразу отображается в заголовке сообщения. Смотрите скриншот: