كيفية تصدير النص الأساسي للبريد الإلكتروني في Outlook إلى جدول بيانات Excel؟

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

تصدير النص الأساسي للبريد الإلكتروني في Outlook إلى جدول بيانات Excel باستخدام كود VBA

تصدير النص الأساسي للبريد الإلكتروني في Outlook إلى جدول بيانات Excel باستخدام كود VBA<

الرجاء تشغيل رمز VBA أدناه لتصدير النص الأساسي المحدد لبريد إلكتروني في Outlook إلى Excel.

1. افتح البريد الإلكتروني ، وحدد نص البريد الإلكتروني الذي تريد تصديره إلى جدول بيانات Excel ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ كود فبا أدناه في نافذة الكود.

كود فبا: تصدير النص الأساسي للبريد الإلكتروني في Outlook إلى جدول بيانات Excel

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

ملاحظات: في الكود ، "البريد الإلكتروني body.xlsx"هو اسم المصنف الذي ستنشئه باستخدام نص البريد الإلكتروني المحدد. يمكنك تغييره بناءً على حاجتك.

3. انقر الأدوات > مراجع حسابات. ثم تحقق من كل من ملف مكتبة كائنات Microsoft Excel و مكتبة كائنات Microsoft Word مربعات في المراجع - المشروع صندوق المحادثة. انظر لقطة الشاشة:

4. ثم أ تصفح بحثًا عن مجلد ينبثق مربع الحوار ، الرجاء تحديد مجلد لحفظ المصنف والنقر فوق OK .

الآن مصنف باسم "هيئة البريد الإلكتروني"تم إنشاؤه وحفظه في مجلد محدد. افتح المصنف ، يمكنك رؤية نص البريد الإلكتروني المحدد يتم تصديره إلى الورقة 1 من المصنف.

---

أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

تفاصيل أكثر       تحميل مجانا      شراء