Outlookで複数の電子メールをPDFファイルにバッチ変換するにはどうすればよいですか？

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

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

XNUMX通のメールをVBAでPDFファイルに変換する

[ファイルとして保存]ユーティリティを使用して、バッチメールを個別のPDFファイルに変換します

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

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

1. PDFに変換する電子メールを選択し、をクリックします File > 印刷物選択 Microsoft Print to PDF Printer ドロップダウンリストをクリックして Print.
電子メールをPDFにバッチ変換するドキュメント1

2。の中に Save Print Output As ダイアログで、ファイルを配置するパスをXNUMXつ選択し、名前を付けます。
電子メールをPDFにバッチ変換するドキュメント2

3。クリック Save、クリック Cancel 印刷を停止します。
電子メールをPDFにバッチ変換するドキュメント3

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

Note：この方法はOutlook2016でのみ機能します。

XNUMX通のメールをVBAでPDFファイルに変換する

Outlook 2007または2010で作業している場合は、VBAコードを適用してXNUMXつの電子メールをPDFファイルに変換できます。

1.メールをXNUMXつ選択し、を押します 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

電子メールをPDFにバッチ変換するドキュメント4

3。押す F5 キーを押して「ファイル保存」ダイアログを有効にし、ファイルを配置するフォルダーを選択して名前を付けます。
電子メールをPDFにバッチ変換するドキュメント5

4。クリック Save.

先端注: コードを実行できない場合は、セキュリティセンターに移動して、[マクロ設定] セクションの [すべてのマクロを有効にする] オプションを確認してみてください。
電子メールをPDFにバッチ変換するドキュメント6

[ファイルとして保存]ユーティリティを使用して、バッチメールを個別のPDFファイルに変換します

上記の方法では、一度に XNUMX つのメッセージのみを PDF ファイルとして保存できます。複数のメールを個別の PDF ファイルにバッチ変換したい場合は、次の方法を試してください。 Kutools for Outlookさん 一括保存 ユーティリティ。

Kutools for Outlook, 含まれています Microsoft Outlook 2016、2013、2010、およびOffice365の強力な機能とツール。
ダウンロードに移動 60日間の無料トライアル

無料インストール Outlook用Kutoolsを実行し、次の手順を実行します。

1. 変換する電子メールを選択し、クリックします。 Kutools > Bulk Save.
電子メールをPDFにバッチ変換するドキュメント7

2。の中に Save message as other files ダイアログで、ファイルを見つけるパスを選択し、チェックマークを付けます。 PDF format オプションを選択すると、右側のセクションでコンテンツの保存に関するオプションを確認できます。
電子メールをPDFにバッチ変換するドキュメント8