Jak uzyskać strefę czasową nadawcy odebranej wiadomości e-mail w Outlooku?

Pobranie strefy czasowej nadawcy otrzymanej wiadomości e-mail to dobry sposób na odpowiedź na wiadomość e-mail w odpowiednim czasie, aby Twoja praca była wydajniejsza. W tym artykule przedstawiono metody uzyskiwania strefy czasowej nadawcy odebranej wiadomości e-mail w programie Outlook.

Uzyskaj strefę czasową nadawcy odebranej wiadomości e-mail z nagłówkami internetowymi
Uzyskaj strefę czasową nadawcy otrzymanej wiadomości e-mail z kodem VBA
Automatycznie wyświetlaj strefę czasową nadawcy w nagłówku wiadomości za pomocą Kutools for Outlook

---

Uzyskaj strefę czasową nadawcy odebranej wiadomości e-mail z nagłówkami internetowymi

Strefę czasową nadawcy wiadomości e-mail można znaleźć w jej nagłówkach internetowych. Wykonaj następujące czynności.

1. Kliknij dwukrotnie, aby otworzyć wiadomość e-mail, w której otrzymasz strefę czasową nadawcy.

2. Następnie kliknij przycisk Opcje wiadomości przycisk w Tagi grupa pod Wiadomość patka. Zobacz zrzut ekranu:

3. w Właściwości w oknie, możesz zobaczyć strefę czasową nadawcy w Nagłówki internetowe pole, jak pokazano na poniższym zrzucie ekranu.

---

---

Uzyskaj strefę czasową nadawcy otrzymanej wiadomości e-mail z kodem VBA

Poniższy kod VBA może również pomóc w uzyskaniu strefy czasowej nadawcy otrzymanej wiadomości e-mail. Możesz wykonać następujące czynności.

1. Wybierz wiadomość e-mail, dla której otrzymasz strefę czasową jej nadawcy, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do modułu.

Kod VBA: pobierz strefę czasową nadawcy otrzymanej wiadomości e-mail w programie 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. wciśnij F5 klucz do uruchomienia kodu. Następnie Kutools dla programu Outlook pojawi się okno dialogowe ze strefą czasową nadawcy wymienioną w środku. Zobacz zrzut ekranu:

---

Automatycznie wyświetlaj strefę czasową nadawcy w nagłówku wiadomości za pomocą Kutools for Outlook

Jeśli chcesz wyświetlić strefę czasową nadawcy bezpośrednio w nagłówku wiadomości, wypróbuj narzędzie Strefy czasowej nadawcy w Kutools for Outlook.

1. Po zainstalowaniu Kutools dla programu Outlook przejdź do pliku Kutools Plus kartę, a następnie kliknij Pokaż informacje o wiadomości > Strefa czasowa nadawcy.

Następnie strefa czasowa nadawcy jest natychmiast wyświetlana w nagłówku wiadomości. Zobacz zrzut ekranu: