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

Author: Sun Last Modified: 2025-05-23

Outlookでは、[名前を付けて保存]機能を使用してメールをHTML、TXT、MHT、MSG、テンプレート形式のファイルとして保存できます。しかし、メールをPDFファイルに変換したい場合、どのようにすればよいでしょうか？この記事では、その問題を解決するためのいくつかの方法を紹介します。

印刷機能を使用して1つのメールをPDFファイルに変換する

[名前を付けて保存]ユーティリティを使用して複数のメールを個別のPDFファイルに変換する

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

印刷機能を使用して1つのメールをPDFファイルに変換する

Outlookでは、印刷機能を使用して1つのメールをPDFファイルとして保存することができます。

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

2. [印刷出力を名前を付けて保存] ダイアログで、ファイルを保存するパスを選択し、名前を付けます。

3. [保存] をクリックし、印刷を中止するには [キャンセル] をクリックします。

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

注意: この方法はOutlook 2016でのみ動作します。

OutlookのAIメールアシスタント：スマートな返信、クリアなコミュニケーション（ワンクリックで魔法のような操作！）無料

Kutools for OutlookのAIメールアシスタントを使用して、毎日のOutlookタスクを効率化しましょう。この強力なツールは、過去のメールから学習し、インテリジェントで正確な返信を提供し、メールの内容を最適化し、メッセージの作成や修正を手間なく行うことができます。

この機能がサポートする内容：

スマート返信：過去の会話に基づいて調整された、的確で使用準備の整った返信を取得します。
強化されたコンテンツ：メールの文章を自動的に洗練させ、明瞭さと影響力を高めます。
簡単な作成：キーワードを入力するだけで、複数のライティングスタイルでAIが残りを処理します。
インテリジェント拡張：文脈を理解した提案で考えを広げます。
要約：長文のメールを瞬時に簡潔にまとめます。
グローバル対応：メールを簡単にどの言語にも翻訳できます。

この機能がサポートする内容：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メールの要約
多言語翻訳

何より、この機能は永遠に完全無料です！今すぐAIメールアシスタントをダウンロードしてお楽しみください！

[名前を付けて保存]ユーティリティを使用して複数のメールを個別のPDFファイルに変換する

上記の方法では一度に1つのメッセージしかPDFファイルとして保存できません。複数のメールを一括して個別のPDFファイルに変換したい場合は、Kutools for Outlookの「選択したメッセージを様々な形式（PDFなど）でファイルとして保存」機能を試してみてください。

👉 Kutools for Outlook に現在無料版が登場しました。このバージョンでは、70+ の機能を生涯無料でご利用いただけます。今すぐ無料版をダウンロードしてください。

Kutools for Outlookを無料でインストール し、以下の手順を実行してください：

1. 変換したいメールを選択し、[Kutools] > [一括処理] > [選択したメッセージを様々な形式（PDFなど）でファイルとして保存] をクリックします。

2. [ メッセージを他のファイルとして保存] ダイアログで、ファイルを保存するパスを選択し、PDF形式のオプションをチェックします。右側のセクションで本文を保存するオプションも確認できます。

3. [OK] をクリックします。

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

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

Outlook 2007または2010を使用している場合、VBAコードを適用して1つのメールを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キーを押して[ファイル保存]ダイアログを有効にし、ファイルを保存するフォルダを選択して名前を付けます。