ActiveExplorer/Inspector选择多个项目

Question

我试图告诉Outlook只选择一个邮件项，但它似乎选择了多个(我发送到的内部程序引用的是“这些文档”，而不是“此文档”)。正因为如此，它不让我选择文件类型，我相信这是因为程序将文件解释为容器而不是文件。

tl;dr:任何人都能在我的代码中看到任何允许Outlook选择多个邮件项目的内容吗？

Dim objApp As Outlook.Application
    Set objApp = Application
Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
        If objApp.ActiveExplorer.Selection.Count > 0 Then
            Set currentItem = objApp.ActiveExplorer.Selection.Item(1)
        Else
            MsgBox ("No Message Selected.")
            Exit Sub
        End If
    Case "Inspector"
        Set currentItem = objApp.ActiveInspector.currentItem
    Case Else
        MsgBox ("Please select a mail item.")
        Exit Sub
End Select

Answer 1

看起来您需要遍历资源管理器窗口中选定的所有项目：

 Set currentItem = objApp.ActiveExplorer.Selection.Item(i)

例如：

 For i = 1 To oSel.Count         ' Loop through all the currently .selected items
    Set oItem = oSel.Item(i)    ' Get a selected item.
 Next i

请看How To Get the Currently Selected Item in an Outlook Folder from Visual Basic文章中的示例代码。

另外，我建议打破调用链，在单独的代码行中声明每个属性或方法调用。