Outlook에서 여러 이메일의 모든 첨부 파일을 폴더에 저장하는 방법은 무엇입니까?

Author: Siluvia Last Modified: 2025-08-06

Outlook의 기본 제공 '모든 첨부 파일 저장' 기능을 사용하면 한 이메일의 모든 첨부 파일을 쉽게 저장할 수 있습니다. 그러나 여러 이메일의 모든 첨부 파일을 한 번에 저장하려면 직접적인 기능이 없습니다. 각 이메일에서 '모든 첨부 파일 저장' 기능을 반복적으로 적용하여 모든 첨부 파일을 저장해야 합니다. 이는 시간이 많이 소요됩니다. 이 문서에서는 Outlook에서 여러 이메일의 모든 첨부 파일을 특정 폴더에 쉽게 대량으로 저장할 수 있는 두 가지 방법을 소개합니다.

VBA 코드를 사용하여 여러 이메일의 모든 첨부 파일을 폴더에 저장
놀라운 도구를 사용하여 여러 번의 클릭만으로 여러 이메일의 모든 첨부 파일을 폴더에 저장

VBA 코드를 사용하여 여러 이메일의 모든 첨부 파일을 폴더에 저장

이 섹션에서는 단계별 가이드로 VBA 코드를 시연하여 여러 이메일의 모든 첨부 파일을 특정 폴더에 한 번에 빠르게 저장하는 방법을 안내합니다. 다음 단계를 따르세요.

1. 먼저 컴퓨터에 첨부 파일을 저장할 폴더를 만들어야 합니다.

"문서" 폴더로 들어가 "첨부 파일"이라는 이름의 폴더를 만듭니다. 스크린샷 보기:

2. 저장할 첨부 파일이 포함된 이메일을 선택한 다음, "Alt" + "F11" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 엽니다.

3. "삽입" > "모듈"을 클릭하여 "모듈" 창을 열고, 다음 VBA 코드 중 하나를 창에 복사합니다.

VBA 코드 1: 여러 이메일에서 첨부 파일 일괄 저장 (동일한 이름의 첨부 파일 바로 저장)

참고: 이 코드는 파일 이름 뒤에 숫자 1, 2, 3...을 추가하여 동일한 이름의 첨부 파일을 저장합니다.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

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

VBA 코드 2: 여러 이메일에서 첨부 파일 일괄 저장 (중복 확인)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

참고:

1) 동일한 이름의 모든 첨부 파일을 폴더에 저장하려면 위의 "VBA 코드 1"을 적용하세요. 이 코드를 실행하기 전에 "도구" > "참조"를 클릭하고 "참조 - 프로젝트" 대화 상자에서 "Microsoft Scripting Runtime" 상자를 체크하세요.

2) 중복된 첨부 파일 이름을 확인하려면 "VBA 코드 2"를 적용하세요. 코드를 실행한 후, 중복된 첨부 파일을 교체할지 여부를 알려주는 대화 상자가 나타납니다. 필요에 따라 "예" 또는 "아니오"를 선택하세요.

5. 코드를 실행하려면 "F5" 키를 누릅니다.

그러면 선택한 이메일의 모든 첨부 파일이 1단계에서 생성한 폴더에 저장됩니다.

참고: "Microsoft Outlook" 알림 상자가 나타날 수 있습니다. 계속 진행하려면 "허용" 버튼을 클릭하세요.

놀라운 도구를 사용하여 여러 이메일의 모든 첨부 파일을 폴더에 저장

VBA 초보자라면 여기서 "Kutools for Outlook"의 "모든 첨부 파일 저장" 유틸리티를 강력히 추천합니다. 이 유틸리티를 사용하면 몇 번의 클릭만으로 Outlook에서 여러 이메일의 모든 첨부 파일을 한 번에 빠르게 저장할 수 있습니다.

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

1. 저장하려는 첨부 파일이 포함된 이메일을 선택합니다.

참고: "Ctrl" 키를 누른 상태에서 하나씩 선택하여 여러 개의 비인접 이메일을 선택할 수 있습니다.
또는 "Shift" 키를 누른 상태에서 첫 번째와 마지막 이메일을 선택하여 여러 개의 인접 이메일을 선택할 수 있습니다.

2. "Kutools Plus" > "첨부 파일 도구" > "모두 저장"을 클릭합니다. 스크린샷 보기:

3. "저장 설정" 대화 상자에서 버튼을 클릭하여 첨부 파일을 저장할 폴더를 선택한 다음, "확인" 버튼을 클릭합니다.

save attachments by kutools for outlook 1

4. 이후 나타나는 대화 상자에서 "확인"을 두 번 클릭합니다. 그러면 선택한 이메일의 모든 첨부 파일이 지정된 폴더에 한 번에 저장됩니다.

참고:

1. 이메일에 따라 첨부 파일을 다른 폴더에 저장하려면 "다음과 같은 스타일로 하위 폴더 만들기" 상자를 체크하고 드롭다운에서 폴더 스타일을 선택하세요.
2. 모든 첨부 파일을 저장하는 것 외에도 특정 조건에 따라 첨부 파일을 저장할 수 있습니다. 예를 들어, 파일 이름에 "Invoice"라는 단어가 포함된 PDF 파일 첨부 파일만 저장하려면 "고급 옵션" 버튼을 클릭하여 조건을 확장하고 아래와 같이 구성하세요.
3. 이메일이 도착할 때 자동으로 첨부 파일을 저장하려면 자동 저장 첨부 파일 기능이 도움이 될 수 있습니다.
4. 선택한 이메일에서 첨부 파일을 직접 분리하려면 "Kutools for Outlook"의 모든 첨부 파일 분리 기능이 도움이 될 수 있습니다.