كيفية حفظ مرفقات (Excel) المحددة فقط في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

يوفر Outlook ميزة حفظ جميع المرفقات لمساعدتك على حفظ جميع المرفقات في البريد الإلكتروني إلى مجلد معين دفعة واحدة. ومع ذلك، إذا كنت ترغب في حفظ أنواع معينة من المرفقات فقط في بريد إلكتروني واحد أو أكثر، مثل ملفات Excel ومستندات Word وما إلى ذلك، كيف يمكنك تحقيق ذلك؟ في هذا البرنامج التعليمي، نقدم لك طريقتين لحل هذه المشكلة.

حفظ مرفقات بتنسيق ملف محدد فقط في Outlook باستخدام كود VBA
احفظ بسهولة مرفقات بتنسيق ملف محدد فقط في Outlook باستخدام أداة رائعة

حفظ مرفقات بتنسيق ملف محدد فقط في Outlook باستخدام كود VBA

يمكن للشفرة البرمجية التالية VBA مساعدتك في حفظ مرفقات بتنسيقات ملفات محددة فقط من رسائل البريد الإلكتروني المحددة إلى مجلد معين. يرجى القيام بما يلي.

1. افتح Outlook الخاص بك. في قائمة البريد، حدد رسالة بريد إلكتروني واحدة أو أكثر التي تريد حفظ المرفقات ذات التنسيق المحدد منها.

2. اضغط على "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications". في النافذة المفتوحة، انقر فوق "إدراج" > "وحدة"، ثم قم بنسخ الكود التالي VBA في نافذة الوحدة.

كود VBA: حفظ مرفقات محددة فقط في بريد إلكتروني أو عدة رسائل بريد إلكتروني إلى مجلد

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. انقر فوق "أدوات" > "المراجع"؛ في مربع الحوار "المراجع - المشروع"، قم بتحديد خانة "Microsoft Scripting Runtime" واضغط على زر "موافق".

steps on saving only Specific (Excel) Attachment In Outlook using vba

4. اضغط على مفتاح "F5" لتشغيل الكود. في مربع الحوار المنبثق "تصفح المجلد"، اختر مجلدًا لحفظ المرفقات.

steps on saving only Specific (Excel) Attachment In Outlook using vba

5. وبعد ذلك، انقر فوق "موافق"، في مربع الحوار التالي "Kutools for Outlook"، أدخل امتداد الملف الخاص بالمرفق الذي ستقوم بحفظه في مربع النص واضغط على "موافق".

ملاحظة: بالنسبة لعدة امتدادات ملفات، تحتاج إلى فصلها بفواصل.

steps on saving only Specific (Excel) Attachment In Outlook using vba

ثم يتم حفظ المرفقات المحددة فقط.

احفظ بسهولة مرفقات بتنسيق ملف محدد فقط في Outlook باستخدام أداة رائعة

إذا كنت جديدًا على VBA، هنا نوصيك باستخدام ميزة حفظ جميع المرفقات في "Kutools for Outlook". باستخدام هذه الميزة، يمكنك بسهولة حفظ المرفقات ذات التنسيق المحدد فقط في Outlook.

👉 يتوفر الآن إصدار مجاني من أدوات Kutools لـ Outlook، حيث تكون 70+ الميزات مجانية مدى الحياة. قم بتنزيل الإصدار المجاني الآن.

1. حدد الرسائل التي تريد حفظ المرفقات ذات التنسيق المحدد منها.

2. انقر فوق "Kutools" > "Attachment Tools" > "Save All".