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

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

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

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

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

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

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

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

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

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

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

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

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

ลบไฟล์แนบทั้งหมดออกจากข้อความอีเมลหลายฉบับใน 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 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ภายใน 30 วัน.

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

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

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

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

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

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

---

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

ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!

สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!

🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล

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

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

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

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เตือนคุณเมื่อมีอีเมลสำคัญมาถึง  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

ปลดล็อค Kutools for Outlook ทันทีด้วยการคลิกเพียงครั้งเดียว—ฟรีอย่างถาวร- อย่ารอช้า ดาวน์โหลดตอนนี้และเพิ่มประสิทธิภาพของคุณ!

รายการคุณสมบัติของ Kutools for Outlook      ดาวน์โหลดเวอร์ชันฟรี      อัปเกรดเป็นมืออาชีพ