استخراج البريد الإلكتروني في Outlook: استخرج المعلومات الرئيسية مثل الأسماء والشركات والأرقام وعناوين البريد الإلكتروني

Author: Sun Last Modified: 2025-08-06

في ظل التواصل عبر البريد الإلكتروني السريع اليوم، يعد استخراج المعلومات الرئيسية من الرسائل الإلكترونية - مثل الأسماء وعناوين البريد الإلكتروني والأرقام (مثل الأسعار وأرقام الهواتف) وأسماء الشركات - أمرًا بالغ الأهمية. خاصة عند التعامل مع رسائل البريد الإلكتروني الطويلة، فإن استخراج هذه المعلومات لا يساعد المستخدمين فقط على فهم المحتوى بشكل أسرع، ولكنه يحسن أيضًا كفاءة العمل ودقته بشكل كبير. يقدم هذا البرنامج التعليمي ثلاث طرق لاستخراج معلومات البريد الإلكتروني: الاستخراج اليدوي، والاستخراج شبه التلقائي باستخدام VBA، واستخراج Kutools AI بالكامل تلقائيًا، مما يساعدك على اختيار النهج الأنسب لاحتياجاتك.

الاستخراج التقليدي – يدوي

نسخ ولصق البيانات يدويًا من رسائل البريد الإلكتروني. بسيط ولكنه بطيء ومعرض للأخطاء.

Kutools AI للاستخراج – تلقائي بالكامل

استخراج البيانات تلقائيًا بنقرة واحدة باستخدام مساعد AI الخاص بـ Kutools for Outlook. سريع ودقيق وسهل الاستخدام.

VBA للاستخراج – شبه تلقائي

استخدم سكريبتات VBA لتشغيل الاستخراج جزئيًا. يتطلب مهارات برمجة ويقدم تخصيصًا محدودًا.

الاستخراج التقليدي – يدوي

الاستخراج اليدوي هو الطريقة الأساسية التي تتطلب من المستخدمين فتح رسائل البريد الإلكتروني، وتحديد المعلومات الرئيسية يدويًا (مثل الأسماء وعناوين البريد الإلكتروني وأرقام الهواتف)، ثم نسخها ولصقها في Excel أو مستندات أخرى.

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

الخطوة 2. حدد يدويًا واختر المعلومات الرئيسية (مثل الأسماء وعناوين البريد الإلكتروني وأرقام الهواتف)، ثم اضغط على Ctrl + C لنسخها.

الخطوة 3. انتقل إلى Excel أو مستندات أخرى واضغط على Ctrl + V للصق.

الإيجابيات والسلبيات

الإيجابيات

لا تحتاج إلى أدوات إضافية.
بسيطة ومناسبة للاستخدام العرضي.

السلبيات

تستهلك وقتًا وتكون عرضة للأخطاء، خاصة مع كميات كبيرة من رسائل البريد الإلكتروني.
غير مناسبة للاستخدام المتكرر أو مهام الاستخراج على نطاق واسع.

Kutools AI للاستخراج – تلقائي بالكامل

يقدم مساعد AI الخاص بـ Kutools for Outlook حلًا تلقائيًا بالكامل. باستخدام تقنية الذكاء الاصطناعي المتقدمة، يمكن للمستخدمين استخراج المعلومات الرئيسية (مثل الأسماء وأسماء الشركات وأرقام الهواتف وعناوين البريد الإلكتروني) بنقرة واحدة فقط.

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

الخطوة 1. قم بتثبيت Kutools for Outlook، ثم افتح Outlook، انقر فوق Kutools > AI لتمكين ميزة Kutools AI.

ملاحظة:

إذا كنت تستخدم ميزة AI الخاصة بـ Kutools في Outlook لأول مرة، سيظهر لك مربع حوار إعدادات AI، والذي سيطالبك باختيار مزود AI (مثل OpenAI، Google Gemini، Baidu) وإدخال مفتاح AI الخاص بك.
إذا لم يكن لديك مفتاح AI حتى الآن، أوصيك بتطبيق مفتاح AI الخاص بـ Kutools، والذي يتيح لك استخدام ميزات Kutools AI مجانًا لمدة 100 مرة. كيف يمكنني الحصول على مفتاح AI الخاص بـ Kutools؟

الخطوة 2. انتقل إلى لوحة Kutools AI المفعلة، انقر فوق علامة التبويب Extract، ثم انقر فوق زر Generate لاستخراج المعلومات من البريد الإلكتروني الحالي بواسطة AI.

يمكنك رؤية أن جميع المعلومات الرئيسية قد تم استخراجها وسردها في اللوحة.

الخطوة 3 - 1. إذا لم يتم ترتيب المحتوى بشكل صحيح، انقر فوق زر Regenerate للسماح لـ AI باستخراج معلومات رئيسية جديدة لك.

الخطوة 3 - 2. إذا كنت راضيًا عن المحتوى، انقر فوق Copy button لنسخ المحتوى المستخرج، والصقه في أي مكان تريده.

التخصيص

يمكن للمستخدمين تخصيص أنواع المعلومات المراد استخراجها (مثل الأسماء وأسماء الشركات وأرقام الهواتف).

