كيف يمكنك استيراد ملفات MSG من نظام الملفات إلى مجلد في Outlook؟
عادةً، يمكنك استيراد ملفات MSG من نظام الملفات إلى مجلد Outlook ببساطة عبر السحب والإفلات. وفي هذه المقالة، سنعرض لك طريقة سهلة لاستيراد جميع ملفات MSG من نظام الملفات إلى مجلد Outlook معيّن، خطوة بخطوة.
استيراد ملفات msg من نظام الملفات إلى مجلد Outlook باستخدام كود VBA
استيراد ملفات msg من نظام الملفات إلى مجلد Outlook باستخدام كود VBA
يرجى اتباع الخطوات التالية لاستيراد ملفات MSG من نظام الملفات إلى مجلد معيّن في Outlook.
1. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ كود VBA أدناه إلى نافذة الوحدة النمطية.
كود VBA: استيراد ملفات msg من نظام الملفات إلى مجلد Outlook
Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder：", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub3. اضغط على مفتاحF5 لتشغيل الكود. في مربع الحوارتصفح للعثور على مجلدالذي يظهر، حدد المجلد الذي يحتوي على ملفات MSG التي تريد استيرادها إلى مجلد Outlook، ثم انقر على زرموافق. انظر لقطة الشاشة:
4. الآن، يظهر مربع حوارتحديد مجلد. يُرجى تحديد مجلد فيOutlook لحفظ ملفات MSG المستوردة، ثم انقر على زرموافق.
بعد ذلك، يتم استيراد جميع ملفات MSG الموجودة في مجلد معين من نظام الملفات فورًا إلى مجلد Outlook المحدد.
احفظ رسائل البريد الإلكتروني المحددة بسهولة كملفات بتنسيقات مختلفة في Outlook:
باستخدام أداةBulk Save منKutools لـ Outlook، يمكنك بسهولة حفظ عدة رسائل بريد إلكتروني محددة كملفات فردية بتنسيقات متعددة، بما في ذلك HTML، والنص العادي، ومستند Word، وملف CSV، وكذلك ملفات PDF — تمامًا كما هو موضح في العرض التوضيحي أدناه.
حمّل النسخة المجانية من Kutools لـ Outlook الآن! /a>
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل