메인 컨텐츠로 가기

Outlook의 이메일에서 모든 첨부 파일을 제거하는 방법은 무엇입니까?

일반적으로 이메일을 미리 볼 때 마우스 오른쪽 버튼을 클릭하여 첨부 파일을 삭제하고 첨부 파일 제거 안건. 때로는 이메일 메시지에 많은 첨부 파일이있을 수 있으며 하나씩 제거하는 것이 지루할 것입니다. 여기에서는 하나의 전자 메일에서 모든 첨부 파일을 제거하고 Outlook에서도 여러 전자 메일의 모든 첨부 파일을 제거하는 두 가지 간단한 트릭을 제공합니다.

Outlook에서 하나의 전자 메일 메시지에서 모든 첨부 파일을 수동으로 제거
VBA 코드를 사용하여 Outlook의 여러 전자 메일 메시지에서 모든 첨부 파일 제거
Outlook 용 Kutools를 사용하여 하나 또는 여러 이메일에서 모든 첨부 파일을 쉽게 제거하십시오.


Outlook에서 하나의 전자 메일 메시지에서 모든 첨부 파일을 수동으로 제거

다음을 사용하여 선택한 이메일 메시지의 모든 첨부 파일을 쉽게 제거 할 수 있습니다. 첨부 파일 제거 Outlook의 기능.

1 단계 : 나중에 첨부 파일을 제거 할 이메일 메시지를 선택합니다.

2 단계 : 읽기 창에서 첨부 파일 중 하나를 클릭하여 첨부 파일 도구를 활성화합니다.

3 단계 : 모두 선택 버튼의 선택 그룹에 첨부 파일 탭.

이 단계에서는 선택한 이메일 메시지의 모든 첨부 파일을 한 번에 선택할 수 있습니다.

4 단계 : 첨부 파일 제거 버튼의 행위 그룹에 첨부 파일 탭.

5 단계 : 경고 대화 상자에서 첨부 파일 제거 버튼을 클릭합니다.

그런 다음이 선택된 이메일 메시지의 모든 첨부 파일이 가능한 한 빨리 삭제됩니다.

주의 사항참고 : 첨부 파일 제거 기능은 Outlook 2010 이상 버전에서는 제대로 작동하지만 Outlook 2007에서는 작동하지 않습니다.


Outlook에서 선택한 여러 이메일의 모든 첨부 파일을 쉽게 제거합니다.

와 더불어 모든 첨부 파일 분리 ~의 유용성 Excel 용 Kutools, 아래 데모와 같이 선택한 여러 이메일에서 모든 첨부 파일을 쉽게 제거 할 수 있습니다. (첨부 파일은 지정된 폴더에 저장됩니다) 지금 다운로드하여 사용해 보세요! (30일 무료 트레일)


VBA 코드를 사용하여 Outlook의 여러 전자 메일 메시지에서 모든 첨부 파일 제거

Microsoft Outlook의 여러 전자 메일 메시지에서 모든 첨부 파일을 제거하려는 경우 다음 방법을 사용하면 쉽게 수행 할 수 있습니다. 우리는 당신을 추천합니다 Microsoft Outlook에서 모든 매크로 활성화 첫째로.

1 단계 : 다음 폴더로 이동 내 문서, 새 폴더를 만들고 이름을 OLA 첨부 파일

2 단계 : 나중에 첨부 파일을 제거 할 여러 전자 메일 메시지를 선택합니다.

참고 : 길게 눌러 연속되지 않은 이메일 메시지를 선택할 수 있습니다. Ctrl 키 키와 클릭.

길게 눌러 연속 이메일 메시지를 선택할 수 있습니다. 변화 키와 클릭.

3 단계 : 버튼을 눌러 VBA 편집기를 엽니 다. 다른 열쇠 F11 동시에 키.

4 단계 : 확장 Project1 > Microsoft Outlook 개체 왼쪽 표시 줄에서 ThisOutlook세션 에디터에서 엽니 다. 다음 스크린 샷을 참조하십시오.

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 코드를 실행합니다.

이제 선택한 전자 메일 메시지의 모든 첨부 파일이 제거되고 선택한 모든 전자 메일 메시지의 맨 아래에 삭제 된 각 첨부 파일에 대한 하이퍼 링크가 남습니다.


Outlook 용 Kutools를 사용하여 하나 또는 여러 이메일에서 모든 첨부 파일을 쉽게 제거하십시오.

  모두 분리 첨부 파일 유틸리티 Outlook 용 Kutools Outlook에서 하나 또는 여러 개의 선택된 이메일에서 모든 첨부 파일을 빠르게 제거 할 수 있습니다. 다음과 같이하십시오.

Outlook 용 Kutools : 100 개 이상의 편리한 Outlook 추가 기능으로 60 일 동안 제한없이 무료 체험.

1. 제거 할 첨부 파일이있는 하나 이상의 이메일 메시지를 선택한 다음 쿠툴 > 부착 도구모두 분리. 스크린 샷보기 :

2. 에서 설정 분리 대화 상자에서 다음과 같이 구성하십시오.

  • 2.1 검색 버튼을 눌러 삭제 된 모든 첨부 파일을 저장할 폴더를 선택합니다.
  • 2.2 기본적으로 아래 스타일로 첨부 파일 분리 확인란이 선택되어 있으면 필요에 따라 이메일을 기반으로 다른 폴더에 첨부 파일을 저장하는 옵션을 선택하십시오.
  • 2.3 OK 단추. 스크린 샷보기 :

노트:
1. 모든 첨부 파일을 동일한 폴더에 저장하려면 다음 스타일로 하위 폴더 만들기 상자.
2. 첨부 파일을 삭제하면 메일 링리스트의 이메일에서 첨부 파일 아이콘이 사라집니다. 당신은 확인할 수 있습니다 첨부 파일 아이콘은 여전히 ​​이메일에 남아 있습니다. 항상 보관할 수있는 상자입니다.
2. 선택한 이메일에서 모든 첨부 파일을 제거하는 것 외에도 특정 조건에 의해서만 첨부 파일을 제거 할 수 있습니다. 예를 들어, 크기가 500KB를 초과하는 첨부 파일 만 제거하려면 고급 옵션 버튼을 눌러 조건을 확장 한 다음 아래 화면과 같이 구성합니다.

3. 을 클릭합니다 가능 버튼의 모두 분리 대화 상자.

4. 그런 다음 Outlook 용 Kutools 삭제 된 첨부 파일 수를 알려주는 대화 상자가 나타납니다. 클릭하십시오 OK 버튼을 클릭합니다. 

이제 모든 첨부 파일이 즉시 제거되고 선택한 전자 메일에는 하이퍼 링크 만 남습니다. 필요에 따라 하이퍼 링크를 클릭하여 해당 첨부 파일을 열 수 있습니다.

  이 유틸리티의 무료 평가판 (60 일)을 받으려면 그것을 다운로드하려면 클릭하십시오을 클릭 한 다음 위 단계에 따라 작업 적용으로 이동합니다.


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 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