Outlook で複数のメールを一括して PDF ファイルに変換するには、どうすればよいですか？

Outlook では、「名前を付けて保存」機能を使ってメールを保存できる形式は、HTML、TXT、MHT、MSG、およびテンプレート形式に限られています。では、メールを PDF ファイルに変換したい場合はどうすればよいでしょうか？この記事では、その課題を解決するためのいくつかのテクニックをご紹介します。

印刷機能で1 通のメールを PDF ファイルに変換する

「ファイルとして保存」ユーティリティで複数のメールを個別の PDF ファイルに一括変換する

VBA を使用して1 通のメールを PDF ファイルに変換する

---

印刷機能で1 通のメールを PDF ファイルに変換する

Outlook では、印刷機能を使えば、メール1 通を PDF ファイルとして保存できます。

1。ドロップダウンリストに変換したいメールを選択し、File＞印刷をクリックして、プリンターのドロップダウンリストからMicrosoft Print to PDFを選択し、Printをクリックします。

2。Save Print Output Asダイアログで、保存先のフォルダーを選び、ファイル名を入力してください。

3。Saveをクリックして保存し、印刷を中止するにはCancelをクリックします。

これで選択したメールが PDF ファイルに変換されました。

注記：この方法はOutlook 2016 でのみご利用いただけます。

---

---

「ファイルとして保存」ユーティリティで複数のメールを個別の PDF ファイルに一括変換する

上記の方法では、一度に1 通のメールしか PDF ファイルとして保存できません。複数のメールを個別の PDF ファイルに一括変換したい場合は、Kutools for OutlookのPDF など様々な形式で選択したアイテムをファイルとして保存ユーティリティをご活用ください！

Kutools for Outlook を無料でインストールし、以下の手順に従ってください。Kutools for Outlook

1。変換したいメールを選択し、Kutools > Bulk Processing >elected Messages を各種フォーマット（PDF など）でファイルとして保存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 を使用して1 通のメールを PDF ファイルに変換する

Outlook 2007 または2010 をご利用の場合、VBA コードを使って1 通のメールを PDF ファイルに変換できます。

1。メールを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キーを押して「ファイルの保存」ダイアログを開き、ファイルを保存する場所としてフォルダーを選択し、名前を付けて保存します。

4。Saveをクリックします。

ヒント：コードが実行されない場合は、「トラストセンター」の「マクロの設定」で「すべてのマクロを有効にする」オプションをご確認ください。