انتقل إلى المحتوى الرئيسي

كيفية حفظ مرفق معين فقط (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. في ال حفظ الإعدادات مربع الحوار ، تحتاج إلى تكوين على النحو التالي.

شنومكس) في احفظ المرفق (المرفقات) في هذا المجلد ، انقر فوق زر لتحديد مجلد لحفظ المرفقات ؛
شنومكس) انقر فوق خيارات متقدمة زر لفتح مربع الحوار ؛
شنومكس) في شروط التصفية القسم، تحقق من نوع المرفق مربع الاختيار ، ثم أدخل امتداد الملف للمرفقات التي ستحفظها في النص.
نصيحة: بالنسبة لامتدادات الملفات المتعددة ، تحتاج إلى فصلها بفواصل منقوطة.
شنومكس) انقر فوق OK زر. انظر لقطة الشاشة:

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

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

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

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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


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

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

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

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations