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

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

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

---

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

Часовой пояс отправителя письма можно найти в интернет-заголовках сообщения. Выполните следующие действия.

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

2. Затем на вкладке «Сообщение» в группе «Метки» нажмите кнопку «Параметры сообщения». См. снимок экрана:

3. В окне «Свойства» часовой пояс отправителя отображается в поле «Интернет-заголовки», как показано на снимке экрана ниже.

---

---

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

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

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

2. В окне «Microsoft Visual Basic for Applications» выберите «Вставка» > «Модуль».. Затем скопируйте приведённый ниже код 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 для Outlook

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

1. После установки Kutools для Outlook перейдите на вкладку «KUTOOLS PLUS» и выберите «Показать информацию о письме» > «Часовой пояс отправителя».

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