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

Автор: Силувия Последна промяна: 2020-12-10

Получаването на часовата зона на подателя на получен имейл е добър начин да отговорите на имейла в подходящо време, за да направите работата си по-ефективна. Тази статия предоставя някои методи за получаване на часовата зона на подателя на получен имейл в Outlook.

Вземете часовата зона на подателя на получен имейл с интернет заглавки
Вземете часовата зона на подателя на получен имейл с VBA код
Автоматично показване на часовата зона на изпращача в заглавката на съобщението с Kutools за Outlook

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

Можете да намерите часовата зона на изпращача на имейл в неговите интернет заглавки. Моля, направете следното.

1. Кликнете два пъти, за да отворите имейла, ще получите часовата зона на подателя.

2. След това кликнете върху Опции за съобщения бутон в Маркирания група под Събщение раздел. Вижте екранна снимка:

3. В Имоти прозорец, можете да видите часовата зона на подателя в Интернет заглавия поле, както е показано на екранната снимка по-долу.

-Часова зона на изпращача полезност на Kutools за Outlook може да ви помогне да покажете часовата зона на подателя в заглавката на съобщението само с едно щракване, както е показано на екранната снимка по-долу. Изтеглете и опитайте сега! (60-дневна безплатна пътека)

Вземете часовата зона на подателя на получен имейл с 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 за Outlook

Ако искате да покажете часовата зона на изпращача директно в заглавката на съобщението, моля, опитайте помощната програма Sender Time Zone на Kutools за Outlook.

1. След като инсталирате Kutools за Outlook, отидете на Kutools плюс , след което щракнете върху Показване на информация за съобщение > Часова зона на изпращача.

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

Ако искате да имате безплатен пробен период (60 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.