Ordner-Namen im Outlook-Adressbuch programmgesteuert mit VBScript

Question

Wir haben eine große leere Outlook Public Folder namens Intermediarios, die einzelne Ordner mit dem Namen unserer Niederlassungen speichert. In jedem von ihnen haben wir die Kontakte unserer Versicherungsagenten.

Um einen öffentlichen Ordner in Ihrem Outlook-Adressbuch anzuzeigen, müssen Sie mit der rechten Maustaste auf Eigenschaften klicken, auf die Registerkarte Outlook-Adressbuch wechseln, das Kontrollkästchen aktivieren und den gewünschten Namen eingeben, der dem Ordner im Adressbuch zugewiesen wird .

Da es 20 Zweige gibt, möchte ich ein VBS-Skript machen, das dies automatisch macht. Ich habe das folgende Skript, das funktioniert, aber ich möchte einen anderen Namen für jeden Ordner festlegen, um besser zu beschreiben, was sie enthalten, ohne den öffentlichen Ordner umzubenennen.

aktuelle Skript:

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 

Ich brauche etwas, vor dem letzten Namen setzen den Namen des Adressbucheintrag zu setzen, aber ich weiß nicht, wie. Ich habe versucht sowohl objFolder.Description und objFolder.Name, aber die letzte umbenannt tatsächlich den öffentlichen Ordner, was etwas ist, was ich nicht will.

Kann dies getan werden? Ich habe versucht, die AddressList und AddressEntries Objekte zu durchsuchen, aber ich sehe nichts, was mir helfen würde.

Answer 1

Setzen Sie die Eigenschaft MAPIFolder.AddressBookName.