800A0401 – 预期的声明结束

我已经创build了一个.vbs文件来在Outlook中创build一个文件夹。 我已经从MSDN中复制了大部分脚本，并获得了“预期的语句结束”错误代码800A0401响应。

Option Explicit Dim myNameSpace As Outlook.NameSpace Dim myFolder As Outlook.Folder Dim myNewFolder As Outlook.Folder Set myNameSpace = Application.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myNewFolder = myFolder.Folders.Add("Postini") Wscript.Echo "Folder created" Wscript.Quit 

以前从未创build.vbs脚本。 不知道我错过了什么。

Windows 7 64位和Outlook 2010.以本地pipe理员身份运行。

Answer 1

这个错误是因为你不能在VBS中把variables调暗。 更明确地说，“Dim”语句在没有在VBScript中定义variablestypes的情况下使用，因为VBScript中的所有variables都自动地是Varianttypes。 如果试图将variables变暗为任何东西，将会引发错误。

相反，你想要：

 Dim myNameSpace Dim myFolder Dim myNewFolder 

另外，你似乎刚刚从Outlook复制了一些VBA，并试图将其作为VBS运行。

VBscript不知道如何解释Application.GetNameSpace("MAPI") 。

您还需要创build一个Outlook应用程序。

 dim myOutlook set myOUtlook = CreateObject("Outlook.Application") 

另外，由于你不能在VBS中提供引用，所以你必须使用晚期绑定的任何对象（这就是为什么我使用CreateObject。）所以重新编写你的代码如下：

 Option Explicit Dim myOutlook Dim myNameSpace Dim myFolder Dim myNewFolder set myOUtlook = CreateObject("Outlook.Application") Set myNameSpace = myOutlook.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(6) '6 is the value of olFolderInbox Set myNewFolder = myFolder.Folders.Add("Postini") Wscript.Echo "Folder created" Wscript.Quit