VBScriptを使用してOutlookアドレス帳にフォルダ名をプログラムで設定します。

Question

Intermediariosと呼ばれる1つの大きな空の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

MAPIFolder.AddressBookNameプロパティを設定します。