Vbscript 在Outlook中创建文件夹：错误800A0401-预期语句结束

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

我从中复制了大部分脚本并获得

“预期语句结束”错误代码800A0401

以前从未创建过.vbs脚本

---

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

此错误是因为无法将变量设置为VBS中的特定对象。更明确地说，“Dim”语句的使用没有定义VBScript中的变量类型，因为VBScript中的所有变量都自动为Variant类型。如果您试图使变量变暗，它将抛出一个错误

相反，您希望：

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

---

此错误是因为无法将变量设置为VBS中的特定对象。更明确地说，“Dim”语句的使用没有定义VBScript中的变量类型，因为VBScript中的所有变量都自动为Variant类型。如果您试图使变量变暗，它将抛出一个错误

相反，您希望：

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

---

哦，不确定VBScript是否区分大小写，因为在第一行“set”中有

myOUtlook

。它不是，就像VBA技术上不区分大小写一样。不同之处在于，在VBA中，IDE会自动更新任何大小写不一致的情况。哦，不确定VBScript是否区分大小写，因为您的第一行“set”中有

myOUtlook

。它不是，就像VBA技术上不区分大小写一样。不同之处在于，在VBA中，IDE将自动更新任何大小写不一致的情况。