由于某些不道德的原因，我需要通过Outlook 2010打印出10,500封电子邮件及其附件（约占电子邮件的70％）。我和您一样，对如此荒谬的效率低落感到震惊，我们估计这55,000张纸将使我们和全世界付出代价。尽管如此，它要么手动发生（过去两天我们一直在做），要么自动发生（请上帝帮助我们）。

需要对这些邮件进行订购，以便每封电子邮件都位于其各自附件的顶部并按时间顺序打印。因此，电子邮件1，附件1，电子邮件2，附件2等。附件可以包含在Powerpoint，Excel，Word Docs中，而最麻烦的是：zip文件。

到目前为止，这是我尝试过的操作：

1. 在Outlook中，“选项”->“打印选项”->选择带有附件的打​​印

2. 将所有邮件转换为.eml文件并从文件夹中打印

3. 使用第三方邮件附件（通过Sperrysoftware）将所有电子邮件转换为pdf并导出到文件夹。取出该文件夹并按日期对其重新排序，然后打印出pdf。

到目前为止，这些都不起作用的原因如下：

1. Outlook的“带有附件的打​​印”设置很少用于其中包含宏的文档。最重要的是，它不适用于zip文件，而只是将其传递过来。

2. 显然，.eml文件不能在邮件客户端外部直接打印或读取。我实际上认为这仍然是我们最有前途的工作，因为实际上，整个邮件文件都以稳定的格式表示，分开并位于邮件客户端外部，这意味着它们是可行的。我似乎找不到能够有效地让我将电子邮件及其各自压缩的和不同格式的附件转换为可打印文件的第三方软件。如果您知道一个，我们也愿意在软件上花费超过200欧元。

3. 该软件起初很有前途。但是宏经常中断，它也将我们公司的电子邮件签名识别为附件。

如果您能提供任何建议，这将对我们有很大帮助。目前，我们正在打开每封电子邮件及其相应的3-4个附件，并通过每个附件的相应打印对话框进行打印。这将需要我们五个人一个月，因此您的宝贵意见将受到高度重视！

MsgExtract可以批量打印来自不同电子邮件来源的电子邮件，还可以转换电子邮件格式。

1. 它可以按时间顺序批量打印电子邮件及其附件。我们在最新版本中添加了根据您的要求解压缩和打印zip附件的功能。
2. 可以将Outlook电子邮件另存为EML文件
3. 可以将Outlook电子邮件另存为PDF文件
4. 它可以下载消息的html部分中链接的图像，并以结果格式包含它们（PDF文件，打印机...）

为了打印附件，MsgExtract依赖于Windows Shell打印关联，如果附件文件扩展名不存在关联，则将其跳过。

您可以在以下位置了解有关MsgExtract批打印的更多信息：

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

（免责声明，我是MsgExtract的作者）

我在这台计算机上没有Outlook，并且直到下周才能访问带有Outlook的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

因此，它会遍历该文件夹以查找电子邮件，进行打印并检查其附件，如果找到，也将对其进行打印。

就像我说的那样，我没有远见，所以我无法测试。

不要继续使用实时数据！

如果您是我，我希望将三份已复制的电子邮件放在一个新文件夹中，并在处理任何实时数据之前对其进行测试。您可能需要查找如何set oFolder