Question

我想在Outlook中保存所选项目。使用以下代码，我可以保存该项目，但它只保存第一项而不是所选项目。

为了保存所选项目，我需要更改哪些内容？

{{1}}

Answer 1

以下行不会在没有错误的情况下运行

If oOlApp.ActiveExplorer.Selection.Item(1) = True Then

另外，您正在调用Exit sub，这意味着只能处理一个项目。

绝对没有理由循环浏览文件夹中的所有项目。将循环更改为以下

For Each oItem In oOlApp.ActiveExplorer.Selection
        oItem.SaveAs Sheet1.Range("V5").Value & oItem.Subject & ".msg", olMSG
        match.Offset(, 7).Value = oItem.SenderName & "-" & oItem.Subject & "-" & oItem.ReceivedTime
        match.Offset(, 8).Value = VBA.Environ("Username") & "- " & VBA.Now
Next oItem

如何在Outlook VBA中保存所选项目

1 个答案: