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

عادةً عندما تقوم بمراجعة بريد إلكتروني، يمكنك حذف مرفق عن طريق النقر بزر الماوس الأيمن واختيار خيار إزالة المرفق. أحيانًا قد تحتوي رسالة البريد الإلكتروني على العديد من المرفقات، وسيكون من الممل حذفها واحدة تلو الأخرى. هنا نقدم لك طريقتين سهلتين لإزالة جميع المرفقات من بريد إلكتروني واحد، وكذلك إزالة جميع المرفقات من عدة رسائل بريد إلكتروني في Outlook.

إزالة جميع المرفقات يدويًا من رسالة بريد إلكتروني واحدة في Outlook
إزالة جميع المرفقات من عدة رسائل بريد إلكتروني في Outlook باستخدام كود VBA
إزالة جميع المرفقات بسهولة من رسالة أو عدة رسائل باستخدام Kutools لـ Outlook

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

من السهل إزالة جميع المرفقات في الرسائل الإلكترونية المحددة باستخدام ميزة إزالة المرفقات في Outlook.

الخطوة 1: حدد رسالة البريد الإلكتروني التي سيتم إزالة مرفقاتها لاحقًا.

الخطوة 2: انقر فوق أحد المرفقات في لوحة القراءة لتفعيل أدوات المرفقات.

الخطوة 3: انقر فوق زر تحديد الكل في مجموعة التحديد على علامة التبويب المرفقات.

ستتيح لك هذه الخطوة تحديد جميع المرفقات في هذه الرسائل المحددة دفعة واحدة.

الخطوة 4: انقر فوق زر إزالة المرفق في مجموعة الإجراءات على علامة التبويب المرفقات.

الخطوة 5: في مربع الحوار التحذيري، انقر فوق زر إزالة المرفقات.

ثم يتم حذف جميع المرفقات في هذه الرسائل المحددة في أقرب وقت ممكن.

ملاحظة: تعمل ميزة إزالة المرفقات بشكل جيد في Outlook 2010 والإصدارات الأحدث، ولكن ليس في Outlook 2007.

إزالة جميع المرفقات من عدة رسائل بريد إلكتروني في Outlook باستخدام كود VBA

إذا كنت تريد إزالة جميع المرفقات من عدة رسائل بريد إلكتروني في Microsoft Outlook، فإن الطريقة التالية ستساعدك على القيام بذلك بسهولة. نوصي بأن تقوم بتمكين جميع وحدات الماكرو في Microsoft Outlook الخاص بك أولاً.

الخطوة 1: انتقل إلى مجلد مستنداتي، وأنشئ مجلدًا جديدًا، وأطلق عليه اسم OLAttachments

الخطوة 2: حدد عدة رسائل بريد إلكتروني سيتم إزالة مرفقاتها لاحقًا.

ملاحظة: يمكنك تحديد رسائل بريد إلكتروني غير متتالية مع الضغط باستمرار على مفتاح Ctrl والنقر.

يمكنك تحديد رسائل بريد إلكتروني متتالية مع الضغط باستمرار على مفتاح Shift والنقر.

الخطوة 3: افتح محرر VBA بالضغط على مفتاح Alt ومفتاح F11 في نفس الوقت.

الخطوة 4: قم بتوسيع Project1 > كائنات Microsoft Outlook في الشريط الجانبي الأيسر، ثم انقر نقرًا مزدوجًا على ThisOutlookSession لفتحه في المحرر. انظر لقطة الشاشة التالية:

الخطوة 5: انسخ والصق الكود التالي لـ VBA في لوحة التحرير.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

الخطوة 6: اضغط على مفتاح F5 لتشغيل هذا الكود VBA.

الآن تم إزالة جميع المرفقات من الرسائل المحددة، مع ترك روابط تشعبية لكل مرفق محذوف في أسفل جميع الرسائل المحددة.

إزالة جميع المرفقات بسهولة من رسالة أو عدة رسائل باستخدام Kutools لـ Outlook

أداة فصل جميع المرفقات من Kutools لـ Outlook يمكنها بسرعة إزالة جميع المرفقات من رسالة أو عدة رسائل محددة في Outlook. يرجى القيام بما يلي.

Kutools لـ Outlook : مع أكثر من 100 أداة إضافية مفيدة لـ Outlook، مجانية للتجربة بدون قيود لمدة 30 يوم.

1. حدد رسالة بريد إلكتروني واحدة أو عدة رسائل تحتوي على المرفقات التي تريد إزالتها، ثم انقر فوق Kutools > أدوات المرفقات > فصل جميع. انظر لقطة الشاشة:

2. في مربع حوار إعدادات الفصل، يرجى التكوين كما يلي.

• 2.1 انقر فوق زر تصفح لتحديد مجلد لحفظ جميع المرفقات المحذوفة.
• 2.2 بشكل افتراضي، يكون مربع فصل المرفقات بناءً على النمط أدناه محددًا، يرجى اختيار خيار لحفظ المرفقات في مجلدات مختلفة بناءً على الرسائل حسب الحاجة.
• 2.3 انقر فوق زر موافق. انظر لقطة الشاشة:

3. انقر فوق زر نعم في مربع حوار فصل جميع.

4. ثم سيظهر مربع حوار Kutools لـ Outlook لإخبارك بعدد المرفقات التي تم حذفها. يرجى النقر فوق زر موافق. 

الآن تم إزالة جميع المرفقات فورًا مع ترك الروابط التشعبية فقط في الرسائل المحددة. يمكنك النقر فوق الرابط التشعبي لفتح المرفق المقابل عند الحاجة.

---

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

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

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

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

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

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

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

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

• ✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
• 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
• 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة