Outlook で受信したメールの送信者のタイムゾーンを取得する方法は？

受信メールの送信者がどのタイムゾーンにいるかを把握しておけば、最適なタイミングで返信でき、業務効率がさらにアップします。本記事では、Outlook で受信したメールの送信者タイムゾーンを確認するためのいくつかの方法をご紹介します。

インターネットヘッダーを使用して受信メールの送信者タイムゾーンを取得する
VBA コードを使用して受信メールの送信者タイムゾーンを取得する
Kutools for Outlook を使用して送信者タイムゾーンをメッセージヘッダーに自動表示する

---

インターネットヘッダーを使用して受信メールの送信者タイムゾーンを取得する

メールのインターネットヘッダーには、送信者のタイムゾーン情報が含まれています。以下の手順に従ってください。

1。送信者のタイムゾーンを確認したいメールをダブルクリックして開きます。

2。「メッセージ」タブの「タグ」グループにある「メッセージオプション」ボタンをクリックしてください。スクリーンショットをご参照ください。

3。「プロパティ」ウィンドウの「インターネットヘッダー」ボックスには、下記スクリーンショットのように送信者のタイムゾーンが表示されます。

---

---

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」タブに移動し、「メール情報を表示」＞「送信者のタイムゾーン」をクリックしてください。

すると、送信者のタイムゾーンがメッセージヘッダーに即座に表示されます。スクリーンショットをご参照ください。