Note: The other languages of the website are Google-translated. Back to English

كيفية حفظ مرفق معين فقط (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-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL