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

يوفر 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" واضغط على زر "موافق".

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

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

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

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

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

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

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

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

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

3.1) في قسم "حفظ المرفقات في هذا المجلد"، انقر فوق الزر لتحديد مجلد لحفظ المرفقات؛

3.2) انقر فوق زر "خيارات متقدمة" لفتح مربع الحوار؛

3.3) في قسم "شروط التصفية"، قم بتحديد خانة "نوع المرفق"، ثم أدخل امتداد الملف الخاص بالمرفقات التي ستقوم بحفظها في النص.

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

3.4) انقر فوق زر "موافق". شاهد لقطة الشاشة:

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

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

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

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

• كيفية حفظ جميع المرفقات من رسائل البريد الإلكتروني في Outlook؟
• كيفية إزالة جميع المرفقات من البريد الإلكتروني في Outlook؟

---

أفضل أدوات تعزيز الإنتاجية في المكتب

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

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

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

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

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

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

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

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

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

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

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة