Outlook 에서 이메일을 열지 않고 첨부 파일을 저장하려면 어떻게 해야 하나요？

작성자Siluvia수정 날짜2024-09-23

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

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에서 추천합니다。 선택한 이메일에서 첨부 파일을 분리하지 않고 단순히 저장만 하고 싶다면 '모든 첨부 파일 저장‘ 기능을 통해 쉽게 처리할 수 있습니다。 다음 단계를 따르세요。
Kutools for Outlook 을 적용하기 전에 먼저다운로드하여 설치하세요.

아웃룩의 비효율성과 작별하세요! Kutools for Outlook 으로 대량 이메일 처리가 더 쉬워집니다. 지금 바로 30 일 무료 체험을 시작해 보세요！Kutools for Outlook 다운로드하기！!

1. 저장할 첨부 파일이 포함된 이메일을 선택한 후Kutools 플러스>첨부 파일 도구>모두 저장을(를) 클릭합니다。

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

2.1)이 폴더에 첨부 파일 저장섹션에서 첨부 파일을 저장할 폴더를 선택하세요；
2.2)다음 스타일로 첨부 파일 저장상자는 첨부 파일을 저장하기 위한 하위 폴더를 특정 스타일로 생성하거나 저장된 첨부 파일을 특정 스타일로 이름을 바꾸는 데 선택적으로 사용할 수 있습니다。
2.3)확인을 클릭하여 선택한 이메일의 모든 첨부 파일 저장을 시작합니다。

팁： 위의 설정을 사용하면 모든 첨부 파일이 지정된 폴더에 저장됩니다。 파일 이름에 「invoice」라는 특정 단어가 포함된 PDF 파일와 같은 특정 첨부 파일만 저장하려는 경우 다음과 같이 필터 조건을 구성할 수 있습니다。

고급 옵션버튼을 클릭하여필터 조건을(를) 확장하세요；
요구 사항에 따라 조건을 지정하세요。
팁：여기에서는【附件】 이름포함 확인란을 선택한 후 텍스트 상자에 「invoice」를 입력하고，첨부 파일 유형확인란을 선택한 후 텍스트 상자에 「.pdf」를 입력합니다。

3. 다음 대화 상자가 나타나면예를 클릭하여 계속 진행합니다。

그러면 선택한 이메일의 첨부 파일이 지정된 폴더에 한 번에 저장됩니다。

팁： 선택한 이메일에서 첨부 파일을 분리하고 이메일 본문에 첨부 파일 하이퍼링크만 남기려면모든 첨부 파일 분리기능을 사용할 수 있습니다。

최고의 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

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