انتقل إلى المحتوى الرئيسي

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

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

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


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

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

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

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

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

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

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

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

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

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


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

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


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

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

الخطوة 1: اذهب إلى مجلد ملفاتي، وأنشئ مجلدًا جديدًا ، وقم بتسميته باسم OL المرفقات

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

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

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

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

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

الخطوة 5: انسخ والصق رمز فبا التالي في جزء التحرير.

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 for Outlook

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

كوتولس لتوقعات : مع أكثر من 100 وظيفة إضافية مفيدة في Outlook ، تجربة مجانية بدون قيود خلال 60 يومًا.

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

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

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

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

3. انقر فوق نعم زر في افصل الكل صندوق المحادثة.

4. ثم أ كوتولس لتوقعات سيظهر مربع الحوار ليخبرك بعدد المرفقات التي تم حذفها. الرجاء الضغط على OK

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (60 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (33)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello,
MS recently changed the storage limits for Hotmail. Attachments are counted towards storage used.
Many users would like to remove only the attachments in bulk. Your VBA script may be the solution for these users.
Can you confirm if this script still works for Hotmail users in 2023?
Thank you in advance.
This comment was minimized by the moderator on the site
The article and the comments below are very helpful! Thanks!
This comment was minimized by the moderator on the site
 Hello, I use the VBA code, unfortunaltely all the attachements were deleted from the emails, and they were not storage in any of the folders... so i lost many attachment files. anyone knows how can i restored
This comment was minimized by the moderator on the site
The VBA code shown in solution 2 works fine, however, but my goal is to remove only attachments which are not inline the message. Being VBA ignorant I would like to ask if it is possible to modify the code in that manner it would remove only attached files, not pictures inside the email text. It would surely make my day :)

Thank you in advance
This comment was minimized by the moderator on the site
Can somebody change the code so that only for example attachments named "TermsAndConditions.pdf" are deleted
This comment was minimized by the moderator on the site
Dear Rene,
Please follow the steps in the above second method, run the below VBA code. In an opening dialog box, please enter the attachment's name with the file extension (such as test.docx), and then click the OK button to just remove it from the selected email.

Sub ReplaceAttachmentsToLink()
Dim xMail As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i, xCount As Long
Dim xFile, xFldPath, xDelFiles, xFileName As String
Dim xFlag As Boolean

xFldPath = CreateObject("shell.Application").NameSpace(5).self.Path
On Error Resume Next
Set xSelection = Outlook.ActiveExplorer.Selection
xFldPath = xFldPath & "\OLAttachments"
xFlag = False
xFileName = InputBox("Attachment name:", "Kutools for Outlook")

If StrPtr(xFileName) = 0 Then Exit Sub
If xFileName <> "" Then
For Each xMail In xSelection
Set xAttachments = xMail.Attachments
xCount = xAttachments.Count
If xCount > 0 Then
For i = xCount To 1 Step -1
xFile = xAttachments.Item(i).FileName
If xFileName = xFile Then
xFlag = True
xFile = xFldPath & "\" & xFile
xAttachments.Item(i).SaveAsFile xFile
xAttachments.Item(i).Delete
If xMail.BodyFormat <> olFormatHTML Then
xDelFiles = xDelFiles & vbCrLf & ""
Else
xDelFiles = xDelFiles & "
" & "" & xFile & ""
End If
End If
Next i
If xFlag = True Then
If xMail.BodyFormat <> olFormatHTML Then
xMail.Body = xMail.Body & vbCrLf & "The file(s) were saved to " & xDelFiles
Else
xMail.HTMLBody = xMail.HTMLBody & "
" & "The file(s) were saved to " & xDelFiles & "
"
End If
End If
xMail.Save
xDelFiles = ""
End If
Next
If xFlag = False Then
MsgBox "The Attachment does not exist!"
Else
MsgBox "The attachment has been deleted."
End If
Else
MsgBox "Please input a attachment name"
End If
Set xAttachments = Nothing
Set xMail = Nothing
Set xSelection = Nothing
End Sub
This comment was minimized by the moderator on the site
Method 1 doesn't work here, as there's only 1 option under 'Selection': Copy.
This comment was minimized by the moderator on the site
Dear Peter,
Outlook users are reporting that the Select All (attachments) feature in Outlook 2016 is missing.
This comment was minimized by the moderator on the site
The VBA Code solution was great .... worked beautifully
This comment was minimized by the moderator on the site
Compile Error Sub or Function not defined??
This comment was minimized by the moderator on the site
VBA code worked great. Many thanks!
This comment was minimized by the moderator on the site
Hi This was really helpful , but as all attachments were not saved when i tried again it gives a message "the macros in this project are disabled".....tried enabling macros in outlook but no luck, any one can help! Regards Lisa
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations