كيفية تصدير البريد الإلكتروني من Outlook إلى Excel تلقائيًا؟

Author: Xiaoyang Last Modified: 2025-05-30

عادةً، يمكنك تصدير البريد الإلكتروني من Outlook إلى Excel باستخدام ميزة الاستيراد/التصدير. ومع ذلك، إذا كنت بحاجة إلى تصدير البريد الإلكتروني الوارد تلقائيًا إلى ملف Excel بمجرد وصوله، فإن Outlook لا يوفر حلاً مدمجًا لذلك. يقدم هذا المقال طريقتين لتحقيق ذلك:

تصدير البريد الإلكتروني الوارد الجديد من صندوق الوارد إلى Excel باستخدام VBA (يدوي وممل)

تصدير جميع البريد الإلكتروني من مجلد محدد إلى تقرير Excel بسرعة مع أدوات Kutools لـ Outlook 👍 (سريع وسهل)

تصدير البريد الإلكتروني الوارد الجديد تلقائيًا من صندوق الوارد إلى Excel باستخدام VBA

إذا كنت بحاجة إلى طريقة آلية لتصدير البريد الإلكتروني الجديد إلى Excel، يمكنك استخدام الكود التالي لـ VBA. تقوم هذه الطريقة بمراقبة مجلد صندوق الوارد وتصدير تفاصيل البريد الإلكتروني الجديد إلى ملف Excel بمجرد وصوله.

الخطوة 1: إعداد ملف Excel

قبل تنفيذ كود VBA، قم بإعداد مصنف Excel لتخزين بيانات البريد الإلكتروني المصدرة. في الصف الأول، قم بتضمين رؤوس الأعمدة التالية: التسلسل، اسم المرسل، عنوان البريد الإلكتروني للمرسل، الموضوع، ووقت الاستلام.

doc auto export emails to excel 1

الخطوة 2: فتح محرر VBA في Outlook

1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في لوحة Project1 (VbaProject.OTM)، قم بتوسيع كائنات Microsoft Outlook وانقر نقرًا مزدوجًا على ThisOutlookSession.

الخطوة 3: إدراج كود VBA

قم بنسخ ولصق الكود التالي لـ VBA في الوحدة:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    ' Update this path with your actual Excel file path  
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

doc auto export emails to excel 2

⚡ نصيحة: في الكود أعلاه، C:\Users\DT168\Desktop\split document\kto-data.xlsx يمثل مسار الملف واسم مصنف Excel حيث سيتم تخزين بيانات البريد الإلكتروني. تأكد من تعديل هذا المسار ليتطابق مع الموقع والاسم الفعلي الذي تريد استخدامه.

الخطوة 4: تمكين مكتبة كائنات Microsoft Excel

1. في نافذة Microsoft Visual Basic for Applications، انقر فوق أدوات > مراجع.

2. في مربع الحوار مراجع - Project1، قم بالتمرير لأسفل وتحقق من خيار مكتبة كائنات Microsoft Excel.

3. انقر فوق موافق لتطبيق التغييرات.

doc auto export emails to excel 3

الخطوة 5: حفظ وإعادة تشغيل Outlook

1. احفظ كود VBA وأغلق المحرر.

2. أعد تشغيل Outlook لتطبيق التغييرات.

النتيجة:

من الآن فصاعدًا، سيتم تصدير كل بريد إلكتروني جديد يصل إلى صندوق الوارد تلقائيًا إلى مصنف Excel المحدد.

doc auto export emails to excel 4

قيود طريقة VBA:

❌ يعمل فقط مع صندوق الوارد الافتراضي: هذه الطريقة تتبع فقط البريد الإلكتروني الجديد في صندوق الوارد الافتراضي. إذا كان لديك عدة حسابات، لن يتم التقاط البريد الإلكتروني من الحسابات الأخرى.
❌ يتطلب تمكين ماكرو في Outlook: يجب تمكين ماكرو VBA لكي تعمل هذه الطريقة، مما قد يشكل مخاوف أمان.
❌ اعتماد على مسار الملف: إذا تم نقل أو حذف ملف Excel، سيفشل الكود.
❌ يتطلب إعداد يدوي: يجب على المستخدمين إدخال مسار ملف Excel يدويًا وإعداد بيئة VBA.

📊 إحصائيات بريد إلكتروني أذكى مع أدوات Kutools

تتبع وحلل نشاط بريدك الإلكتروني بسهولة باستخدام ميزة الإحصائيات في أدوات Kutools لـ Outlook. الآن قم بحساب البريد المستلم حسب اليوم، الأسبوع، أو الشهر، وشاهد النتائج في رسوم بيانية واضحة وم профессионаلة! قم بتبسيط إدارة بريدك الإلكتروني واحصل على رؤى قيمة بنقرات قليلة.

قم بتنزيل أدوات Kutools لـ Outlook الآن

تصدير جميع البريد الإلكتروني من مجلد محدد إلى تقرير Excel بسرعة مع أدوات Kutools لـ Outlook 👍

إذا كنت بحاجة إلى طريقة سهلة لتصدير البريد الإلكتروني من أي مجلد (صندوق الوارد، العناصر المرسلة، مجلدات مخصصة) دون استخدام VBA، توفر ميزة التقرير السريع في أدوات Kutools لـ Outlook حلاً بسيطًا.

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

الخطوة 1: تحديد المجلد وتمكين ميزة التقرير السريع

1. افتح Outlook وانتقل إلى المجلد الذي تريد تصديره (صندوق الوارد، صندوق الصادر، العناصر المرسلة، إلخ).

2. انقر فوق Kutools Plus > تقرير > تقرير سريع.

الخطوة 2: اختيار موقع الحفظ

1. في نافذة حفظ التقرير، اختر موقعًا وأدخل اسم ملف للتصدير.

2. انقر فوق حفظ.

doc auto export emails to excel 7

الخطوة 3: فتح التقرير المصدر

ستظهر رسالة تأكيد. انقر فوق نعم لفتح الملف المصدر.

doc auto export emails to excel 8

النتيجة:

سيتم تصدير جميع البريد الإلكتروني من المجلد المحدد إلى ملف XML متوافق مع Excel، مع عرض المرسل، الموضوع، وقت الاستلام والمزيد.

doc auto export emails to excel 9

مزايا طريقة أدوات Kutools لـ Outlook:

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

ملاحظة:لتطبيق أداة التقرير السريع من أدوات Kutools لـ Outlook، أولاً، يجب عليك تنزيل وتثبيت أدوات Kutools لـ Outlook.

أي طريقة يجب أن تستخدم؟

إليك مقارنة بين الطريقتين لمساعدتك في تحديد الطريقة الأنسب لاحتياجاتك:

الطريقة	الأفضل لـ	سهولة الاستخدام	الكفاءة
استخدام كود VBA (آلية ولكن معقدة)	تصدير البريد الإلكتروني الجديد تلقائيًا من صندوق الوارد	⭐⭐	⭐⭐⭐⭐
استخدام أدوات Kutools لـ Outlook (بسيطة ومرنة)	تصدير جميع البريد الإلكتروني بسرعة من مجلد محدد	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