Outlook에서 이메일을 열지 않고 첨부 파일을 저장하는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-08-06

받은 이메일에서 첨부 파일을 컴퓨터 디스크에 자주 저장해야 할 수 있습니다. 한 개의 이메일에서 첨부 파일 하나 또는 전체를 저장하는 것은 쉽지만, 여러 이메일에서 첨부 파일을 한 번에 저장하려면 어떻게 해야 할까요? 일반적으로 이메일을 반복적으로 열어 첨부 파일을 저장해야 합니다. 이러한 반복 작업을 피할 수 있는 방법이 있을까요? 이 튜토리얼의 방법들이 도움이 될 것입니다.

VBA 코드를 사용하여 이메일을 열지 않고 하나 이상의 이메일에서 첨부 파일 저장하기
놀라운 도구를 사용하여 이메일을 열지 않고 하나 이상의 이메일에서 첨부 파일 저장하기

VBA 코드를 사용하여 이메일을 열지 않고 하나 이상의 이메일에서 첨부 파일 저장하기

아래 VBA 코드는 Outlook에서 이메일을 열지 않고도 하나 이상의 이메일에서 첨부 파일을 동시에 저장하는 데 도움이 됩니다. 아래 단계를 따르세요.

1. 첨부 파일을 저장할 하나 또는 여러 이메일을 선택한 후 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Outlook Objects 폴더를 확장하고 ThisOutlookSession을 두 번 클릭하여 코드 창을 열고, 아래 VBA 코드를 복사하여 붙여넣으세요.

VBA 코드: 이메일을 열지 않고 첨부 파일 저장하기

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. 코드를 실행하기 위해 F5 키를 누릅니다. 그런 다음 BrowseForFolder 창이 나타나며, 첨부 파일을 저장할 폴더를 선택하고 확인 버튼을 클릭하세요.

그러면 선택된 이메일의 모든 첨부 파일이 즉시 선택한 폴더에 저장됩니다.

참고: 모든 첨부 파일은 이메일에서 분리되며, 해당 저장 경로 링크는 이메일 본문에 남게 됩니다.

놀라운 도구를 사용하여 이메일을 열지 않고 하나 이상의 이메일에서 첨부 파일 저장하기

VBA 초보자라면 이 섹션의 방법이 좋은 선택이 될 것입니다.

여기에서는 모든 첨부 파일 저장 유틸리티를 추천합니다. Kutools for Outlook 선택한 이메일에서 첨부 파일을 분리하지 않고 저장하려는 경우 Save All attachments 기능으로 쉽게 해결할 수 있습니다. 아래 단계를 따라주세요.
Kutools for Outlook을 적용하기 전에 먼저 다운로드 및 설치 하세요.

Kutools for Outlook으로 궁극의 이메일 효율성을 경험하세요! 강력한 기능 70개를 영원히 무료로 이용할 수 있습니다. 지금 무료 버전을 다운로드하세요!

1. 첨부 파일을 저장할 이메일을 선택하고 Kutools Plus > 첨부 파일 도구 > 모두 저장을 클릭합니다.

2. 저장 설정 대화 상자에서 다음을 수행해야 합니다.

2.1) 첨부 파일을 저장할 폴더 섹션에서 첨부 파일을 저장할 폴더를 선택하세요.
2.2) 특정 스타일로 하위 폴더를 생성하거나 저장된 첨부 파일 이름을 변경하기 위한 옵션인 '아래 스타일로 첨부 파일 저장' 박스는 선택 사항입니다.
2.3) 선택한 이메일에서 모든 첨부 파일을 저장하기 위해 확인을 클릭하세요.

팁: 위 설정으로 모든 첨부 파일이 지정된 폴더에 저장됩니다. 특정 첨부 파일만 저장하려는 경우, 예를 들어 파일 이름에 "invoice"라는 단어가 포함된 PDF 파일만 저장하려면 필터 조건을 다음과 같이 구성할 수 있습니다.

고급 옵션 버튼을 클릭하여 필터 조건을 확장합니다.
필요에 따라 조건을 지정하세요.
팁:여기서 저는 첨부 파일 이름 상자를 선택하고 텍스트 상자에 "invoice"를 입력한 후 첨부 파일 유형 상자를 선택하고 텍스트 상자에 ".pdf"를 입력합니다.