KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Outlook で1 通または複数のメールをWord 文書にエクスポートするには、どうすればよいですか?

著者変更日

このチュートリアルでは、Outlook から1 通または複数のメールをWord 文書にエクスポートするための実用的な方法をいくつかご紹介します。メールをWord にエクスポートするのは、重要なやり取りをアーカイブしたり、ドキュメントを作成したり、Outlook 外で書式付きメッセージを共有したりする際によくあるニーズです。しかし、残念ながらOutlook にはメールをWord 文書として直接エクスポートする機能が標準搭載されていないため、多くのユーザーが代替手段や生産性ツールに頼らざるを得ません。本記事では、さまざまなシナリオや要件に合わせたステップバイステップのガイドをご提供します。

1 通のメールをWord 文書にエクスポートする

複数のメールを個別のWord 文書にエクスポートする

VBA マクロを使用してメールをWord にエクスポートする


1 通のメールをWord 文書にエクスポートする

Outlook には「Word にエクスポート」する機能が直接搭載されていません。ただし、メールを一度 MHT(ウェブページアーカイブ)ファイルとして保存し、その後そのファイルを Microsoft Word で開くことで、Word 文書に変換できます。この方法は、書式を含めた単一のメッセージをエクスポートしたい場合に最適です。

この方法は、たまに1~2 通のメールを変換したい場合や、アドインやスクリプトを使いたくない場合に特に適しています。ただし、頻繁に利用したりバッチエクスポートが必要になったりする場合は、メールごとに手作業で対応しなければならず、繰り返しが多くて非効率的です。

1。エクスポートしたいメールを選択し、次にファイル名前を付けて保存をクリックします。
doc export email to word1

2。「名前を付けて保存」ダイアログボックスで、保存先フォルダーを選択し、ファイル名を入力してから、「保存形式を指定」ドロップダウンを「MHT ファイル」に設定します。
doc export email to word2

3。保存後、MHT ファイルを保存したフォルダーに移動し、ファイルを右クリックして、プログラムから開くMicrosoft Wordを選択してください。下記のスクリーンショットをご参照ください。
doc export email to word3

4。Microsoft Word で、ファイル名前を付けて保存(または)参照)を選択して保存先を指定し、Word 文書保存形式を指定ドロップダウンから選びます。
doc export email to word4

5。保存をクリックすると、メールがWord 文書として変換・保存されます。

注意点とヒント:

  • 添付ファイルはWord ファイルには含まれません。必要に応じて、別途保存してください。
  • お使いのWord バージョンが MHT 形式を認識しない場合は、Word 内で開く参照を選択し、ファイルの種類を「すべてのファイル(*。*)」に変更してみてください。
  • 非常に大きなメールや複雑なメールの場合、変換後にわずかな書式の違いが生じる可能性があります。
  • この方法では、ほとんどの書式やインライン画像が保持されますが、埋め込みオブジェクトや一部の高度な要素はWord で完全にサポートされない場合があります。

複数のメールを個別のWord 文書にエクスポートする

多数のメールを個別のWord ファイルにエクスポートする必要がある場合、1 通ずつ手動で保存するのは非常に時間がかかります。Outlook 外で複数のメールを頻繁にアーカイブしたり処理したりする必要がある(たとえば、レポート作成、共有、ドキュメント化など)場合は、より効率的なバッチ処理ソリューションが不可欠です。

Kutools for Outlookを使えば、選択したメールをさまざまなファイル形式で保存します機能で、複数のメールをわずか数ステップで個別のWord 文書に簡単にエクスポートできます。これにより、メールの書式が完全に保持されるだけでなく、保存時間を大幅に短縮し、処理内容も高度にカスタマイズ可能になります。

Kutools for Outlook:100 以上の必須機能および高度な機能をアンロックできます!今すぐダウンロードして体験しましょう!

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

1。Outlook でエクスポートしたいすべてのメールを選択します(複数選択するには、)CtrlキーまたはShiftキーを押しながらクリック)。その後、Kutools > 一括処理 > 選択したメールをさまざまなファイル形式で保存しますをクリックします。
doc export email to word5

2。「メッセージを他のファイル形式で保存」ダイアログボックスで、まず保存先フォルダーを指定します。次に、Word 形式オプションをオンにしてください。さらに右側のセクションでは、メールのどの部分を保存するかも選べます。
doc export email to word6

