vbscript從Outlook 2010在本地服務器上打開文件夾

因此，我需要在Outlook 2010中創建一個簡短的子文件夾，用於使用自定義窗體在網絡上打開特定文件夾以進一步瀏覽圖片的人們（網絡上的每個人有權限）。然而，我有點困惑，因爲這應該是一個簡單的腳本來運行，但從Outlook窗體中運行的子，我得到一個shell錯誤或wscript錯誤。目前我得到的「對象錯誤不支持此屬性或方法：‘objShell.Shell’vbscript從Outlook 2010在本地服務器上打開文件夾

因此，這裏是我的代碼，到目前爲止，每WScript的或功能我試過似乎給了一個類似的錯誤：

Dim objShell 
Dim ShortName 
Dim AddressOnly 

set objShell = CreateObject("shell.application") 
If ClientCode = "1" Then 
    objShell.Shell.Open("Server:\path\"& ShortName &" - "& AddressOnly &"\") 
     ElseIf ClientCode = "2" Then 
     objShell.Shell.Open("Server:\path\"& ShortName &" - "& AddressOnly &"\") 
      ElseIf ClientCode = "3" Then 
      objShell.Shell.Open("Server:\path\"& ShortName &" - "& AddressOnly &"\") 
End if 

    set objShell = nothing

來源

2014-03-01 Scooby_Drew

你需要解釋一下你試圖去做，你是否試圖展示一個Windows文件打開對話框，以便他們可以瀏覽文件並選擇一個單個文件或多個文件？ –

我只是想在資源管理器窗口中打開用戶的文件夾，以便手動進一步處理其中的照片。 –

因此，這裏是我發現現在的工作，此選項打開文件夾，並通過explorer.exe的顯示完整的內容的代碼：

If ClientCode = "1" Then 
    folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"          
    ElseIf ClientCode = "2" Then 
    folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"         
     ElseIf ClientCode = "3" Then 
     folder = "Server:\path\"& ShortName &" - "& AddressOnly & "\"        
End if 

Set fso = CreateObject("Scripting.FileSystemObject") 
    If Not fso.FolderExists(folder) Then 
     MsgBox "No Files Exist. You must create the file first before trying to find it.", vbExclamation, "No File Found." 
     Exit Sub 
    Else 
     'moving on 
    End If 

set WSshell = createobject("wscript.shell") 
WSshell.run "C:\WINDOWS\explorer.exe "& folder &"", 1 
Set WSshell = nothing

來源

2014-03-06 19:10:21

vbscript從Outlook 2010在本地服務器上打開文件夾

回答

相關問題