كيف يمكنني حفظ مرفق Excel معيّن فقط من رسالة في Outlook؟
يوفر Outlook ميزة «حفظ جميع المرفقات» التي تتيح لك حفظ كل المرفقات في رسالة بريد إلكتروني دفعة واحدة إلى مجلد معيّن. ولكن، ماذا لو أردت حفظ أنواع معيّنة فقط من المرفقات—مثل مصنفات Excel أو مستندات Word—من رسالة واحدة أو أكثر؟ في هذا البرنامج التعليمي، نعرض لك طريقتين فعّالتين لتحقيق ذلك.
حفظ مرفقات نوع الملف المحددة فقط في Outlook باستخدام كود VBA
حفظ مرفقات نوع الملف المحددة فقط في Outlook بسهولة باستخدام أداة رائعة
حفظ مرفقات نوع الملف المحددة فقط في Outlook باستخدام كود VBA
يمكنك استخدام كود VBA التالي لحفظ مرفقات من نوع الملف الذي تحدده فقط، من رسالة بريد إلكتروني واحدة أو أكثر قمت بتحديدها، إلى مجلد معيّن. يُرجى اتباع الخطوات التالية:
1. افتح Outlook. في قائمة البريد الإلكتروني، حدد رسالة بريد إلكتروني واحدة أو أكثر تريد حفظ المرفقات منها لنوع ملف معيّن.
2. اضغط على «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications». ثم، في النافذة التي تظهر، انقر فوق «Insert» > «Module»، والصق كود 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 Sub3. انقر فوق «Tools» > «References»، ثم في مربع حوار «References – Project»، فعّل خانة «Microsoft Scripting Runtime» وانقر على زر «OK».
4. اضغط مفتاح "F5" لتشغيل الكود، ثم في مربع حوار «Browse for Folder» المنبثق، اختر مجلدًا واحدًا لحفظ المرفقات فيه.
5. بعد ذلك، انقر على «موافق»، ثم في مربع حوار «Kutools لـ Outlook» الظاهر، أدخل امتداد الملف الخاص بالمرفق الذي تريد حفظه في مربع النص، وانقر على «موافق».
ملاحظة: عند إدخال امتدادات ملفات متعددة، يُرجى فصلها بفواصل.
بعد ذلك، يتم حفظ المرفقات المحددة فقط.
حفظ مرفقات نوع الملف المحددة فقط في Outlook بسهولة باستخدام أداة رائعة
إذا كنت جديدًا على VBA، فإننا نوصيك هنا باستخدام ميزةحفظ جميع المرفقاتفي «Kutools لـ Outlook». فباستخدام هذه الميزة، يمكنك بسهولة حفظ المرفقات من نوع ملف معيّن في Outlook.
1. حدّد الرسائل التي تريد حفظ مرفقاتها بناءً على نوع ملف معيّن.
2. انقر فوق «Kutools» > «أدوات المرفقات» > «حفظ الكل».
3. في مربع حوار «إعدادات الحفظ»، اضبط الإعدادات كما يلي:
لـ اختر مجلد لحفظ المرفقات؛
4. يظهر مربع حوار لتذكيرك بشأن حفظ المرفقات؛ انقر على «موافق» للمتابعة.
5. بعد ذلك، يظهر مربع حوار يُبلغك بعدد المرفقات التي تم حفظها؛ انقر على زر «موافق».
الآن يتم حفظ مرفقات نوع الملف المحدد فقط.
مقالات ذات صلة:
- كيف يمكن حفظ جميع المرفقات من رسائل البريد الإلكتروني في Outlook؟
- كيف يمكنني إزالة جميع المرفقات من رسالة بريد إلكتروني في Outlook؟
أفضل أدوات إنتاجية Office
جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!
📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...
📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...
👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...
👩🏼🤝👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!
افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!
🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office
موصى به بشدة: Kutools for Office (5 في 1)
نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!
- ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
- 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
- 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint