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

Author: Siluvia Last Modified: 2025-05-30

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

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

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

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

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

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

doc-get-sender-time-zone-1

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

doc-get-sender-time-zone-2

يمكن أن تساعدك أداة "منطقة زمنية المرسل" من أدوات Kutools لـ Outlook على عرض منطقة زمنية المرسل في رأس الرسالة بنقرة واحدة فقط كما هو موضح في لقطة الشاشة أدناه. قم بتنزيلها وتجربتها الآن! (30-day free trail)

الحصول على منطقة زمنية المرسل للبريد الإلكتروني المستلم باستخدام كود 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 لـ Outlook" مع عرض منطقة زمنية المرسل داخلها. انظر إلى لقطة الشاشة:

doc-get-sender-time-zone-3

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

إذا كنت تريد عرض منطقة زمنية المرسل مباشرةً في رأس الرسالة، يرجى تجربة أداة منطقة زمنية المرسل من أدوات Kutools لـ Outlook.

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

1. بعد تثبيت أدوات Kutools لـ Outlook، انتقل إلى علامة التبويب "Kutools Plus"، ثم انقر فوق "عرض معلومات البريد الإلكتروني" > "منطقة زمنية المرسل".

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