如何在Outlook中获取已接收电子邮件的发件人所在的时区？

获取已接收电子邮件的发件人所在的时区是一种在适当的时间回复电子邮件以提高工作效率的好方法。 本文提供了一些方法，可让您获取Outlook中收到的电子邮件的发件人所在的时区。

获取带有Internet标头的已接收电子邮件的发件人所在的时区
使用VBA代码获取收到的电子邮件的发件人所在的时区
使用Kutools for Outlook在邮件标题上自动显示发件人的时区

---

获取带有Internet标头的已接收电子邮件的发件人所在的时区

您可以在其Internet标头中找到电子邮件的发件人所在的时区。 请执行以下操作。

1.双击打开电子邮件，您将获得发件人的时区。

2.然后点击 讯息选项 按钮在 标签 组下 留言内容： 标签。 看截图：

3。 在里面 租房 窗口中，您可以在中查看发件人的时区 互联网标题 框如下图所示。

---

---

使用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 展望 弹出对话框，其中列出了发件人的时区。 看截图：

---

使用Kutools for Outlook在邮件标题上自动显示发件人的时区

如果要直接在邮件标题上显示发件人的时区，请尝试使用Kutools for Outlook的“发件人时区”实用程序。

1.安装Kutools for Outlook后，转到 Kutools 加 标签，然后单击 显示消息信息 > 发件人时区.

然后，发件人的时区立即显示在邮件标题上。 看截图：