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

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

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

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

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

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

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

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

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

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

2. في جزء Project1 (VbaProject.OTM)، وسّع «Microsoft Outlook Objects»، ثم انقر مرتين على «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

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

1. في نافذة Microsoft Visual Basic for Applications، انقر على **Tools > References**.

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

3. انقر على «موافق» لتطبيق التغييرات.

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

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

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

النتيجة:

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

---

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

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

حمّل Kutools لـ Outlook الآن

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

إذا كنت تبحث عن طريقة سهلة لتصدير الرسائل من أي مجلد—سواء كان صندوق الوارد، أو الرسائل المرسلة، أو مجلدات مخصصة—بدون الحاجة إلى استخدام VBA، فإن ميزة «تقرير سريع» في Kutools لـ Outlook توفّر لك حلاً بسيطًا وفعالًا.

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

1. افتح Outlook وانتقِل إلى المجلد الذي ترغب في تصديره (مثل صندوق الوارد، أو صندوق الصادر، أو الرسائل المرسلة، وغيرها).

2. انقر على KUTOOLS PLUS > Report > تقرير سريع.

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

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

2. انقر على Save.

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

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

النتيجة:

سيتم تصدير جميع الرسائل من المجلد المحدد إلى ملف XML متوافق مع Excel، متضمّنًا المرسِل، والموضوع، ووقت الاستلام، وغير ذلك.

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

---

أي طريقة يُفضَّل استخدامها؟

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

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

باختيارك الطريقة الأنسب، يمكنك تصدير رسائل Outlook إلى Excel بكفاءة تامة لتلبية احتياجات سير عملك!

---

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

• تصدير جدول نص الرسالة إلى Excel في Outlook
• عند استلام رسالة إلكترونية تحتوي على جداول ضمن نصها، قد تجد نفسك بحاجة أحيانًا إلى تصدير جميع هذه الجداول دفعة واحدة إلى ورقة عمل Excel. بالرغم من إمكانية نسخ الجداول ولصقها يدويًّا في الورقة، إلا أنني سأعرض لك هنا طريقة ذكية وفعّالة لإنجاز هذه المهمة بسلاسة—خاصةً عندما يكون لديك عدة جداول تحتاج إلى تصديرها معًا.

• استخراج أو تصدير قائمة المهام إلى Excel في Outlook
• أثناء استخدام Outlook، يمكنك بسهولة استخراج قائمة مهامك إلى Excel لأغراض أخرى بفضل ميزة التصدير القوية المتوفرة في Outlook. يُرجى اتباع التعليمات أدناه.

• تصدير معلومات جهات الاتصال مع الصور في Outlook
• عند تصدير جهات الاتصال من Outlook إلى ملف، يمكنك تصدير المعلومات النصية فقط. ولكن ماذا لو احتجتَ إلى تضمين الصور مع المعلومات النصية لجهات الاتصال؟ كيف يمكنك تنفيذ هذه المهمة في Outlook؟

• تصدير هيكل المجلد من Outlook إلى Excel
• في هذا المقال، سأوضح لك كيفية تصدير هيكل مجلدات حسابك من Outlook إلى ملف Excel. يُرجى اتباع الخطوات الموضحة هنا بدقة لتنفيذ ذلك بنجاح.

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

👩🏼‍🤝‍👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بشدة: Kutools for Office (5 في 1)

نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!

• ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
• 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
• 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة