انتقل إلى المحتوى الرئيسي

كيفية حفظ رسائل البريد الإلكتروني المتعددة المحددة كملفات MSG بكميات كبيرة في Outlook؟

من السهل حفظ البريد الإلكتروني كملف MSG في Outlook. كيف يمكنك حفظ عدة رسائل بريد إلكتروني محددة كملفات MSG فردية مجمعة في Outlook؟ ستوضح لك هذه المقالة طريقة لتحقيق ذلك.

احفظ عدة رسائل بريد إلكتروني محددة كملفات MSG برمز VBA


احفظ عدة رسائل بريد إلكتروني محددة كملفات MSG برمز VBA

يمكن أن يساعدك رمز VBA التالي في حفظ عدة رسائل بريد إلكتروني محددة كملفات MSG فردية مجمعة في Outlook. الرجاء القيام بما يلي.

1. حدد رسائل البريد الإلكتروني التي تريد حفظها كملفات MSG. ثم اضغط على مفتاحي Alt + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications ، انقر فوق إدراج> وحدة ، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود VBA: احفظ عدة رسائل بريد إلكتروني محددة كملفات MSG فردية في Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. اضغط على مفتاح F5 لتشغيل الكود.

4. في مربع الحوار Browse For Folder، يرجى تحديد مجلد لحفظ ملفات MSG ثم النقر فوق الزر OK. انظر لقطة الشاشة:

يتم الآن حفظ جميع رسائل البريد الإلكتروني المحددة كملفات MSG فردية كما هو موضح أدناه في لقطة الشاشة.


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

مع حفظ بالجملة فائدة كوتولس لتوقعات، يمكنك بسهولة حفظ رسائل بريد إلكتروني متعددة محددة كملف بتنسيق HTML فردي ، ملف تنسيق TXT ، مستند Word ، ملف CSV بالإضافة إلى ملف PDF في Outlook كما هو موضح أدناه. قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 60 يومًا)


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

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

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

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

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

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

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

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

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

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

 

 

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
This comment was minimized by the moderator on the site
Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
This comment was minimized by the moderator on the site
When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
This comment was minimized by the moderator on the site
change line 21 to xName="". The saved message filname will not include the subject anymore.
This comment was minimized by the moderator on the site
A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

xName = Replace(xName, ":", "")
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations