Outlookマクロの詳細検索

Question

タスクの件名とオプションでタスクの本文について「詳細検索」を実行するマクロを作成したいと考えています。たとえば、 "@Cris"の検索

私はこのコードをExcel用の例からコピーして修正しましたが、それは実行されません。ランタイムエラー。助けを歓迎します

Sub AdvancedSearchComplete() 
    Dim rsts As Outlook.Results 
    Dim i As Integer 
    Dim strF As String 
    Dim strS As String 
    strS = "Tasks" 
    StrName = InputBox("Search String?") 
    strF = InStr(LCase("urn:schemas:tasks:subject"), StrName) 

    Set sch = Application.AdvancedSearch(strS, strF, , "Search1") 
End Sub 

Answer 1

有効な範囲と検索基準を指定する必要があります。検索の範囲は、フォルダ名ではなく、フォルダのフォルダパスです。フォルダパスは一重引用符で囲むことをお勧めします。それ以外の場合、フォルダパスにUnicode文字を含む特殊文字が含まれていると、検索結果が正しく返されないことがあります。複数のフォルダパスを指定するには、各フォルダパスを単一引用符で囲み、単一引用符付きのフォルダパスをコンマで区切ります。

Filterパラメータには、任意の有効なDASLクエリを使用できます。 DASLクエリの詳細については、Filtering Itemsを参照してください。

注：Chr Functionを使用して、検索条件内の任意の文字を表すことができます。

Advanced search in Outlook programmatically: C#, VB.NETの記事も参考になります。

Answer 2

これは私が働くことです。

マクロを開始：

1. それは文字列
2. 行い、事前検索を入力して、件名に文字列を検索するかどうかをユーザに尋ねる（@crisなどの特殊文字を含む）
3. は、表示する検索フォルダを作成します。検索結果

他の人に役立つ場合。手動検索のように出力を作成する方法がわかりません。しかし、これは私のために働く。

Sub AdvSearchForStr() 
    On Error GoTo Err_SearchFolderForSender 
    Dim strFrom As String 
    Dim strTo As String 
    Dim strSearch As String 

    strSearch = InputBox("Enter String to AdvSearch", "Advanced Search") 

    strTo = "Test" 

    Dim strDASLFilter As String 
    strDASLFilter = "urn:schemas:httpmail:subject LIKE '%" & strSearch & "%'" 

    Debug.Print strDASLFilter 

    Dim strScope As String 
    strScope = "'Inbox', 'Sent Items', 'Tasks'" 

    Dim objSearch As Search 
    Set objSearch = Application.AdvancedSearch(Scope:=strScope, Filter:=strDASLFilter, SearchSubFolders:=True, Tag:="SearchFolder") 

    'Save the search results to a searchfolder 
    objSearch.Save (strSearch) 

    Set objSearch = Nothing 
    Exit Sub 

Err_SearchFolderForSender: 
    MsgBox "Error # " & Err & " : " & Error(Err) 

End Sub