Hello,
I have an address book which is situated in a public folder of an Exchange server (version 2010). To use the addresses in the "To"-field, this address book should be appeared in the Outlook address book by ticking the option of "Show this folder as email address
book".
This address book, which contains a vast number of addresses, should be updated once per month at least to adopt the changes of the Business Contact Manager. The problem is that this checkbox in the properties is always unchecked after each update. I cannot
ask the users to do it after each update. So I need an automated or a server-sided solution.
I have heard that you can solve this problem with a VB script. Unfortunately I am not very familiar with VB. I tried to edit this script, but I got an error that there is a compilation error (line no. 3, character no. 11) and that an end statement is expected.
What is wrong with this script? Is there an easier solution in the settings of the Exchange server or in a group policy?
Sub ShowAsAddressBookChange()
Dim olApp As Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.MAPIFolder
Set olApp = Outlook.Application
Set nmsName = olApp.GetNamespace("Mapi")
Set fldFolder = GetFolder("Public Folders/All Public Folders/<name of folder>/<address book>")
fldFolder.ShowAsOutlookAB = True
End Sub