كيفية الحصول على المنطقة الزمنية للمرسل لبريد إلكتروني مستلم في Outlook؟

يعد الحصول على المنطقة الزمنية للمرسل للبريد الإلكتروني المستلم طريقة جيدة للرد على البريد الإلكتروني في الوقت المناسب من أجل جعل عملك أكثر كفاءة. توفر هذه المقالة بعض الطرق لك للحصول على المنطقة الزمنية للمرسل لرسالة بريد إلكتروني مستلمة في Outlook.

احصل على المنطقة الزمنية للمرسل لرسالة بريد إلكتروني مستلمة مع رؤوس الإنترنت
احصل على المنطقة الزمنية للمرسل لبريد إلكتروني مستلم برمز VBA
عرض المنطقة الزمنية للمرسل تلقائيًا على رأس الرسالة باستخدام Kutools for Outlook

---

احصل على المنطقة الزمنية للمرسل لرسالة بريد إلكتروني مستلمة مع رؤوس الإنترنت

يمكنك العثور على المنطقة الزمنية للمرسل لبريد إلكتروني في رؤوس الإنترنت الخاصة به. الرجاء القيام بما يلي.

1. انقر نقرًا مزدوجًا لفتح البريد الإلكتروني الذي ستحصل فيه على المنطقة الزمنية للمرسل.

2. ثم انقر فوق خيارات الرسالة زر في الاوسمة المتعلقة بالخدمة (تاج) مجموعة تحت الرسالة التبويب. انظر لقطة الشاشة:

3. في ال عقارات نافذة ، يمكنك رؤية المنطقة الزمنية للمرسل في ملف رؤوس الإنترنت مربع كما هو موضح أدناه لقطة الشاشة.

---

---

احصل على المنطقة الزمنية للمرسل لبريد إلكتروني مستلم برمز VBA

يمكن أن يساعد رمز VBA أدناه أيضًا في الحصول على المنطقة الزمنية للمرسل للبريد الإلكتروني المستلم. يمكنك القيام بما يلي.

1. حدد بريدًا إلكترونيًا ستحصل على المنطقة الزمنية لمرسله ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز 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

إذا كنت ترغب في عرض المنطقة الزمنية للمرسل مباشرة على رأس الرسالة ، يرجى تجربة الأداة المساعدة Sender Time Zone في Kutools for Outlook.

1. بعد تثبيت Kutools for Outlook ، انتقل إلى كوتولس بلس ثم انقر فوق إظهار معلومات الرسالة > المنطقة الزمنية للمرسل.

ثم يتم عرض المنطقة الزمنية للمرسل على رأس الرسالة على الفور. انظر لقطة الشاشة: