كيفية حفظ مرفق معين فقط (Excel) في Outlook؟

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

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

---

احفظ فقط مرفقات تنسيق ملف معينة في Outlook برمز VBA

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

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

2. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في النافذة الافتتاحية ، انقر فوق إدراج > وحدة، ثم انسخ رمز 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 مربع وانقر فوق OK .

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

5. ثم انقر فوق OK، في التالي كوتولس لتوقعات في مربع الحوار ، أدخل امتداد الملف للمرفق الذي ستحفظه في مربع النص وانقر OK.

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

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

---

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

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

1. حدد رسائل البريد الإلكتروني التي تريد حفظ المرفقات منها فقط بتنسيق ملف معين.

2. انقر كوتولس > أدوات المرفقات > انقاذ جميع.

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

4. ينبثق مربع حوار لتذكيرك إذا كنت تريد حفظ المرفقات ، انقر فوق OK للمتابعة.

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

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

انقر هنا لمعرفة المزيد عن هذه الميزة.

---

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

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