วิธีรับเขตเวลาของผู้ส่งของอีเมลที่ได้รับใน Outlook?

การรับเขตเวลาของอีเมลที่ได้รับของผู้ส่งเป็นวิธีที่ดีสำหรับคุณในการตอบกลับอีเมลในเวลาที่เหมาะสมเพื่อให้งานของคุณมีประสิทธิภาพมากขึ้น บทความนี้แสดงวิธีการบางอย่างเพื่อให้คุณได้รับเขตเวลาของผู้ส่งของอีเมลที่ได้รับใน Outlook

รับเขตเวลาของผู้ส่งของอีเมลที่ได้รับพร้อมส่วนหัวอินเทอร์เน็ต
รับเขตเวลาของผู้ส่งของอีเมลที่ได้รับพร้อมรหัส VBA
แสดงเขตเวลาของผู้ส่งโดยอัตโนมัติในส่วนหัวของข้อความด้วย Kutools for Outlook

รับเขตเวลาของผู้ส่งของอีเมลที่ได้รับพร้อมส่วนหัวอินเทอร์เน็ต

คุณสามารถค้นหาเขตเวลาของอีเมลของผู้ส่งได้ในส่วนหัวอินเทอร์เน็ต กรุณาดำเนินการดังนี้

1. ดับเบิลคลิกเพื่อเปิดอีเมลคุณจะได้รับเขตเวลาของผู้ส่ง

2 จากนั้นคลิกปุ่ม ตัวเลือกข้อความ ปุ่มใน แท็ก กลุ่มภายใต้ ระบุความประสงค์หรือขอข้อมูลเพิ่มเติม แท็บ ดูภาพหน้าจอ:

3 ใน อสังหาริมทรัพย์ คุณจะเห็นเขตเวลาของผู้ส่งในไฟล์ ส่วนหัวของอินเทอร์เน็ต กล่องด้านล่างภาพหน้าจอที่แสดง

พื้นที่โซนเวลาของผู้ส่ง ประโยชน์ของ Kutools สำหรับ Outlook สามารถช่วยให้คุณแสดงเขตเวลาของผู้ส่งในส่วนหัวของข้อความโดยมีเพียงคลิคเดียวตามภาพด้านล่าง ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 60 วัน)

รับเขตเวลาของผู้ส่งของอีเมลที่ได้รับพร้อมรหัส 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 สำหรับ Outlook กล่องโต้ตอบจะปรากฏขึ้นพร้อมกับเขตเวลาของผู้ส่งที่แสดงอยู่ภายใน ดูภาพหน้าจอ: