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

Author: Kelly Last Modified: 2025-08-06

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

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

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

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

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

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

doc-save-attachments-1

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

doc-save-attachments-2

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

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

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

doc-save-attachments-3

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

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

مع أداة فصل جميع المرفقات من Kutools لـ Excel، يمكنك بسهولة إزالة جميع المرفقات من عدة رسائل محددة كما هو موضح في العرض التوضيحي أدناه. (سيتم حفظ المرفقات في مجلد محدد) قم بالتنزيل والتجربة الآن! (30-day free trail)

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

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

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

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

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

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

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

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

doc-delete-attachments-4

الخطوة 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.

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

doc-delete-attachments-7

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

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

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

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

doc-save-attachments-multiple-emails6

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

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

doc-save-attachments-multiple-emails7

ملاحظات:

1. إذا كنت تريد حفظ جميع المرفقات في نفس المجلد، يرجى إلغاء تحديد مربع إنشاء مجلدات فرعية بالنمط التالي.

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

2. بالإضافة إلى إزالة جميع المرفقات من الرسائل المحددة، يمكنك إزالة المرفقات بناءً على شروط محددة فقط. على سبيل المثال، إذا كنت تريد إزالة المرفقات التي يزيد حجمها عن 500KB فقط، انقر فوق زر الخيارات المتقدمة لتوسيع الشروط، ثم قم بالتكوين كما هو موضح في لقطة الشاشة أدناه.

doc-save-attachments-multiple-emails08