انقر فوق إدارة مكتبة المهارات زر، حدد Extract المهارة، وانقر فوق إضافة خيارات زر لإدخال طلباتك المخصصة وحفظها.

الإيجابيات والسلبيات

الإيجابيات

لا يتطلب معرفة برمجية؛ سهل الاستخدام.
استخراج سريع بدقة عالية.
قابل للتخصيص للغاية ومرونة.

السلبيات

يجب تثبيت Kutools for Outlook

VBA للاستخراج – شبه تلقائي

VBA (Visual Basic for Applications) هي طريقة شبه آلية تتيح للمستخدمين استخراج معلومات محددة من رسائل البريد الإلكتروني عن طريق كتابة السكريبتات.

ملاحظة: يمكن لـ VBA المقدمة هنا استخراج عناوين البريد الإلكتروني والأرقام فقط، مع عرض المحتوى المستخرج في مربع حوار دون القدرة على النسخ.

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

الخطوة 2. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications، ثم انقر فوق Insert > Module لإنشاء وحدة جديدة.

الخطوة 3. انسخ VBA أدناه والصقه في الوحدة الجديدة.

VBA: استخراج عناوين البريد الإلكتروني والأرقام من البريد الإلكتروني الحالي

Sub ExtractDataFromCurrentEmail()
'UpdateByKutools
    Dim xCurEmail As Object
    Dim xEmailBody As String
    Dim xEmailPattern As String
    Dim xPhonePattern As String
    Dim xMatches As Object
    Dim xMatch As Variant
    Dim xExtractedData As String
    On Error Resume Next
    'Get the currently selected email
    If Application.ActiveWindow = Inspector Then
        Set xCurEmail = Application.ActiveInspector.CurrentItem
    Else
        Set xCurEmail = Application.ActiveExplorer.Selection.Item(1)
    End If
    'Check if the selected item is an email
    If xCurEmail.Class <> olMail Then
        MsgBox "Please select an email to extract data.", vbExclamation
        Exit Sub
    End If
    'Extract the email body
    xEmailBody = xCurEmail.Body
    'Define regex patterns for email addresses, and phone numbers
    xEmailPattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    xPhonePattern = "\d+"
    'Initialize the extracted data string
    xExtractedData = "Extracted Data:" & vbCrLf & vbCrLf
    'Extract email addresses using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xEmailPattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Email Addresses:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
        xExtractedData = xExtractedData & vbCrLf
    Else
        xExtractedData = xExtractedData & "No email addresses found." & vbCrLf & vbCrLf
    End If
    'Extract phone numbers using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xPhonePattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Numbers:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
    Else
        xExtractedData = xExtractedData & "No numbers found." & vbCrLf
    End If
    'Display the extracted data in a message box
    MsgBox xExtractedData, vbInformation, "Extracted Data"
End Sub

Function ExtractUsingRegex(Text As String, Pattern As String) As Object
    Dim xRegex As Object
    Set xRegex = CreateObject("VBsrcipt.RegExp")
    With xRegex
        .Global = True
        .IgnoreCase = True
        .Pattern = Pattern
    End With
    Set ExtractUsingRegex = xRegex.Execute(Text)
End Function

الخطوة 4. انقر فوق Run زر أو اضغط على F5 مفتاح، ثم انقر فوق الزر Run لتشغيل الكود.

يظهر مربع حوار لعرض المعلومات المستخرجة.

الإيجابيات والسلبيات

الإيجابيات

يقلل الجهد اليدوي، مناسب للمستخدمين الذين لديهم معرفة برمجية.
يقلل الجهد اليدوي، مناسب للمستخدمين الذين لديهم معرفة برمجية.

السلبيات

يتطلب مهارات برمجية؛ تخصيص قواعد الاستخراج يتضمن تعديل السكريبت.
قد تفتقر نتائج الاستخراج إلى الدقة، وإدارة البيانات غير مريحة.
إذا فقدت سكريبت VBA، يجب إعادة كتابته أو استعادته.

مقارنة بين الطرق

الطريقة	الاستخراج اليدوي	Kutools	VBA
سهولة الاستخدام	بسيط	سهل جدًا	معتدل
الأفضل لـ	الاستخدام العرضي	المهام المتكررة أو على نطاق واسع	المستخدمين المتقدمين
التخصيص	لا شيء	قابل للتخصيص للغاية	محدود (يتطلب برمجة)
سرعة الاستخراج	بطيء	سريع	معتدل
الدقة	منخفضة	عالية	معتدلة

سواء كنت بحاجة إلى استخراج المعلومات بشكل عرضي أو التعامل مع كميات كبيرة من رسائل البريد الإلكتروني بشكل متكرر، فإن الطرق الثلاث المقدمة في هذا البرنامج التعليمي يمكن أن تلبي احتياجاتك. إذا كنت تبحث عن حل سريع ودقيق وخالٍ من البرمجة، فإن مساعد AI الخاص بـ Kutools for Outlook هو الخيار الأفضل لك. قم بتنزيله الآن واستمتع بتجربة مجانية لتجربة سهولة استخراج البريد الإلكتروني بنقرة واحدة!