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在本地服务器上打开文件夹

回答

相关问题