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

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

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

---

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

يمكنك استخدام كود VBA التالي لحفظ عدة رسائل إلكترونية محددة دفعةً واحدة كملفات MSG فردية في Outlook. يُرجى اتباع الخطوات التالية:

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

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق «Insert» > «Module»، ثم الصق كود VBA أدناه في نافذة الوحدة (Module).

كود 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 منفصلة، كما يظهر في لقطة الشاشة أدناه.

---