使用VBScript以编程方式在Outlook通讯簿中设置文件夹名称

Question

我们有一个名为Intermediarios的大空Outlook公用文件夹，它存储具有公司分支名称的单个文件夹。在他们每个人的内部，我们都有保险代理人的联系方式。

要在Outlook通讯簿中显示公用文件夹，您需要右键单击每个属性，转到Outlook通讯簿选项卡，选中该框并键入所需的名称，该文件夹将在通讯簿中命名。

由于有20个分支，我想做一个自动执行此操作的vbs脚本。我有以下脚本，但我想为每个文件夹设置一个不同的名称，以更好地描述它们包含的内容，而无需重命名公用文件夹。

当前脚本是：

Option Explicit

Dim objOL, objNS, objFolder
Set objOL = CreateObject("Outlook.application")
Set objNS = objOL.GetNamespace("MAPI")

'18 is olPublicFoldersAllPublicFolders representing all public folders
Set objFolder = objNS.GetDefaultFolder(18).Folders("Intermediarios").Folders("Cabimas")
    objFolder.ShowAsOutlookAB = True

我需要在姓氏前加上一些东西来设置地址簿条目的名称，但我不知道如何。我尝试了objFolder.Description和objFolder.Name，但最后一个实际上重命名了公共文件夹，这是我不想要的。

可以这样做吗？我尝试浏览AddressList和AddressEntries对象，但我没有看到任何可以帮助我的东西。

Answer 1

设置insertOoxml属性。