Outlook 에서 여러 이메일을 일괄적으로 PDF 파일로 변환하는 방법은 무엇인가요？

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

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

파일로 저장 유틸리티를 사용하여 일괄 이메일을 개별 PDF 파일로 변환하기

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

---

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

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

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

2. Save Print Output As대화 상자에서 파일을 저장할 경로를 선택하고 이름을 지정합니다。

3. Save을 클릭한 후Cancel을 클릭하여 인쇄를 중지합니다。

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

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

---

---

파일로 저장 유틸리티를 사용하여 일괄 이메일을 개별 PDF 파일로 변환하기

위의 방법을 사용하면 한 번에 하나의 메시지만 PDF 파일으로 저장할 수 있습니다。 여러 이메일을 일괄적으로 개별 PDF 파일로 변환하려면Kutools for Outlook의PDF 와 같은 다양한 형식으로 선택한 항목 저장하기유틸리티를 사용해 보세요。

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

1. 변환하려는 이메일을 선택한 다음Kutools>Bulk Processing > S ave Selected Messages as Files in Vavrious Formats like PDF을 클릭합니다。

2. Save message as other files대화 상자에서 파일을 저장할 경로를 선택하고PDF형식 옵션을 선택하세요。 오른쪽 섹션에서 콘텐츠 저장 관련 옵션을 확인할 수 있습니다。

3. Ok을 클릭합니다。

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

  Save Selected Messages as File

---

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

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

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

2. Insert>Module를 클릭한 후 아래 코드를Module스크립트에 붙여넣습니다。

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키를 눌러 파일 저장 대화 상자를 활성화하고， 파일을 저장할 위치를 지정한 후 이름을 입력합니다。

4. Save을 클릭합니다。

팁： 코드가 실행되지 않으면 신뢰 센터로 이동하여 매크로 설정 섹션에서 '모든 매크로 사용‘ 옵션을 확인해 보세요。