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

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

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

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

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

استخرج البيانات تلقائيًّا بنقرة واحدة باستخدام مساعد الذكاء الاصطناعي من Kutools لـ Outlook — سريع، دقيق، وسهل الاستخدام!

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

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

---

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

---

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

الخطوة 1. افتح الرسالة المستهدفة واطّلع على محتواها.

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

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

---

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

---

Kutools لـ Outlook’s مساعد الذكاء الاصطناعييقدم حلاً تلقائيًّا بالكامل! وباستخدام تقنية الذكاء الاصطناعي المتقدمة، يمكنك استخراج المعلومات الأساسية—مثل الأسماء، واسم الشركة، ورقم الهاتف، وعنوان البريد الإلكتروني—بنقرة واحدة!

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

الخطوة 2. انتقل إلى لوحةKUTOOLS AI المفعّلة، وانقر على تبويباستخراج، ثم انقر على زرإنشاءلاستخراج المعلومات من الرسالة الحالية باستخدام الذكاء الاصطناعي.

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

الخطوة 3 - 1. إذا لم يكن المحتوى واضحًا، انقر على زرإعادة الإنشاءليقوم الذكاء الاصطناعي باستخراج معلومات أساسية جديدة لك.

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

التخصيص

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

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

---

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

---

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

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

الخطوة 1. افتح الرسالة المستهدفة واطّلع على محتواها.

الخطوة 2. اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات، ثم انقرإدراج > وحدةلإنشاء وحدة جديدة.

الخطوة 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. انقر على زرتشغيل أو اضغط على مفتاحF5، ثم انقر على زر التشغيل لتنفيذ الكود.

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

---

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

---

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

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

مقالات ذات صلة

• مدقق قواعد Outlook: تأكد من خلو رسائلك الإلكترونية من الأخطاء
• الرد على الرسائل الإلكترونية في Outlook بسلاسة باستخدام قوة الذكاء الاصطناعي
• تبسيط كتابة الرسائل الإلكترونية: استخدام الذكاء الاصطناعي في Outlook أصبح سهلاً
• تلخيص الرسائل الإلكترونية في Outlook باستخدام الذكاء الاصطناعي