كيف يمكن حفظ رسائل Outlook تلقائيًا على القرص الصلب أو القرص؟

لأغراض النسخ الاحتياطي أو إثباتات العمل أو غيرها، قد ترغب في حفظ رسائل Outlook على القرص الصلب. من السهل حفظ عدة رسائل يدويًّا عن طريق سحبها من Outlook مباشرةً إلى القرص. ولكن، هل تعلم كيفيّة حفظ كل رسالة واردة تلقائيًّا على القرص؟ يقدم لك هذا المقال كود VBA للقيام بذلك في Outlook.

حفظ رسائل Outlook تلقائيًّا على القرص الصلب/القرص

---

حفظ رسائل Outlook تلقائيًّا على القرص الصلب/القرص

ستقدّم هذه الطريقة كود VBA لحفظ كل رسالة واردة في Outlook تلقائيًّا كملف HTML منفصل في موقع معيّن على القرص. يُرجى اتباع الخطوات التالية:

1. اضغط مفاتيح «Alt» + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

2. وسّع Project1، ثم انقر مرتين على «ThisOutlookSession» لفتحه، والصق كود VBA أدناه في نافذة 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” داخل مجلد المستندات (Documents). يمكنك العثور على الرسائل التي تم حفظها تلقائيًّا عبر المسار التالي: C:\Users\your_user_name\Documents\MyEmails
(2) سيعمل كود VBA مع رسائل البريد الإلكتروني الواردة الموجودة في مجلد البريد الوارد (Inbox) لحساب البريد الإلكتروني الافتراضي.

---

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

كيف يمكن تصدير رسائل Outlook دفعةً واحدة أو الرسائل المحددة إلى ملف Excel أو نصي أو PST في Outlook؟