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

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

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

---

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

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

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

2. بعد ذلك، انقر على زر «خيارات الرسالة» في مجموعة «العلامات» ضمن علامة التبويب «رسالة». راجع لقطة الشاشة:

3. في نافذة «الخصائص»، يمكنك رؤية منطقة توقيت المرسِل ضمن مربع «رؤوس الإنترنت»، كما يظهر في لقطة الشاشة أدناه.

---

---

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

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

1. حدد رسالة البريد الإلكتروني التي تريد معرفة منطقة توقيت مرسلها، ثم اضغط على مفتاحَي «Alt» + "F11" لفتح نافذة «مايكروسوفت فيجوال بيسك لأغراض التطبيقات».

2. في نافذة «مايكروسوفت فيجوال بيسك لأغراض التطبيقات»، انقر على «إدراج» > «وحدة». ثم انسخ كود 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» تعرض منطقة توقيت المرسِل. انظر لقطة الشاشة:

---

عرض منطقة توقيت المرسِل تلقائيًا في رأس الرسالة باستخدام Kutools لـ Outlook

إذا كنت ترغب في عرض منطقة توقيت المرسِل مباشرةً في رأس الرسالة، جرّب أداة «منطقة توقيت المرسِل» من Kutools لـ Outlook!

1. بعد تثبيت Kutools لـ Outlook، انتقل إلى علامة التبويب «KUTOOLS PLUS»، ثم انقر على «عرض معلومات البريد الإلكتروني» > «منطقة توقيت المرسِل».

بعد ذلك، يظهر فورًا منطقة توقيت المرسِل في رأس الرسالة. انظر لقطة الشاشة: