Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

يوفر 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".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

3. في مربع الحوار "إعدادات الحفظ"، تحتاج إلى التكوين كما يلي.

3.1) في قسم "حفظ المرفقات في هذا المجلد"، انقر فوق الزر steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook لتحديد مجلد لحفظ المرفقات؛
3.2) انقر فوق زر "خيارات متقدمة" لفتح مربع الحوار؛
3.3) في قسم "شروط التصفية"، قم بتحديد خانة "نوع المرفق"، ثم أدخل امتداد الملف الخاص بالمرفقات التي ستقوم بحفظها في النص.
نصيحة: بالنسبة لعدة امتدادات ملفات، تحتاج إلى فصلها بفاصلة منقوطة.
3.4) انقر فوق زر "موافق". شاهد لقطة الشاشة:
steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

4. سيظهر مربع حوار ينبهك إذا كنت ترغب في حفظ المرفقات، انقر فوق "موافق" للمتابعة.

5. ثم يظهر مربع حوار آخر لإعلامك بعدد المرفقات التي تم حفظها، انقر فوق زر "موافق".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

الآن تم حفظ المرفقات ذات تنسيق الملف المحدد فقط.


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


أفضل أدوات إنتاجية أوفيس

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء الرسائل.

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

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

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

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...

👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...

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

استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

kutools for outlook features1 kutools for outlook features2