不愉快な理由で、私はOutlook 2010を通じて10,500通の電子メールとその添付ファイル（電子メールの約70％に付随する）を印刷するよう仕事に求められています。私は、あなたと同じように、とんでもない非効率性にびっくりしており、私たちが推定した55,000枚の紙は、私たちと世界にかかるコストです。それにもかかわらず、それは手動（過去2日間に行ってきた作業）または自動（神の助けをお願いします）のいずれかで行われます。

これらは、各電子メールがそれぞれの添付ファイルの上に配置され、時系列で印刷されるように注文する必要があります。したがって、電子メール1、添付ファイル1、電子メール2、添付ファイル2などです。添付ファイルは、Powerpoint、Excel、Word文書など、最も厄介なもの（zipファイル）で提供されます。

これが私がこれまでに試したことです：

1. Outlookの[オプション]-> [印刷オプション]-> [添付ファイル付きで印刷]を選択します

2. すべてのメールを.emlファイルに変換し、フォルダーから印刷する

3. サードパーティのメールアドオン（Sperrysoftwareによる）を使用して、すべての電子メールをPDFに変換し、フォルダーにエクスポートします。このフォルダを取得して日付順に並べ替え、PDFを印刷します。

これが今のところどれもうまくいかない理由です：

1. Outlookの[添付ファイル付きで印刷]設定は、マクロが含まれているドキュメントではめったに機能しません。何よりも、zipファイルでは機能せず、単にそれらを渡すだけです。

2. 明らかに、.emlファイルを直接印刷したり、メールクライアントの外部で読み取ることはできません。実際、これはメールファイル全体が安定した形式で表され、分離され、メールクライアントの外部にあるため、これは私たちの最も有望な取り組みであると私は思います。電子メールとそれぞれの圧縮されたさまざまな形式の添付ファイルを印刷可能なファイルに効果的に変換できるサードパーティソフトウェアを見つけることができないようです。ご存知の場合は、ソフトウェアに200ユーロを超える費用を支払うこともできます。

3. このソフトウェアは最初は有望でした。ただし、マクロは頻繁に破損し、会社の電子メールの署名も添付ファイルとして認識されます。

あなたが何かアドバイスを提供できるなら、これは私たちにとって大きな助けになるでしょう。現在、すべての電子メールとそれぞれの3〜4個の添付ファイルを開き、各添付ファイルのそれぞれの印刷ダイアログを介してそれらを印刷しています。これには5人で1か月かかるため、あなたの入力は高く評価されます。

MsgExtractは、さまざまなメールソースからのメールメッセージをバッチ印刷したり、メール形式を変換したりできます。

1. メールとその添付ファイルを時系列でバッチ印刷できます。最新のビルドでは、要件に応じてzip添付ファイルを解凍および印刷する機能が追加されました。
2. OutlookメールをEMLファイルとして保存できます
3. OutlookのメールをPDFファイルとして保存できます
4. メッセージのhtml部分にリンクされている画像をダウンロードし、結果の形式（PDFファイル、プリンター...）に含めることができます。

添付ファイルを印刷するために、MsgExtractはWindowsシェルの印刷関連付けに依存しています。添付ファイル拡張子に関連付けが存在しない場合は、スキップされます。

MsgExtractバッチ印刷の詳細については、以下をご覧ください。

http://docs.maildev.com/article/122-how-do-i-batch-print-email-messages-and-its-attachments

（免責事項、私はMsgExtractの作成者です）

私はこのマシンの展望がなく、来週まで展望付きのWindowsマシンにアクセスできません。しかし、基本的には、次のようなことをしたいとします。

Sub test()
Dim oFolder As outlook.folder
Dim oAttachment As outlook.attachment
Dim oMailItem As outlook.mailitem
Dim oItem As Object

set oFolder = 'get the folder you want to print from

Dim i As Integer
Dim j As Integer

For i = 1 To oFolder.items.Count
    Set oMailItem = oFolder.items(i)
    oMailItem.PrintOut

    If oMailItem.attachments.Count > 0 Then
        For j = 1 To oMailItem.Attachments.Count
              'below you might need to change the attachment(j) to items(j)
            Set oAttachment = oMailItem.attachment(j)
            oAttachment.PrintOut
        Next
    End If

Next

End Sub

そのため、メールを探してフォルダを検索し、印刷して添付ファイルをチェックし、見つかった場合はそれらも印刷します。

私が言ったように、私には見通しがないので、これをテストすることはできません。

ライブデータを使用しないでください。

私があなただったら、コピーした3通の電子メールを新しいフォルダに入れて、ライブデータに触れる前にそれらをテストします。方法をルックアップする必要があるかもしれませんset oFolder