Outlook에서 여러 이메일을 PDF 파일로 일괄 변환하는 방법은 무엇입니까?

Author: Sun Last Modified: 2025-08-06

Outlook에서는 '다른 이름으로 저장' 기능을 사용하여 이메일을 HTML, TXT, MHT, MSG 및 템플릿 형식 파일로만 저장할 수 있습니다. 이메일을 PDF 파일로 변환하려면 어떻게 해야 할까요? 이 문서에서는 이 문제를 해결하기 위한 몇 가지 팁을 소개합니다.

인쇄 기능을 사용하여 하나의 이메일을 PDF 파일로 변환

'다른 이름으로 파일 저장' 유틸리티를 사용하여 여러 이메일을 개별 PDF 파일로 변환

VBA를 사용하여 하나의 이메일을 PDF 파일로 변환

인쇄 기능을 사용하여 하나의 이메일을 PDF 파일로 변환

Outlook에서 인쇄 기능을 사용하여 하나의 이메일을 PDF 파일로 저장할 수 있습니다.

1. PDF로 변환하려는 이메일을 선택하고, 파일 > 인쇄를 클릭한 다음, 프린터 드롭다운 목록에서 Microsoft Print to PDF를 선택하고 인쇄를 클릭합니다.

2. '인쇄 출력 저장' 대화 상자에서 파일을 저장할 경로를 선택하고 이름을 지정합니다.

3. 저장을 클릭하고 인쇄를 중지하려면 취소를 클릭합니다.

이제 선택한 메시지가 PDF 파일로 변환되었습니다.

참고: 이 방법은 Outlook 2016에서만 작동합니다.

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능적인 콘텐츠 확장
이메일 요약
다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

'다른 이름으로 파일 저장' 유틸리티를 사용하여 여러 이메일을 개별 PDF 파일로 변환

위의 방법들을 사용하면 한 번에 하나의 메시지만 PDF 파일로 저장할 수 있습니다. 여러 이메일을 개별 PDF 파일로 일괄 변환하려면 Kutools for Outlook의 다양한 형식(PDF 포함)으로 선택한 메시지 저장 기능을 사용해 볼 수 있습니다.

👉 Kutools for Outlook에 이제 무료 버전이 출시되었습니다. 이 버전의 70+ 기능은 평생 무료로 사용할 수 있습니다. 지금 무료 버전을 다운로드하세요.

Kutools for Outlook을 무료로 설치 한 후 아래 단계를 따르세요:

1. 변환하려는 이메일을 선택한 다음 Kutools > 대량 처리> 다양한 형식(PDF 포함)으로 선택한 메시지 저장을 클릭합니다.

2. ' 다른 파일로 메시지 저장' 대화 상자에서 파일을 저장할 경로를 선택하고 PDF 형식 옵션을 체크하세요. 오른쪽 섹션에서 본문 저장 관련 옵션을 체크할 수도 있습니다.

3. 확인을 클릭합니다.

이제 이메일이 PDF 파일로 변환되었습니다.

VBA를 사용하여 하나의 이메일을 PDF 파일로 변환

Outlook 2007 또는 2010을 사용 중이라면 VBA 코드를 적용하여 하나의 이메일을 PDF 파일로 변환할 수 있습니다.

1. 하나의 이메일을 선택하고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈 스크립트에 붙여넣습니다.

VBA: 이메일을 PDF로 변환

Sub SaveAsPDFfile()
'UpdatebyExtendoffice
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub

3. F5 키를 눌러 파일 저장 대화 상자를 활성화하고, 파일을 저장할 폴더를 선택하고 이름을 지정합니다.