كيف يمكنك إزالة جميع المرفقات من رسالة بريد إلكتروني في 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لإعلامك بعدد المرفقات المحذوفة. يُرجى النقر على زرموافق.

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

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

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

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

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

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

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

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

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

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

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات Kutools لـ Outlook      نزِّل الآن      اذهب للشراء

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

موصى به بشدة: Kutools for Office (5 في 1)

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

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

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة