ไปยังเนื้อหาหลัก

วิธีลบไฟล์แนบทั้งหมดจากอีเมลใน Outlook

โดยปกติเมื่อคุณดูตัวอย่างอีเมลคุณสามารถลบไฟล์แนบได้โดยคลิกขวาและเลือกไฟล์ ลบไฟล์แนบ สิ่งของ. บางครั้งอาจมีไฟล์แนบจำนวนมากในข้อความอีเมลและการลบทีละไฟล์จะน่าเบื่อ ที่นี่เราจัดเตรียมเคล็ดลับง่ายๆสองประการในการลบไฟล์แนบทั้งหมดในอีเมลเดียวและลบไฟล์แนบทั้งหมดจากอีเมลหลายฉบับเช่นกันใน Outlook

ลบไฟล์แนบทั้งหมดด้วยตนเองในข้อความอีเมลเดียวใน Outlook
ลบไฟล์แนบทั้งหมดออกจากข้อความอีเมลหลายฉบับใน Outlook ด้วยรหัส VBA
ลบไฟล์แนบทั้งหมดจากอีเมลหนึ่งฉบับหรือหลายฉบับได้อย่างง่ายดายด้วย Kutools for Outlook


ลบไฟล์แนบทั้งหมดด้วยตนเองในข้อความอีเมลเดียวใน Outlook

ง่ายต่อการลบไฟล์แนบทั้งหมดในข้อความอีเมลที่เลือกด้วยไฟล์ ลบไฟล์แนบ คุณลักษณะใน Outlook

ขั้นตอนที่ 1: เลือกข้อความอีเมลที่คุณจะนำไฟล์แนบออกในภายหลัง

ขั้นตอนที่ 2: คลิกหนึ่งในไฟล์แนบในบานหน้าต่างการอ่านเพื่อเปิดใช้งานเครื่องมือสิ่งที่แนบมา

ขั้นตอนที่ 3: คลิกปุ่ม เลือกทั้งหมด ปุ่มใน การเลือก กลุ่มใน Attachments แถบ

ขั้นตอนนี้จะช่วยให้คุณสามารถเลือกไฟล์แนบทั้งหมดในข้อความอีเมลที่เลือกนี้พร้อมกัน

ขั้นตอนที่ 4: คลิกปุ่ม ลบไฟล์แนบ ปุ่มใน สถานะ กลุ่มใน Attachments แถบ

ขั้นตอนที่ 5: ในกล่องโต้ตอบคำเตือนคลิกที่ไฟล์ ลบไฟล์แนบ ปุ่ม

จากนั้นไฟล์แนบทั้งหมดในข้อความอีเมลที่เลือกนี้จะถูกลบโดยเร็วที่สุด

หมายเหตุ: คุณลักษณะลบไฟล์แนบทำงานได้ดีใน Outlook 2010 และเวอร์ชันที่ใหม่กว่า แต่ใช้ไม่ได้ใน Outlook 2007


ลบไฟล์แนบทั้งหมดจากอีเมลที่เลือกหลายฉบับใน Outlook ได้อย่างง่ายดาย:

กับ ถอดไฟล์แนบทั้งหมด ประโยชน์ของ Kutools สำหรับ Excelคุณสามารถลบไฟล์แนบทั้งหมดจากอีเมลที่เลือกหลายฉบับได้อย่างง่ายดายดังตัวอย่างด้านล่างที่แสดง (ไฟล์แนบจะถูกบันทึกลงในโฟลเดอร์ที่ระบุ) ดาวน์โหลดและลองตอนนี้! (เส้นทางฟรี 30 วัน)


ลบไฟล์แนบทั้งหมดออกจากข้อความอีเมลหลายฉบับใน Outlook ด้วยรหัส VBA

หากคุณต้องการลบไฟล์แนบทั้งหมดออกจากข้อความอีเมลหลายฉบับใน Microsoft Outlook วิธีการต่อไปนี้จะช่วยให้คุณทำได้อย่างง่ายดาย เราขอแนะนำคุณ เปิดใช้งานแมโครทั้งหมดใน Microsoft Outlook ของคุณ ประการแรก

ขั้นตอนที่ 1: ไปที่โฟลเดอร์ของ เอกสารของฉันสร้างโฟลเดอร์ใหม่และตั้งชื่อเป็น OLAสิ่งที่แนบมาLA

ขั้นตอนที่ 2: เลือกข้อความอีเมลหลายฉบับที่คุณจะนำไฟล์แนบออกในภายหลัง

หมายเหตุ คุณสามารถเลือกข้อความอีเมลที่ไม่ติดต่อกันได้โดยกดปุ่ม Ctrl คีย์และคลิก

คุณสามารถเลือกข้อความอีเมลติดต่อกันโดยกดปุ่ม เปลี่ยน คีย์และคลิก

ขั้นตอนที่ 3: เปิด VBA Editor โดยกดปุ่ม อื่น ๆ คีย์และ F11 สำคัญในเวลาเดียวกัน

ขั้นตอนที่ 4: ขยายไฟล์ Project1 > วัตถุ Microsoft Outlook ในแถบด้านซ้ายแล้วดับเบิลคลิกที่ไฟล์ นี้OutlookSession เพื่อเปิดใน Editor ดูภาพหน้าจอต่อไปนี้:

ขั้นตอนที่ 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 for Outlook

พื้นที่ ปลดทั้งหมด ยูทิลิตี้ไฟล์แนบของ Kutools สำหรับ Outlook สามารถลบไฟล์แนบทั้งหมดออกจากอีเมลที่เลือกหนึ่งหรือหลายฉบับใน Outlook ได้อย่างรวดเร็ว กรุณาดำเนินการดังนี้

Kutools สำหรับ Outlook : ด้วยโปรแกรมเสริม Outlook ที่มีประโยชน์มากกว่า 100 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ภายใน 60 วัน.

1. เลือกข้อความอีเมลหนึ่งหรือหลายข้อความพร้อมไฟล์แนบที่คุณต้องการลบจากนั้นคลิก Kutools > เครื่องมือแนบปลดทั้งหมด. ดูภาพหน้าจอ:

2 ใน ปลดการตั้งค่า โปรดกำหนดค่าดังต่อไปนี้

  • 2.1 คลิกปุ่ม หมวดหมู่สินค้า ปุ่มเพื่อเลือกโฟลเดอร์เพื่อบันทึกไฟล์แนบที่ถูกลบทั้งหมด
  • 2.2 โดยค่าเริ่มต้นไฟล์ ถอดสิ่งที่แนบมาในรูปแบบด้านล่าง เลือกช่องแล้วโปรดเลือกตัวเลือกเพื่อบันทึกไฟล์แนบลงในโฟลเดอร์ต่างๆตามอีเมลตามที่คุณต้องการ
  • 2.3 คลิกปุ่ม OK ปุ่ม. ดูภาพหน้าจอ:

หมายเหตุ / รายละเอียดเพิ่มเติม:
1. หากคุณต้องการบันทึกไฟล์แนบทั้งหมดลงในโฟลเดอร์เดียวกันโปรดยกเลิกการเลือกไฟล์ สร้างโฟลเดอร์ย่อยในลักษณะต่อไปนี้ กล่อง.
2. หลังจากลบไฟล์แนบไอคอนไฟล์แนบจะหายไปจากอีเมลของรายชื่ออีเมล คุณสามารถตรวจสอบไฟล์ ไอคอนไฟล์แนบยังคงอยู่ในอีเมล กล่องเก็บไว้เสมอ
2. นอกจากการนำไฟล์แนบทั้งหมดออกจากอีเมลที่เลือกแล้วคุณสามารถลบไฟล์แนบได้ตามเงื่อนไขที่กำหนดเท่านั้น ตัวอย่างเช่นคุณต้องการลบไฟล์แนบที่มีขนาดมากกว่า 500 KB เท่านั้นโปรดคลิกที่ไฟล์ ตัวเลือกขั้นสูง เพื่อขยายเงื่อนไขจากนั้นกำหนดค่าตามที่แสดงด้านล่าง screebshot

3 คลิกที่ ใช่ ปุ่มใน ปลดทั้งหมด กล่องโต้ตอบ

4. จากนั้นก Kutools สำหรับ Outlook กล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งจำนวนไฟล์แนบที่ถูกลบ กรุณาคลิกที่ไฟล์ OK ปุ่ม 

ตอนนี้ไฟล์แนบทั้งหมดจะถูกลบออกทันทีโดยเหลือเพียงไฮเปอร์ลิงก์ทิ้งไว้ในอีเมลที่เลือก คุณสามารถคลิกไฮเปอร์ลิงก์เพื่อเปิดไฟล์แนบที่เกี่ยวข้องได้ตามต้องการ

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (60 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน 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