How to get sender’s time zone of a received email in Outlook?

Getting sender’s time zone of a received email is a good way for you to reply the email in a proper time in order to make your work more efficiently. This article provides some methods for you to get sender’s time zone of a received email in Outlook.

Get sender’s time zone of a received email with Internet headers
Get sender’s time zone of a received email with VBA code
Auto display sender’s time zone on message header with Kutools for Outlook

---

Get sender’s time zone of a received email with Internet headers

You can find sender’s time zone of an email in its Internet headers. Please do as follows.

1. Double click to open the email you will get the sender’s time zone.

2. Then click the Message Options button in the Tags group under Message tab. See screenshot:

3. In the Properties window, you can see the sender’s time zone in the Internet headers box as below screenshot shown.

---

---

Get sender’s time zone of a received email with VBA code

The below VBA code can also help to get sender’s time zone of a received email. You can do as follows.

1. Select an email you will get its sender’s time zone, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the Module.

VBA code: Get sender’s time zone of a received email 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. Press the F5 key to run the code. Then a Kutools for Outlook dialog box pops up with sender’s time zone listed inside. See screenshot:

---

Auto display sender’s time zone on message header with Kutools for Outlook

If you want to display the sender’s time zone directly on the message header, please try the Sender Time Zone utility of Kutools for Outlook.

1. After installing Kutools for Outlook, go to the Kutools Plus tab, and then click Show Message Info > Sender Time Zone.

Then sender’s time zone is displayed on message header immediately. See screenshot: