有时，您需要提取并打印多封电子邮件的附件列表。 在本文中，我们将教您 2 种获取方法。
如果您收到多封带有多个附件的电子邮件以供参考，您可能需要打印出这些附件名称。 在这种情况下，如何批量获取？ 下面，我们将教您2种快速打印多封Outlook邮件附件列表的方法。
方法 1：以富文本格式打印和复制附件列表
- 首先，打开一封 Outlook 电子邮件。
- 然后，在“消息”窗口中，单击“操作”并选择“编辑消息”。
- 接下来，转到“格式文本”选项卡，在该选项卡上选择“富文本”格式。
- 立即，您可以看到电子邮件附件已移至正文。
- 之后，单击“消息”选项卡上“回复”组中的“回复”按钮。
- 在后续的邮件中，附件列表已经在正文中了，如下图所示。
- 现在您可以将附件列表复制到新电子邮件中。
- 稍后，使用此方法将其他邮件的附件列表复制到新邮件中。
- 最后，您可以像往常一样打印出这封新邮件。
方法二：通过Outlook VBA打印附件列表
- 首先，按“Alt + F11”打开 Outlook VBA 编辑器。
- 然后，将以下 VBA 代码复制到模块中。
Sub PrintAttachmentListsOfManyEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objTempMail As Outlook.MailItem
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Input the attachment lists into a temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
For i = 1 To objSelection.Count
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Attachments.Count > 0 Then
objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
For n = 1 To objMail.Attachments.Count
Set objAttachment = objMail.Attachments(n)
objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
Next
End If
End If
Next
'Print the temp mail
objTempMail.PrintOut
End If
End Sub
- 之后，参考文章-》将此宏添加到快速访问工具栏如何在 Outlook 中运行 VBA 代码“。
- 最后，试试这个宏。
- 首先，选择几个电子邮件。
- 然后，单击快速访问工具栏中的宏按钮。
- 一下子，这些邮件的附件清单肯定已经打印出来了。
求助于一流的 Outlook 修复工具
当您遇到 Outlook 文件损坏时，最好的消息是您手头有最近的 Outlook 数据备份。 它可以让您摆脱复杂的 Outlook 文件修复。 但是，有时备份可能无法恢复。 到那时，您需要求助于更出色、更专业的修复工具，例如 DataNumen Outlook Repair. 它可以修复 损坏的 PST 几分钟之内。
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com