VB程序员博客

各位专家，我用Excel VBA做了个程序，用来查找系统的msg文件（邮件），代码如下：
Public Sub getMailName()
    Dim fd As FileDialog    '定义为对话框
    Dim fso As Object
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Set fso = CreateObject("Scripting.FileSystemObject")
    'Dim objOL As Object
    'Dim itemMail As Object
    'Set objOL = CreateObject("Outlook.application")
    'Set itemMail = objOL.mailitem

    With fd
      .InitialFileName = ThisWorkbook.Path    '设置初始路径
        .Filters.Clear    '清除里面原先设置的类型
        .Filters.ADD "所有Outlook 文件", "*.msg", 1    '增加所有所有excel文件
        .ButtonName = "Select"    '改变按钮的名称
        .Title = "select"
      .AllowMultiSelect = False    '只允许选择一个文件，true可以选择多个
        If .Show = -1 Then    '表明用户按下的是操作按钮-1,取消按钮为0
            If chkQueryMail.Value = False Then
                frmTRMgr.txtTktTitle.Text = fso.getBaseName(.SelectedItems(1))‘用来记录找到的文件名
                'itemMail = fso.getFile(.SelectedItems(1))
                'objOL.display fso.getFile(.SelectedItems(1))
            Else
                frmTRMgr.txtQueTkt.Text = fso.getBaseName(.SelectedItems(1))‘用来记录找到的文件名
            End If
        Else
            MsgBox "对不起，你没有选择文件"
        End If
    End With

    Set fd = Nothing    '释放对象
    Set fso = Nothing
End Sub

查找文件的功能已经实现，但是我想查找到文件之后就自动打开这么msg文件，应该是要调用Outlook的对象，我怎么能实现呢？