Outlook でメールを PDF ファイルとして保存する：ステップ・バイ・ステップガイド

重要なメールをOutlook で PDF ファイルとして保存したいというニーズは、重要なやり取りをアーカイブしたい方、特定のメッセージをセキュアなドキュメントとして共有したい方、あるいは法的・コンプライアンス上の理由から確実にファイルを保存しておきたい方に共通するものです。Microsoft Outlook には「PDF として保存」専用のオプションがインターフェース内に直接用意されていませんが、メールメッセージを PDF ファイルに変換できる実用的な方法がいくつかあります。本ガイドでは、それぞれの手順を詳しく解説し、お客様の状況に最も適した方法を選ぶお手伝いをするとともに、スムーズな操作を実現するためのトラブルシューティングと実践的なヒントを提供します。

印刷機能を使用してメールを PDF ファイルとして保存する

VBA コードを使用して選択したメールを PDF ファイルとして保存する

Kutools for Outlook を使用して選択したメールを PDF ファイルまたはその他のファイルの種類として保存する

---

印刷機能を使用してメールを PDF ファイルとして保存する

単一のメールを最小限の設定で PDF ファイルとして保存したい場合は、Outlook に組み込まれた印刷機能が手軽な方法を提供します。この方法は、メールを一括処理する必要がない場合に特に適しています。「Microsoft Print to PDF」という組み込みプリンターを使えば、メールの書式や添付ファイル（印刷時の参照のみ）をそのまま維持しながら、素早く PDF 形式に変換できます。

この方法を使用するには：

1。Outlook でメールフォルダーに移動し、PDF として保存したいメッセージを選択してください。

2。「ファイル」＞「印刷」をクリックすると、選択したメールの印刷オプションが開きます。

3。プリンターのドロップダウンメニューから「Microsoft Print to PDF」を選択してください。このプリンターは、ほとんどの最新バージョンのWindows に標準搭載されており、お使いのコンピューターにもインストール済みであることをご確認ください。その後、「印刷」ボタンをクリックして続行します。

4。「印刷出力を名前を付けて保存」ウィンドウが表示されたら、PDF ファイルを保存したいフォルダーを選択し、ファイル名を入力して「保存」をクリックしてください。後で簡単に見つけられるよう、保存場所をしっかり覚えておきましょう。

ヒントと注意点：PDF 印刷方式はシンプルで追加のプラグイン不要ですが、個別のメールを保存するのに最適です。この方法では、メール本文とその書式のみが PDF に含まれ、添付ファイルは直接エクスポートされません。また、メールに横幅の広い表や画像が含まれている場合、印刷レイアウトが受信トレイでの表示と若干異なることがあります。複数のメッセージを一度に保存したい場合や、出力オプションをより細かく制御したい場合は、以下に示す他のソリューションをご検討ください。

---

VBA コードを使用して選択したメールを PDF ファイルとして保存する

メールを一括で PDF 形式に変換する必要がある場合や、プロセスの自動化をご希望の場合は、VBA（Visual Basic for Applications）コードを活用することで、ワークフローを大幅に効率化できます。このソリューションは、Outlook の開発者機能に慣れているユーザーにとって特に有用で、ビジネスプロセスやケース管理のためにメールを頻繁にアーカイブまたは変換するシーンに最適です。

Outlook で VBA コードを実行する前に、マクロが有効になっていることをご確認ください（ファイル > オプション > トラストセンター > トラストセンターの設定 > マクロの設定）。また、このコードは変換処理のために Microsoft Word を自動操作するため、あらかじめWord がインストールされている必要があります。

選択したメールを PDF ファイルとして保存するために VBA を使用する手順は次のとおりです：

1。まず、PDF に変換したいメールを選択してください。

2。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3。VBA エディターで、挿入 > モジュールをクリックして新しいモジュールを作成し、以下の VBA コードをモジュールウィンドウにコピー＆ペーストしてください。

VBA コード：Outlook メールを PDF ファイルとして保存する

Public Sub SaveSelectedMailsAsPDF()
'Updated by extendoffice.com
    Dim sel As Selection
    Dim itm As Object, mail As Object
    Dim outFolder As String
    Dim fso As Object
    Dim tempPath As String, tempFile As String
    Dim wrdApp As Object, wrdDoc As Object
    Dim startedWord As Boolean
    Dim fileName As String, fullPath As String
    Dim counter As Long

    Set sel = Application.ActiveExplorer.Selection
    If sel Is Nothing Or sel.Count = 0 Then
        MsgBox "Please select one or more emails first.", vbExclamation
        Exit Sub
    End If

    outFolder = PickFolderPath("Select a folder to save PDFs")
    If Len(outFolder) = 0 Then Exit Sub

    Set fso = CreateObject("Scripting.FileSystemObject")
    tempPath = fso.GetSpecialFolder(2)

    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    On Error GoTo 0
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
        startedWord = True
    End If
    wrdApp.Visible = False

    For Each itm In sel
        If TypeName(itm) = "MailItem" Then
            Set mail = itm

            tempFile = fso.BuildPath(tempPath, "oltmp_" & SafeStamp() & "_" & SanitizeID(mail.EntryID) & ".mht")
            mail.SaveAs tempFile, 10

            Set wrdDoc = wrdApp.Documents.Open(tempFile, False, True, False, _
                                               "", "", False, "", "", 0, 0, False)

            fileName = SafeFileName(mail.Subject)
            If Len(fileName) = 0 Then fileName = "Message"
            fullPath = outFolder & "\" & fileName & ".pdf"
            counter = 1
            Do While fso.FileExists(fullPath)
                fullPath = outFolder & "\" & fileName & "_" & counter & ".pdf"
                counter = counter + 1
            Loop

            wrdDoc.ExportAsFixedFormat fullPath, 17, False, 0, 0, 0, 0, 0, True, True, 0, True, True, False

            wrdDoc.Close False

            On Error Resume Next
            Kill tempFile
            On Error GoTo 0
        End If

        DoEvents
    Next

    If startedWord Then wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing

    MsgBox sel.Count & " email(s) saved as PDF in:" & vbCrLf & outFolder, vbInformation
