نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية استيراد ملفات msg من نظام الملفات إلى مجلد Outlook؟

عادةً ، يمكنك استيراد ملفات msg من نظام الملفات إلى مجلد Outlook عن طريق السحب والإفلات. في هذه المقالة ، سنوضح لك طريقة سهلة لاستيراد جميع ملفات msg من نظام ملفات إلى مجلد Outlook محدد بالتفصيل.

استيراد ملفات msg من نظام الملفات إلى مجلد Outlook برمز VBA


يمكنك بسهولة حفظ الرسائل الإلكترونية المحددة كملفات تنسيق مختلفة في Outlook:

من خلال الأداة المساعدة Save as File من Kutools for Outlook ، يمكنك بسهولة حفظ عدة ملفات بتنسيق HTML محددة وملف بتنسيق HTML ، وملف تنسيق TXT ، ومستند Word ، وملف CSV ، بالإضافة إلى ملف PDF في Outlook كما تظهر لقطة الشاشة أدناه.

كوتولس ل أوتلوك: مع أكثر من شنومكس مفيد توقعات الإضافية الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


استيراد ملفات msg من نظام الملفات إلى مجلد Outlook برمز VBA

يرجى القيام بما يلي لاستيراد ملفات msg من نظام الملفات إلى مجلد محدد في Outlook.

1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

رمز VBA: استيراد ملفات msg من نظام الملفات إلى مجلد Outlook

Sub ImportMessagesInFolder () Dim xFSO باسم Scripting.FileSystemObject Dim xSourceFld باسم Scripting.Folder Dim xSourceFldPath باسم سلسلة باهتة xFileItem باسم Scripting.File Dim xMSG باسم كائن Dim xMailItem باسم MailItem Dim xSaveFld باسم Outlook.Folder عند خطأ استئناف التالي Set xFSO = Scripting جديد. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0 ، "حدد مجلدًا" ، 0 ، 0) إذا لم يكن TypeName (xSelFolder) = "لا شيء" ، ثم xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" قم بإنهاء Sub End If Set xSourceFld = xFSO.GetFolder (xSourceFldPath) تعيين xSaveFld = GetObject (""، "Outlook.Application"). GetNamespace ("MAPI"). PickFolder If TypeName (xSaveFld) = "Nothing" ثم إنهاء Sub End If لكل xFileItem في xSourceFld.Files تعيين xMSG = Session.OpenSharedItem (xFileItem.Path) تعيين xMailItem = xMSG.Copy xMailItem.Move xSaveFld تعيين xMailItem = لا شيء xMSG.Delete Set xMSG = Nothing Next xFileItem Set xFileItem = Nothing Set xSourceFld = Nothing Set xFSO = N othing End Sub

3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية. في الافتتاح تصفح للحافظة في مربع الحوار ، حدد المجلد الذي يحتوي على ملفات msg ستقوم باستيرادها إلى مجلد Outlook ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

4. الآن أ حدد المجلد مربع الحوار للملوثات العضوية الثابتة ، يرجى تحديد توقعات مجلد لحفظ ملفات msg المستوردة ، وانقر على OK .

ثم يتم استيراد كافة ملفات msg في مجلد معين في نظام الملفات الخاص بك إلى مجلد Outlook محدد مباشرة.


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



أدوات الإنتاجية الموصى بها

تبويب أوفيس

الذهب ستارسنومك يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل

الذهب ستارسنومك رائعة حقا! زيادة الإنتاجية في دقائق شنومكس. لا تحتاج إلى أي مهارات خاصة، حفظ ساعتين كل يوم!

الذهب ستارسنومك شنومكس ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:

  • دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
  • الجمع بين وتوثيق جداول متعددة و المصنفات.
  • مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
  • العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
  • المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...

لقطة شاشة كوتولس ل إكسيل

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.