Question

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

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

举个例子，假设我的已发送项目文件夹中有20封电子邮件，我想突出显示其中的10封并运行此宏，在给定文件夹中以10个平面文件清盘，其中包含每封电子邮件的附件。

每个受此宏影响的电子邮件只有一个附件，所以要清晰明白，如果我们有一个主题行的电子邮件＆＃34;随机文字在这里什么＆＃34;和附件＆＃34; GO.XLSX＆＃34;，我想要将提取的文件称为GO.msg，并确认，这是我正在运行的Outlook 2010。 / p>

我查看了很多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

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

1 个答案: