Outlook add-ins webcasts讲座代码之四（高级搜索）

Partial Public Class ThisApplicationClass ThisApplication
    'outlook的菜单栏
    Dim _menuBar As Office.CommandBar = Nothing

    '创建菜单按钮
    Dim _topMenu As Office.CommandBarPopup = Nothing

    '创建生成搜索文件夹的菜单
    Dim _menuSearch As Office.CommandBarButton

    Private Sub CreateSearch()Sub CreateSearch()
        '定义一个Search对象
        Dim mailSearch As Outlook.Search
        Dim strFolder As String
        Dim strSearch As String

        '获得收件箱文件夹
        Dim inbox As Outlook.MAPIFolder = Me.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        '获得已发送邮件文件夹
        Dim sendbox As Outlook.MAPIFolder = Me.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail)

        '定义搜索范围
        strFolder = "SCOPE ('shallow traversal of """ & _
                    sendbox.FolderPath & """ ', 'shallow traversal of """ & _
                    inbox.FolderPath & """ ')"
        '定义查询条件
        strSearch = "urn:schemas:httpmail:fromemail LIKE '%fastid@21cn.net%' OR urn:schemas:httpmail:displayto LIKE '%fastid@21cn.net%'"

        mailSearch = Me.AdvancedSearch(strFolder, strSearch, True, "MySearch")
        mailSearch.Save("邮件查询")

    End Sub
    Private Sub _menuSearch_Click()Sub _menuSearch_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
        CreateSearch()
    End Sub

    Private Sub CreateMenus()Sub CreateMenus()
        _menuBar = Me.ActiveExplorer().CommandBars.ActiveMenuBar

        If (Not (_menuBar Is Nothing)) Then

            Dim _control As Office.CommandBarControl

            '寻找学员信息管理菜单
            For Each _control In _menuBar.Controls
                If (_control.Caption = "学员信息管理") Then
                    _topMenu = _control
                End If
            Next

            If (Not (_topMenu Is Nothing)) Then
                '添加创建搜索的菜单
                _menuSearch = _topMenu.Controls.Add(Office.MsoControlType.msoControlButton, _
                                        Type.Missing, _
                                        Type.Missing, _
                                        Type.Missing, _
                                        True)
                _menuSearch.Caption = "查询邮件"
                _menuSearch.Visible = True

                '添加菜单的点击事件处理
                AddHandler _menuSearch.Click, AddressOf _menuSearch_Click
            End If
        End If
    End Sub
End Class