outlook如何像ACCESS和excel一样用VBA文件打开窗口，类似于FileDialog

wxdmyth

outlook如何像ACCESS和excel一样用VBA文件打开窗口，类似于FileDialog

Jack_D这个靠谱

碰到相同的问题，版主能解答一下吗？

在outlook2013里，有下面的代码，运行提示错误，说不支持该属性或方法，如附件，如何才能在outlook里用FileDialog对话框？

Sub test2()

    Dim fso
   
    Set fso = CreateObject("Scripting.FileSystemObject")
           
    With Application.FileDialog(msoFileDialogFilePicker)        'a windows to select file
         
         .Title = "Selelct EI Report File"
         .Filters.Clear
         .Filters.Add "Report", "*.csv"
         .AllowMultiSelect = False
         
            If .Show = True Then
              
               MsgBox .SelectedItems
                    
            End If
            
            Set fso = Nothing
            
    End With

End Sub

闻启学

Jack_D这个靠谱 发表于 2014-9-15 12:17
碰到相同的问题，版主能解答一下吗？

在outlook2013里，有下面的代码，运行提示错误，说不支持该属性或方 ...

在outlook 中 应该是有对话框的  估计是对象不同

闻启学

Jack_D这个靠谱 发表于 2014-9-15 12:17
碰到相同的问题，版主能解答一下吗？

在outlook2013里，有下面的代码，运行提示错误，说不支持该属性或方 ...

使用API 的方法

1. 
   
2. '//调用API 做出对话框
   
3. 
   
4. Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
   
5. Public Type OPENFILENAME
   
6.     lStructSize As Long
   
7.     hwndOwner As Long
   
8.     hInstance As Long
   
9.     lpstrFilter As String
   
10.     lpstrCustomFilter As String
    
11.     nMaxCustFilter As Long
    
12.     nFilterIndex As Long
    
13.     lpstrFile As String
    
14.     nMaxFile As Long
    
15.     lpstrFileTitle As String
    
16.     nMaxFileTitle As Long
    
17.     lpstrInitialDir As String
    
18.     lpstrTitle As String
    
19.     flags As Long
    
20.     nFileOffset As Integer
    
21.     nFileExtension As Integer
    
22.     lpstrDefExt As String
    
23.     lCustData As Long
    
24.     lpfnHook As Long
    
25.     lpTemplateName As String
    
26. End Type
    
27. 
    
28. Sub ShowME()
    
29. 
    
30. '//显示打开文件对话框
    
31. 
    
32.     Dim ofn As OPENFILENAME
    
33.     Dim rtn As String
    
34.     ofn.lStructSize = Len(ofn)
    
35. 
    
36.     '    ofn.hwndOwner = Application.Hwnd
    
37.     '    ofn.hInstance = Application.hInstance
    
38.     ofn.lpstrFilter = "***.PDF" & vbNullChar & "*.PDF" & vbNullChar & "***.ocx" & vbNullChar & "*.ocx"
    
39.     ofn.lpstrFile = Space(254)                        '这里可以改一个默认的文件名
    
40.     ofn.nMaxFile = 255
    
41.     ofn.lpstrFileTitle = Space(254)
    
42.     ofn.nMaxFileTitle = 255
    
43.     ofn.lpstrInitialDir = "D:/"
    
44.     ofn.lpstrTitle = "请选择所需要的PDF文件"
    
45.     ofn.flags = 6148
    
46.     rtn = GetOpenFileName(ofn)
    
47.    
    
48.     MsgBox ofn.lpstrFile
    
49.    '// ShowME = ofn.lpstrFile
    
50. End Sub

复制代码

Jack_D这个靠谱

闻启学 发表于 2014-9-18 22:19
使用API 的方法

谢谢，这个办法好的，可以用。

gui3110644111

闻启学 发表于 2014-9-18 22:19
使用API 的方法

没有看到显示文件夹浏览窗口喔