كيفية حفظ مرفق معين فقط (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 .
الآن يتم حفظ مرفقات تنسيق الملف المحدد فقط.
انقر هنا لمعرفة المزيد عن هذه الميزة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيف تحفظ جميع المرفقات من رسائل البريد الإلكتروني في Outlook؟
- كيفية إزالة جميع المرفقات من البريد الإلكتروني في Outlook؟
Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!
- CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
- تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
- رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
- أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
- رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.

