Outlook Excel VBAで検索フォルダを追加

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

あなたの「フィン報告」フォルダは、この例のコードのために

を置かれている場所あなたが言わなかった、私は一番上のフォルダに入れて、それは「受信トレイ」

と同じレベルにあります

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

これら2つを試してください。どちらが動作するのか、動作しないのかを確認します。

F8キーを押して、コードを通じてシングルステップを繰り返し

見通しにこれを試してみてください

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 

その後、明らかに、それは前の行に失敗していますエクセル

に

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