End Sub

Private Function PickFolderPath(ByVal prompt As String) As String
    Dim sh As Object, fol As Object
    Set sh = CreateObject("Shell.Application")
    Set fol = sh.BrowseForFolder(0, prompt, 0)
    If Not fol Is Nothing Then
        PickFolderPath = fol.Self.Path
    Else
        PickFolderPath = ""
    End If
End Function

Private Function SafeFileName(ByVal s As String) As String
    Dim bad As Variant, i As Long
    bad = Array("\", "/", ":", "*", "?", """", "<", ">", "|", vbCr, vbLf)
    For i = LBound(bad) To UBound(bad)
        s = Replace(s, bad(i), " ")
    Next
    s = Trim$(s)
    If Len(s) > 150 Then s = Left$(s, 150)
    SafeFileName = s
End Function

Private Function SafeStamp() As String
    SafeStamp = Format(Now, "yyyymmdd_hhnnss")
End Function

Private Function SanitizeID(ByVal s As String) As String
    SanitizeID = Replace(Replace(s, "\", ""), "/", "")
End Function

4。コードを実行するには、VBA エディターに戻り、アクティブなモジュールでをクリックするか、F5キーを押してください。

5。コード実行中に、PDF 出力の保存先を指定するダイアログが表示されます。

6。処理が完了すると、選択したメールが個別の PDF ファイルとして指定した場所に自動的にエクスポートされます。フォルダーを開いて、すぐに PDF ファイルをご確認いただけます。

トラブルシューティングとヒント：

• Microsoft Word が起動できないというエラーが表示された場合は、Word が正しくインストールされ、適切にライセンスされていることをご確認ください。
• 添付ファイルは PDF には含まれず、メール本文のみが保存されます。
• VBA コードを実行する前に、誤ってデータを失わないよう、必ず作業内容を保存してください。

---

Kutools for Outlook を使用して選択したメールを PDF ファイルまたはその他のファイルの種類として保存する

複数のメールを PDF やその他のファイル形式に、わずか数回のクリックでより効率的に保存したいなら、Kutools for Outlookが便利なユーティリティを提供します。この方法は、大量のメッセージを一度にエクスポートしたい場合、メールを一括処理したい場合、あるいは PDF 以外にもExcel、CSV、HTML など、さらに多彩な形式でエクスポートしたい場合に最適です。Kutools のような専用アドインを使えば、大幅な時間節約と手作業の負担軽減が実現できます。メールを定期的にアーカイブしたり、標準化された形式で共有したりする必要のあるオフィスワーカーや管理者にとって、特に大きな価値があります。

1。Outlook のメールフォルダーで、PDF ファイルとしてエクスポートしたいメッセージを1 通以上選択します。（Shift キーまたは Ctrl キーを使えば、複数のメッセージをまとめて選択できます。）

2。「Kutools」>「Bulk Processing」>「Save Emails as PDF and Other Formats」をクリックします。

3。「Save Messages as Other Files」ダイアログで、ファイルの保存先パスを指定します。「PDF format」オプションをオンにし、必要に応じてその他の設定を行います。たとえば、メールの保存範囲（ヘッダーまたは本文）を選択可能。この柔軟性により、簡潔な PDF 記録も、詳細な PDF 記録も、自由に作成できます。

3。「OK」をクリックすると、Kutools が選択したメールを処理し、各メールを個別の PDF ファイルとして指定フォルダーに保存します。この処理は非常に高速で、数十通から数百通のメッセージであっても同様です。

メリット：Kutools for Outlook は、大量変換を効率化し、より多くの出力形式をサポート。組み込みソリューションと比べて手動操作を大幅に削減します。メールのバッチ保存を頻繁に行う方や、メールリストの構造を保持したりメタデータを確実に保存するなど、高度なエクスポート機能が必要な方に特におすすめです。Kutools を使えば、書式の不整合を防ぎ、アーカイブされた PDF が常に整理整頓された状態になることを保証します。

制限事項と注意点：Kutools はアドインのため、事前にインストールが必要です。最新バージョンがインストールされているかご確認いただき、最新版のOutlook との互換性と最高のパフォーマンスを確保してください。添付ファイルは通常、出力設定に応じて埋め込みファイルまたは参照としてエクスポートされますので、希望する結果を得るためにダイアログ内の設定を必ずご確認ください。

---