Outlook에서 이메일의 모든 첨부 파일을 제거하려면 어떻게 해야 하나요?

Author: Kelly Last Modified: 2025-08-06

일반적으로 이메일을 미리보기할 때, 마우스 오른쪽 버튼으로 클릭하고 '첨부 파일 제거' 항목을 선택하여 첨부 파일을 삭제할 수 있습니다. 가끔 한 개의 이메일에 많은 첨부 파일이 있을 수 있으며, 이를 하나씩 제거하는 것은 번거로울 수 있습니다. 여기에서는 Outlook에서 한 개의 이메일에서 모든 첨부 파일을 제거하거나 여러 개의 이메일에서 모든 첨부 파일을 제거하는 두 가지 쉬운 방법을 소개합니다.

Outlook에서 한 개의 이메일 메시지에서 모든 첨부 파일을 수동으로 제거하기
VBA 코드를 사용하여 Outlook에서 여러 이메일 메시지의 모든 첨부 파일 제거하기
Kutools for Outlook을 사용하여 한 개 또는 여러 이메일에서 모든 첨부 파일 쉽게 제거하기

Outlook에서 한 개의 이메일 메시지에서 모든 첨부 파일을 수동으로 제거하기

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

1단계: 나중에 첨부 파일을 제거할 이메일 메시지를 선택하세요.

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

doc-save-attachments-1

3단계: 첨부 파일 탭의 선택 그룹에서 모두 선택 버튼을 클릭합니다.

doc-save-attachments-2

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

4단계: 첨부 파일 탭의 동작 그룹에서 첨부 파일 제거 버튼을 클릭합니다.

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

doc-save-attachments-3

그러면 선택한 이메일 메시지의 모든 첨부 파일이 즉시 삭제됩니다.

참고: 첨부 파일 제거 기능은 Outlook 2010 및 이후 버전에서는 잘 작동하지만, Outlook 2007에서는 작동하지 않습니다.

Kutools for Excel의 모든 첨부 파일 분리 유틸리티를 사용하면 아래 데모와 같이 여러 개의 선택된 이메일에서 모든 첨부 파일을 쉽게 제거할 수 있습니다. (첨부 파일은 지정된 폴더에 저장됩니다) 지금 다운로드하고 무료로 시도해 보세요! (30-일 무료 체험)

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

Microsoft Outlook에서 여러 이메일 메시지의 모든 첨부 파일을 제거하려는 경우 다음 방법이 쉽게 도와줄 것입니다. 우리는 먼저 Microsoft Outlook에서 모든 매크로를 활성화하는 것을 권장합니다.

1단계: 내 문서 폴더로 이동하여 새 폴더를 만들고 OLAttachments라고 이름을 지정합니다.

2단계: 나중에 첨부 파일을 제거할 여러 이메일 메시지를 선택하세요.

참고: Ctrl 키를 누르고 클릭하여 연속되지 않은 이메일 메시지를 선택할 수 있습니다.

Shift 키를 누르고 클릭하여 연속된 이메일 메시지를 선택할 수 있습니다.

3단계: Alt 키와 F11 키를 동시에 눌러 VBA 편집기를 엽니다.

4단계: 왼쪽 패널에서 Project1 > Microsoft Outlook Objects를 확장한 후 ThisOutlookSession을 더블 클릭하여 편집기에서 엽니다. 다음 스크린샷을 참조하세요:

doc-delete-attachments-4

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

이제 선택한 이메일 메시지의 모든 첨부 파일이 제거되고, 삭제된 각 첨부 파일에 대한 하이퍼링크가 모든 선택된 이메일 메시지의 하단에 남게 됩니다.

doc-delete-attachments-7

Kutools for Outlook을 사용하여 한 개 또는 여러 이메일에서 모든 첨부 파일 쉽게 제거하기

Kutools for Outlook의 모든 첨부 파일 분리 유틸리티는 Outlook에서 한 개 또는 여러 개의 선택된 이메일에서 모든 첨부 파일을 빠르게 제거할 수 있습니다. 아래 단계를 따라주세요.

Kutools for Outlook : 100개 이상의 유용한 Outlook 추가 기능을 제공하며, 30 일 동안 제한 없이 무료로 사용해볼 수 있습니다.

1. 제거하려는 첨부 파일이 포함된 한 개 또는 여러 이메일 메시지를 선택한 후 Kutools > 첨부 파일 도구 > 모든 첨부 파일 분리 를 클릭합니다. 스크린샷을 참조하세요:

doc-save-attachments-multiple-emails6

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

2.1 찾아보기 버튼을 클릭하여 모든 삭제된 첨부 파일을 저장할 폴더를 선택하세요.
2.2 기본적으로 아래 스타일로 첨부 파일 분리 확인란이 선택되어 있습니다. 필요에 따라 첨부 파일을 다른 폴더에 저장하도록 옵션을 선택하세요.
2.3 확인 버튼을 클릭하세요. 스크린샷을 참조하세요:

doc-save-attachments-multiple-emails7