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

了解已收邮件发件人的时区，有助于您选择最佳回复时间，从而提升工作效率。本文将为您介绍几种在 Outlook 中获取已收邮件发件人时区的方法。

通过 Internet 标头获取已收邮件的发件人时区
通过 VBA 代码获取已收邮件的发件人时区
利用 Kutools for Outlook 自动在邮件标题中显示发件人时区

---

通过 Internet 标头获取已收邮件的发件人时区

您可以在邮件的 Internet 标头中查看发件人的时区。请按照以下步骤操作。

1. 双击打开您希望获取发件人时区信息的邮件。

2. 接着，在“邮件”选项卡的“标签”组中，点击“邮件选项”按钮。请参考截图：

3. 在“属性”窗口中，您可以在“Internet 标头”框中查看发件人的时区，具体如下面的截图所示。

---

---

通过 VBA 代码获取已收邮件的发件人时区

下面的 VBA 代码同样能够帮助您获取已收邮件的发件人时区。具体操作步骤如下：

1. 选中您想要获取发件人时区的邮件后，按下“Alt” + “F11”键，打开“Microsoft Visual Basic for Applications”窗口。

2. 在“Microsoft Visual Basic for Applications”窗口中，点击“插入”>“模块”。然后将以下 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 for Outlook”对话框，并显示发件人的时区。请参见截图：

---

利用 Kutools for Outlook 自动在邮件标题中显示发件人时区

如果您希望在邮件标题中直接显示发件人时区，欢迎体验 Kutools for Outlook 的发件人时区功能。

1. 安装 Kutools for Outlook 后，进入 “KUTOOLS PLUS” 选项卡，点击 “显示邮件信息” > “发件人时区”。

此时，发件人的时区将立即显示在邮件标题中，如截图所示：