Outlook 2010 将.msg另存为附件名称

Question

我希望你能帮助我。 我是Outlook 2010 VBA的新手，但需要一个宏来：-

保存一组突出显示的电子邮件：- a( 作为.msg文件; b( 在给定的文件夹中; c( 其中每个名称是附件名称。

举个例子，假设我的已发送邮件文件夹中有 20 封电子邮件，我想突出显示其中的 10 封并运行此宏，在给定文件夹中使用 10 个平面文件结束，这些文件带有每封电子邮件的附件名称。

受此宏约束的每封电子邮件都只有一个附件，因此要清楚一点，如果我们有一封主题行为"随机文本转到这里无关紧要"的电子邮件，以及附件"GO.XLSX"，我希望提取的文件称为GO.msg并且，为了确认，这是我正在运行的Outlook 2010。

我已经浏览了大量的 VBA 网站和宏片段，但我无处可去 =[

Answer 1

不确定我是否理解您的问题，但这里有一个简单的例子：

Sub QuickExample()
    For Each Item In Application.ActiveExplorer.Selection
        If Item.Attachments.Count > 0 Then
            Debug.Print Item.Attachments(1).DisplayName
        End If
    Next
End Sub