3。OKをクリックすると、Kutools が選択した各メールを個別のWord 文書として指定した場所に保存し、可能な限り元の書式を保持します。
doc export email to word7

実用的なヒント:

  • Word ファイルに添付ファイルを含めて送信したい場合は、まずKutools のバッチ保存機能で添付ファイルを抽出または保存してください。
  • 非常に大量のメールをエクスポートする際は、保存先フォルダーに十分なストレージ容量があること、およびファイルパスがWindows の制限を超えていないことをご確認ください。

メリット:頻繁な使用やバッチ処理に最適で、高度なカスタマイズが可能。大切な書式を自動的にキープします。

デメリット:サードパーティ製アドインをインストールする必要があるため、一部の企業環境では利用が許可されていない場合があります。


デモ

 

この動画では、KutoolsKUTOOLS PLUSタブをご紹介します。強力な AI ツールをはじめ、パワフルな機能が満載です!すべての機能を制限なく30 日間無料でお試しください


VBA マクロを使用してメールをWord にエクスポートする

アドインのインストールができない方や、コードベースのソリューションを好むユーザーにとって、Outlook で VBA マクロを使うのは非常に柔軟な選択肢です。この方法を使えば、選択したメールを1 通でも複数通でも、直接Word 文書に自動エクスポートできます。簡単な VBA スクリプトに慣れており、エクスポート内容をカスタマイズしたい方や、特定のフォルダー内のメールを一括処理したい方に最適です。

代表的な使用例には、プロジェクト関連メールの定期的なアーカイブ、ドキュメント記録の作成、法務対応や参照用の一括エクスポートなどが挙げられます。

注意事項:

  • VBA マクロは、Outlook のセキュリティ設定により制限されることがあります。マクロが無効になっている場合は、続行前に必ず有効にしてください。
  • このマクロはメール本文と基本情報をエクスポートしますが、添付ファイルはデフォルトでは含まれません。
  • 生成されたWord ファイルは指定したフォルダーに保存されますので、そのフォルダーに書き込み権限があることを事前にご確認ください。
  • エラーが発生した場合は、保存先のパスを再度ご確認いただき、Microsoft Word がお使いの PC にインストールされていることをご確認ください。

VBA マクロの使用方法:

1。Outlook で、まずメールリストからエクスポートしたいメールを1 通または複数通選択します。

2Alt+F11を押して、Microsoft Visual Basic for Applicationsエディターを開きます。

3。VBA エディターで、挿入 > 標準モジュールを選択し、空のモジュールウィンドウに以下の VBA コードを貼り付けてください。

VBA コード:選択したメールを個別のWord 文書としてエクスポート

Sub ExportEmailsToWordDocs()
    Dim olSelection As Selection
    Dim olItem As Object
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim savePath As String
    Dim WshShell As Object
    Dim Folder As Object
    Dim i As Integer
    Dim fileName As String
    Dim xTitleId As String
    
    xTitleId = "Kutools for Outlook"
    On Error GoTo ErrHandler
    
    ' Get selected emails
    Set olSelection = Application.ActiveExplorer.Selection
    If olSelection.Count = 0 Then
        MsgBox "Please select at least one email.", vbInformation, xTitleId
        Exit Sub
    End If
    
    ' Use Shell folder picker (works in Outlook)
    Set WshShell = CreateObject("Shell.Application")
    Set Folder = WshShell.BrowseForFolder(0, "Select a folder to save Word documents", 0, 0)
    
    If Folder Is Nothing Then
        MsgBox "Operation cancelled.", vbInformation, xTitleId
        Exit Sub
    End If
    savePath = Folder.Items().Item().Path
    If Right(savePath, 1) <> "\" Then savePath = savePath & "\"
    
    ' Create Word application
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False
    
    ' Loop through each selected email
    For i = 1 To olSelection.Count
        Set olItem = olSelection.Item(i)
        
        ' Process only MailItem objects
        If olItem.Class = 43 Then
            Set wdDoc = wdApp.Documents.Add
            
            ' Sanitize subject for file name
            fileName = CleanFileName(olItem.Subject)
            If fileName = "" Then fileName = "Email_" & i
            
            ' Write content to Word doc
            With wdDoc
                .Content.InsertAfter "Subject: " & olItem.Subject & vbCrLf
                .Content.InsertAfter "From: " & olItem.SenderName & " <" & olItem.SenderEmailAddress & ">" & vbCrLf
                .Content.InsertAfter "Sent: " & olItem.SentOn & vbCrLf & vbCrLf
                .Content.InsertAfter olItem.Body
                .SaveAs2 FileName:=savePath & fileName & ".docx", FileFormat:=16
                .Close False
            End With
        End If
    Next i
    
    MsgBox "Successfully exported " & olSelection.Count & " email(s) to Word documents." & vbCrLf & _
           "Saved in: " & savePath, vbInformation, xTitleId
    
