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

Question

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

"Object could not be found".

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 reporting" 文件夹所在的位置

对于此示例代码，我将其放在顶层文件夹中，因此它与 "inbox"

处于同一级别

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

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

Add Outlook Search Folder on shared folder

excel

vba

outlook

outlook-2010