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

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

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

---

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

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

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

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

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

---

---

Отримайте часовий пояс відправника отриманого електронного листа з кодом 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

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

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

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