Cleanup:
    On Error Resume Next
    wdApp.Quit
    Set wdApp = Nothing
    Set olSelection = Nothing
    Set olItem = Nothing
    Exit Sub
    
ErrHandler:
    MsgBox "An error occurred: " & Err.Description, vbExclamation, xTitleId
    Resume Cleanup
End Sub

' Helper to clean illegal filename characters
Private Function CleanFileName(strName As String) As String
    Dim invalidChars As Variant, ch As Variant
    invalidChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    For Each ch In invalidChars
        strName = Replace(strName, ch, "_")
    Next
    CleanFileName = Trim(strName)
End Function/code>

4。VBA エディターでF5キーを押して実行するか、今後のスピーディーなアクセスのためにマクロをクイックアクセスツールバーまたは開発タブに登録しましょう。

5。プロンプトが表示されたら、保存先フォルダーを選択してください。マクロは選択した各メールを処理し、件名をファイル名として個別のWord(。docx)ファイルに保存します。
ファイル名に使用できない文字(件名に含まれる場合)は、アンダースコア(_)に自動で置き換えられます。エクスポート内容には、送信者、件名、日付、本文が含まれます。

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

  • メールの件名が非常に長いと、Windows がファイルの保存をブロックすることがあります。その場合は、事前に Outlook で件名を手動で短縮してください。
  • Word が開かない場合やエラーが表示される場合は、Microsoft Word がインストールされていて、最新版になっていることをご確認ください。
  • この方法では、埋め込み画像や複雑な書式はエクスポートされません。高忠実度でのエクスポートをご希望の場合は、Kutools の方法をご利用ください。
  • プライバシー保護のため、保存先フォルダーに同名の既存ファイルが上書きされないことをご確認ください。

上記のように、Outlook からWord へメールをエクスポートするための効果的な方法がいくつか用意されています。単一のメールだけを変換したい場合、生産性向上アドインを使って複数のメールを一括処理したい場合、あるいは VBA コードでプロセスを自動化したい場合など、それぞれのニーズにぴったりの選択肢があります。各ソリューションには独自のメリットがあり、手動での方法は設定不要ながら処理が遅く、Kutools のようなアドインは柔軟性に富んだ効率的な一括操作を提供し、VBA マクロはワークフローをカスタマイズしたい方にとって完全な制御を可能にします。いずれかの方法が要件を十分に満たさない場合は、いつでも他のアプローチに切り替えることができます。

問題が発生した場合は、ファイルのアクセス権を再確認し、ソフトウェアが最新版であることを確認したうえで、各手順を慎重に実行してください。さらに高度な自動化や連携が必要な場合は、メールを PDF としてエクスポートすることもご検討ください。また、必要に応じてOutlook のその他のエクスポート機能もぜひご活用ください。


最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう!今すぐダウンロード!

🤖KUTOOLS AI高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化自動返信(POP および IMAP 対応)/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送(高度なルール)/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます!英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています!

ワンクリックでKutools for Outlook の機能を即解放!今すぐダウンロードして、効率を飛躍的にアップさせましょう!

kutools for outlook features1kutools for outlook features2

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨:Kutools for Office(5-in-1)

ワンクリックで5 つのインストーラーを 一括ダウンロード! ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro今すぐダウンロード!

  • ワンクリックで簡単操作:5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
  • 🚀どんな Office 作業にも対応可能:必要なときに、必要なアドインをすぐインストールできます。
  • 🧰含まれるもの:Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint