Wie ermitteln Sie die Zeitzone des Absenders einer empfangenen E-Mail in Outlook?

Die Zeitzone des Absenders einer empfangenen E-Mail zu kennen, ist eine gute Möglichkeit, die E-Mail zum passenden Zeitpunkt zu beantworten und so Ihre Arbeit effizienter zu gestalten. Dieser Artikel stellt einige Methoden vor, mit denen Sie die Zeitzone des Absenders einer empfangenen E-Mail in Outlook ermitteln können.

Ermitteln der Zeitzone des Absenders einer empfangenen E-Mail mithilfe von Internet-Headern
Ermitteln der Zeitzone des Absenders einer empfangenen E-Mail mithilfe von VBA-Code
Automatische Anzeige der Zeitzone des Absenders in der Nachrichtenkopfzeile mit Kutools für Outlook

---

Ermitteln der Zeitzone des Absenders einer empfangenen E-Mail mithilfe von Internet-Headern

Sie finden die Zeitzone des E-Mail-Absenders in den Internet-Headern der Nachricht. Gehen Sie dazu wie folgt vor:

1. Doppelklicken Sie auf die E-Mail, um die Zeitzone des Absenders anzuzeigen.

2. Klicken Sie anschließend auf der Registerkarte „Nachricht“ in der Gruppe „Tags“ auf die Schaltfläche „Nachrichtenoptionen“. Siehe Screenshot:

3. Im Fenster „Eigenschaften“ sehen Sie im Feld „Internet-Header“ die Zeitzone des Absenders, wie im folgenden Screenshot gezeigt.

---

---

Ermitteln der Zeitzone des Absenders einer empfangenen E-Mail mithilfe von VBA-Code

Der folgende VBA-Code unterstützt Sie ebenfalls dabei, die Zeitzone des Absenders einer empfangenen E-Mail zu ermitteln. Gehen Sie dazu wie folgt vor:

1. Wählen Sie eine E-Mail aus, deren Absender-Zeitzone Sie ermitteln möchten, und drücken Sie „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic für Applikationen“ zu öffnen.

2. Klicken Sie im Fenster „Microsoft Visual Basic für Applikationen“ auf „Einfügen“ > „Modul“.. Anschließend kopieren Sie den folgenden VBA-Code in das Modul.

VBA-Code: Ermitteln der Zeitzone des Absenders einer empfangenen E-Mail in 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. Drücken Sie die Taste „F5“, um den Code auszuführen. Anschließend öffnet sich das Dialogfeld „Kutools für Outlook“ mit der Zeitzone des Absenders. Siehe Screenshot:

---

Automatische Anzeige der Zeitzone des Absenders in der Nachrichtenkopfzeile mit Kutools für Outlook

Möchten Sie die Zeitzone des Absenders direkt in der Nachrichtenkopfzeile anzeigen, probieren Sie das „Sender Time Zone“-Dienstprogramm von Kutools für Outlook aus.

1. Navigieren Sie nach der Installation von Kutools für Outlook zur Registerkarte „KUTOOLS PLUS“ und klicken Sie auf „E-Mail-Informationen anzeigen“ > „Sender Time Zone“.

Anschließend wird die Zeitzone des Absenders sofort in der Nachrichtenkopfzeile angezeigt. Siehe Screenshot: