كيف تحفظ رسائل البريد الإلكتروني في Outlook تلقائيًا على القرص الصلب / القرص؟
للنسخ الاحتياطي أو أدلة العمل أو لأغراض أخرى ، قد ترغب في حفظ رسائل البريد الإلكتروني في Outlook على القرص الصلب. من السهل حفظ العديد من رسائل البريد الإلكتروني على القرص بالسحب يدويًا من Outlook إلى القرص. ومع ذلك ، هل تعرف كيفية حفظ كل بريد إلكتروني وارد على القرص تلقائيًا؟ ستقدم هذه المقالة VBA للتعامل معها في Outlook.
حفظ رسائل البريد الإلكتروني في Outlook تلقائيًا على القرص الصلب / القرص
حفظ رسائل البريد الإلكتروني في Outlook تلقائيًا على القرص الصلب / القرص
ستقدم هذه الطريقة VBA لحفظ كل بريد إلكتروني وارد في Outlook تلقائيًا كملف HTML فردي على القرص المحدد. الرجاء القيام بما يلي:
1. صحافة قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. قم بتوسيع مشروع 1 وانقر نقرًا مزدوجًا هذه الجلسة لفتحه ، ثم قم بلصق كود فبا أدناه في نافذة ThisOutlookSession. انظر لقطة الشاشة:
VBA: حفظ رسائل البريد الإلكتروني في Outlook تلقائيًا كملفات HTML على القرص
Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub
3. احفظ رمز VBA ، وأعد تشغيل Microsoft Outlook.
من الآن فصاعدًا، سيتم حفظ كل بريد إلكتروني وارد كملف HTML فردي في مجلد "MyEmails".
ملاحظة:
(1) سيقوم VBA بإنشاء مجلد باسم "MyEmails" ضمن مجلد المستندات. يمكنك معرفة رسائل البريد الإلكتروني المحفوظة تلقائيًا باستخدام مسار المجلد هذا: C:\Users\your_user_name\Documents\MyEmails
(2) سيعمل VBA هذا مع رسائل البريد الإلكتروني المستلمة في مجلد البريد الوارد لحساب البريد الإلكتروني الافتراضي.
مقالات ذات صلة
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.