كيفية تصدير النص الأساسي للبريد الإلكتروني في 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 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.