vb.net outlook расширенный поиск в нескольких * .pst файлах - PullRequest
0 голосов
/ 27 сентября 2019

У меня есть 5 pst-файлов, привязанных к моей учетной записи outlook, и я пытаюсь написать код на vb.net, чтобы выполнить расширенный поиск для временного горизонта, определенного двумя Datetimepickers.

Мой код:

Sub sfp()
    Dim myNameSpace As Outlook.NameSpace
    Dim myOlApp As New Outlook.Application
    Dim strFilter As String

    strFilter = "@SQL=urn:schemas:httpmail:datereceived >= '" & DateTimePicker1.Value & "' AND urn:schemas:httpmail:datereceived < '" & DateTimePicker2.Value & "'"

    myNameSpace = myOlApp.GetNamespace("MAPI")

    Dim sch As Outlook.Search
    Dim rsts As Outlook.Results
    Dim scp As String

    For Each fldr In myOlApp.Session.Folders
        For Each fldr1 In fldr.folders
            scp = fldr1.FullFolderPath
            sch = myOlApp.AdvancedSearch(Scope:=scp, Filter:=strFilter, SearchSubFolders:=True, Tag:="test")
            rsts = sch.Results
            '...
            '...
            '...
        Next
    Next
End Sub

Но я получаю сообщение об ошибке: «Произошло необработанное исключение типа« System.ArgumentException »в Pecar_App.exe Дополнительная информация: Извините, что-то пошло не так. Вы можете попробовать еще раз».при настройке "sch"

В чем проблема, пожалуйста, помогите мне: (

...