在Outlook中创建一个文件夹: error 800A0401 -预期语句结束

Question

我创建了一个.vbs文件以在Outlook中创建一个文件夹。

我从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

以前从未创建过.vbs脚本。

Windows 7 64位和Outlook 2010.作为本地管理员运行。

Answer 1

此错误是因为在VBS中不能将变量定义为特定的变量。更明确地说，使用"Dim“语句时不需要在VBScript中定义变量类型，因为VBScript中的所有变量都是自动变量类型的。如果尝试将变量作为任何类型的Dim，它将引发一个错误。

相反，你想：

Dim myNameSpace
Dim myFolder
Dim myNewFolder

此外，您似乎刚刚从Outlook复制了一些VBA，并尝试以VBS的形式运行它。

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

您还需要创建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