Outlook 에서 여러 이메일의 모든 첨부 파일을 폴더에 저장하려면 어떻게 해야 하나요？

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

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

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

이 섹션에서는 여러 이메일의 모든 첨부 파일을 특정 폴더에 한 번에 빠르게 저장할 수 있도록 단계별로 VBA 코드를 안내합니다。 다음 단계를 따르세요。

1. 먼저 컴퓨터에 첨부 파일을 저장할 폴더를 생성해야 합니다。

「문서」 폴더로 이동하여 「Attachments」라는 이름의 폴더를 생성하세요。 스크린샷 참조：

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 에서 몇 번의 클릭만으로 여러 이메일의 모든 첨부 파일을 한 번에 빠르게 저장할 수 있습니다。

1. 저장할 첨부 파일이 포함된 이메일을 선택하세요。

팁： 「Ctrl」 키를 누른 상태에서 하나씩 선택하여 인접하지 않은 여러 이메일을 선택할 수 있습니다。
또는 「Shift」 키를 누른 상태에서 첫 번째 이메일과 마지막 셀를 선택하여 인접한 여러 이메일을 선택할 수 있습니다。

2. 「Kutools 플러스」 > 「첨부 파일 도구」 > 「모두 저장」을 클릭하세요。 스크린샷 참조：

3. 「저장 설정」 대화 상자에서버튼을 클릭하여 첨부 파일을 저장할 폴더 선택를 지정한 후 「확인」 버튼을 클릭하세요。

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

참고 사항：

• 1. 이메일에 따라 첨부 파일을 다른 폴더에 저장하려면 「다음 스타일로 하위 폴더 생성」 확인란을 선택하고 드롭다운 목록에서 폴더 스타일을 선택하세요。
• 2. 모든 첨부 파일을 저장하는 것 외에도 특정 조건에 따라 첨부 파일만 저장할 수 있습니다。 예를 들어 파일 이름에 「Invoice」라는 단어가 포함된 PDF 파일 첨부 파일만 저장하려면 「고급 옵션」 버튼을 클릭하여 조건을 확장한 후 아래와 같이 설정하세요。
  
• 3. 이메일 수신 시 자동으로 첨부 파일을 저장하려면첨부 파일 자동 저장기능을 사용할 수 있습니다。
• 4. 선택한 이메일에서 직접 첨부 파일을 분리하려면모든 첨부 파일 분리「Kutools for Outlook」의 기능이 도움이 될 수 있습니다。

관련 문서

---

최고의 Office 생산성 도구

Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！

🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。

📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...

📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...

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

🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...

👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...

👩🏼‍🤝‍👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！

한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！

Kutools for Outlook 기능 목록      지금 다운로드      구매하러 가기

🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기

강력히 권장： Kutools for Office (5-in-1)

한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！

• ✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
• 🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
• 🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

스위트 정보⬇ 스위트 다운로드💳 스위트 구매