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

Отримати часовий пояс відправника отриманого електронного листа - це хороший спосіб для вас відповісти на повідомлення в належний час, щоб зробити вашу роботу більш ефективною. У цій статті наведено деякі методи отримання часового поясу відправника отриманого електронного листа в Outlook.

Отримайте часовий пояс відправника отриманого електронного листа за допомогою заголовків Інтернету
Отримайте часовий пояс відправника отриманого електронного листа з кодом VBA
Автоматичне відображення часового поясу відправника в заголовку повідомлення за допомогою Kutools для Outlook

Отримайте часовий пояс відправника отриманого електронного листа за допомогою заголовків Інтернету

Ви можете знайти часовий пояс відправника електронного листа в його Інтернет-заголовках. Будь ласка, виконайте наступне.

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

2 Потім натисніть на Параметри повідомлення кнопка в Теги група під Повідомлення вкладку. Дивіться знімок екрана:

3 В властивості у вікні ви можете побачити часовий пояс відправника в Інтернет-заголовки як показано нижче скріншот.

КомандаЧасовий пояс відправника корисність Kutools для Outlook може допомогти вам відобразити часовий пояс відправника в заголовку повідомлення лише одним клацанням миші, як показано на знімку екрана нижче. Завантажте та спробуйте зараз! (60 днів безкоштовно)

Отримайте часовий пояс відправника отриманого електронного листа з кодом VBA

Наведений нижче код VBA також може допомогти отримати часовий пояс відправника отриманого електронного листа. Ви можете зробити наступне.

1. Виберіть електронний лист, у якому ви отримаєте часовий пояс відправника, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль. Потім скопіюйте нижче код 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 клавіша для запуску коду. Тоді a Kutools для Outlook спливає діалогове вікно з часовим поясом відправника, вказаним усередині. Дивіться знімок екрана:

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

Якщо ви хочете відобразити часовий пояс відправника безпосередньо в заголовку повідомлення, спробуйте скористатися утилітою Sender Time Zone у Kutools для Outlook.

1. Після встановлення Kutools для Outlook перейдіть до Kutools Plus вкладку, а потім натисніть кнопку Показати інформацію про повідомлення > Часовий пояс відправника.

Тоді часовий пояс відправника негайно відображається в заголовку повідомлення. Дивіться знімок екрана:

Якщо ви хочете отримати безкоштовну пробну версію (60 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.