在共享文件夹上添加 Outlook 搜索文件夹

Question

我正在尝试使用 Excel 中的 VBA 在 Outlook 共享文件夹中创建一个新的“搜索文件夹”。
它在最后一行失败，即保存功能。

“找不到对象”。

Sub createfolder()

    Dim oApp As Outlook.Application
    Dim oSearch As Outlook.Search
    Dim oInbox  As Outlook.mapifolder
    Dim sFolderPath As String
    Dim oScope As String
    Dim sFilter As String

    Set oApp = New Outlook.Application
    Set oInbox = oApp.GetNamespace("MAPI").Folders("Fin Reporting").Folders("July")

    sFolderPath = oInbox.FolderPath
    sScope = "'" & oInbox.FolderPath & "'"
    Set oSearch = oApp.AdvancedSearch(sScope)
    
    oSearch.Save ("TestSearch")

End Sub

Answer 1

你没有说你的“fin报告”文件夹在哪里

对于此示例代码，我将其放在顶部文件夹中，因此它与“收件箱”处于同一级别

top ---
       |
       fin reporting
       |   |
       |   july
       |
       inbox
       |
       sent items
       |
       etc. 

试试这两个。 看看哪个有效，或无效。

重复按 F8 键单步执行代码

在 Outlook 中试试这个

Sub createfolder_outlook()

    Dim oInbox  As MAPIFolder
    Dim oSearch As Search

    Set oInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders("Fin Reporting").Folders("July")
    Set oSearch = Application.AdvancedSearch("'" & oInbox.FolderPath & "'")

    oSearch.Save ("TestSearch")

End Sub

然后在excel中做同样的事情

Sub createfolder_excel()

    Dim oInbox  As Outlook.MAPIFolder
    Dim oSearch As Outlook.Search

    Set oInbox = Outlook.Application.GetNamespace("MAPI").GetDefaultFolder(Outlook.olFolderInbox).Parent.Folders("Fin Reporting").Folders("July")
    Set oSearch = Outlook.Application.AdvancedSearch("'" & oInbox.FolderPath & "'")

    oSearch.Save ("TestSearch")

End Sub