Outlookで受信した電子メールの送信者のタイムゾーンを取得するにはどうすればよいですか？

受信した電子メールの送信者のタイムゾーンを取得することは、作業をより効率的にするために、適切な時間に電子メールに返信するための良い方法です。 この記事では、Outlookで受信した電子メールの送信者のタイムゾーンを取得するためのいくつかの方法を提供します。

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

---

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

電子メールの送信者のタイムゾーンは、インターネットヘッダーで確認できます。 次のようにしてください。

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 コードを実行するためのキー。 次に、 Outlook用Kutools ダイアログボックスがポップアップし、送信者のタイムゾーンがリストされます。 スクリーンショットを参照してください：

---

Kutools for Outlookを使用して、送信者のタイムゾーンをメッセージヘッダーに自動表示する

送信者のタイムゾーンをメッセージヘッダーに直接表示する場合は、Kutools forOutlookの送信者タイムゾーンユーティリティを試してください。

1. Kutools for Outlookをインストールした後、 クツールズプラス タブ、[OK]をクリックします メッセージ情報を表示する > 送信者のタイムゾーン.

その後、送信者のタイムゾーンがメッセージヘッダーにすぐに表示されます。 スクリーンショットを参照してください：