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

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

احفظ فقط المرفق المحدد في Outlook

احفظ فقط المرفق المحدد في Outlook

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

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

2. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. في النافذة الافتتاحية ، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

رمز فبا: احفظ فقط مرفقًا محددًا في رسالة بريد إلكتروني أو رسائل بريد إلكتروني متعددة في مجلد

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. انقر أدوات > مراجع، في المراجع - المشروع الحوار ، تحقق من وقت تشغيل البرمجة لـ Microsoft مربع وانقر فوق OK .

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

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

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

ملحوظات:

1. إذا كنت تريد حفظ أنواع مختلفة من المرفقات ، فيرجى إدخال امتدادات الملفات في مربع النص وفصل بينها بفاصلة.

2. بعد الحفظ ، يتم عرض مسار حفظ المرفق على نص الرسالة. يمكنك فتح المرفق بالنقر فوق الارتباط التشعبي مباشرة.

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

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

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

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

اقرأ أكثر... التحميل الان...