Question

我正在尝试创建一个新的＆＃34;搜索文件夹＆＃34;在Excel中使用VBA的Outlook。它在最后一行失败，这是保存功能。＆＃34;无法找到对象＆＃34;。有线索吗？

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

你没有说你的报道＆＃34; fin报告＆＃34;文件夹位于

对于此示例代码，我将其放在顶部文件夹中，因此它与＆＃34; inbox＆＃34;

处于同一级别

devtools::test("path/to/your/copy/of/OPWeight")

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

反复按F8键单步执行代码

在outlook

中尝试这个

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

然后在excel中做同样的事情

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

Outlook通过Excel VBA添加搜索文件夹

1 个答案: