複数のWord文書をバッチ変換して添付する方法 PDF Outlook電子メールへのファイル

Outlookソリューション 2025 年 9 月 29 日

Word文書をとして添付するのは簡単です PDF Outlookの電子メールにファイルします。ただし、複数のWord文書を次のように添付する場合 PDF メールにファイル、あなたはこの記事を読むことができます。ここでは、バッチで取得する方法を示します。

Word文書を次のように添付するには PDF Word文書をOutlookメールに送信するには、まずWord文書を開き、「ファイル」メニューに移動します。次に、「保存と送信」タブに切り替えると、「PDFとして送信」ボタンが表示されます（以下のスクリーンショットを参照）。

したがって、Word文書を次のように添付するのは非常に簡単です。 PDF メールに。ただし、複数のWord文書を変換して添付する場合は、 PDF ファイルをメールに送信するには、次の方法を使用することをお勧めします。それはあなたがそれをまとめて達成させることができます。

複数のWord文書をバッチ変換して添付する PDF メールへのファイル

まず、必要なWord文書をすべて同じWindowsフォルダに集めてください。
次に、Outlookプログラムを起動します。
次に、次のコードを未使用のプロジェクトまたはモジュールにコピーします。

Dim objMail As Outlook.MailItem

Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       objMail.Display
    End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strDocumentName As String
    Dim strPDF As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
           Set objWordApp = CreateObject("Word.Application")
           Set objWordDocument = objWordApp.Documents.Open(objFile.Path)

           'Convert document to pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
           strPDF = strPath & strDocumentName & ".pdf"
           objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False

           'Attach the pdf to email
           objMail.Attachments.Add strPDF

           Kill strPDF
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubfolder.Path)
           End If
       Next
    End If
End Sub

その後、カーソルを最初のサブルーチンに移動します。
続いて、「F5」を押して、このマクロをすぐに実行します。
ポップアップの小さなダイアログボックスで、ソースのWord文書が保存されているWindowsフォルダーを選択します。
すぐに新しいメールが作成され、添付ファイルを確認できます PDF 以下のscreenshostのようなファイル。

Outlookのトラブルに悩まされている

Outlookのその他の問題に悩まされていませんか？たとえば、Outlookが頻繁に「応答しない」状態でスタックしたり、Outlook PSTファイルにアクセスできなくなったりします。通常、最初に受信トレイ修復ツールを試すことができます。スキャンプスト、PSTの問題を修正します。ただし、問題は、組み込みツールで実行できる範囲を超えている場合があります。したがって、次のような、より強力な外部ユーティリティを近くに置いておくとよいでしょう。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com