Outlookのインスタント検索結果の電子メールをハードディスクドライブのフォルダに保存する方法

Question

インスタントテキスト検索の結果、すべての電子メールをハードディスクドライブに保存しようとしています。下のコードは検索を実行することができますが、各メールを選択してHDに保存する間に、selectallitems行にエラーが表示されます。コードはExcel vbaにあります。

Dim OlApp As Outlook.Application 
Set OlApp = CreateObject("Outlook.Application") 


Dim fldrpath As String 
fldrpath = "\\mydata\EMAILS\ 

Check subfolder for messages and exit of none found 
txtsearch = "abc@xyz.com, received:4/1/2017..4/30/2017" 
OlApp.ActiveExplorer.Search txtsearch, olSearchScopeAllFolders 

Dim myitem As Outlook.MailItem 
Dim objitem As Object 
Set myitem = OlApp.ActiveExplorer.SelectAllItems 
Set objitem = myitem 
objitem.SaveAs fldrpath & "test" & ".msg", olMSG 

メールを保存するための他の代替コードもありがとうございます。 ありがとうございます！

Answer 1

myItemは単一のアイテムですが、SelectAllItemsはアイテムのコレクションを表します。

この未テストコードのようなものをお試しください。

option explicit 

sub txtsearch_save() 

Dim fldrpath As String 
fldrpath = "\\mydata\EMAILS\" 

'Check subfolder for messages and exit if none found 
txtsearch = "abc@xyz.com, received:4/1/2017..4/30/2017" 
ActiveExplorer.Search txtsearch, olSearchScopeAllFolders 

Dim objitem As Object 

For each objitem in ActiveExplorer.SelectAllItems 

    ' to save only mailitems 
    if objitem.class = olMail then 
     objitem.SaveAs fldrpath & "test" & ".msg", olMSG 
    end if 

Next 

end sub