如何使用 VB 脚本在 Outlook 365 中创建本地个人文件夹？答案

【问题标题】：How to create a local personal folder in Outlook 365 using VB Script?如何使用 VB 脚本在 Outlook 365 中创建本地个人文件夹？
【发布时间】：2022-12-31 02:43:44
【问题描述】：

我刚开始使用 vbscript，但我想使用来自 https://learn.microsoft.com/en-us/office/vba/api/outlook.folder.folders 的以下脚本在 Outlook 中创建一个本地个人文件夹。

我从最后一行得到错误：Set myNewFolder = myFolder.Folders.Add("My Personal Contacts"): "Run-time error '-2147352567 (80020009)': Cannot create the folder. 任何想法将不胜感激。

    Sub CreatePersonalContacts() 
     Dim myNamespace As Outlook.NameSpace 
     Dim myFolder As Outlook.Folder 
     Dim myNewFolder As Outlook.Folder 
     Set myNamespace = Application.GetNamespace("MAPI") 
     Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
     Set myNewFolder = myFolder.Folders.Add("My Personal Contacts") 
    End Sub

【问题讨论】：

标签： outlook vbscript office365

【解决方案1】：

为了能够逐行调试代码并查看它是如何在引擎盖下工作的，您可以将它粘贴到 VBA 编辑器（参见 ThisOutlookSession 模块）并在设置断点后运行它。

我建议检查 Outlook 配置文件中是否已存在此类文件夹。您可以通过检查子文件夹名称来遍历所有子文件夹，因此在尝试创建新文件夹之前您可以确定不存在这样的文件夹。

【讨论】：