求Outlook vba文件选择对话框的代码

求Outlook vba文件选择对话框的代码,xiexie

试试这个。

  Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
    If Not objFolder Is Nothing Then
        strPath = CStr(objFolder.self.Path)
    Else
       Exit Sub
    End If
Set objFolder = Nothing
Set objShell = Nothing

谢谢！ 那选择多个文件呢？