1

I would like to create an excel tool which at some point of the operation opens the Global Address List of the Outlook. I have figured it out how to do this, but there was an issue when we tried it on a German languaged computer. I have solved it by check the UI language prior to opening the address book, but I wondered if there is a language independent way to do so? (So I don't need to create a case for every possible languages.)
My corresponding code portion is: 
langCode=Application.LanguageSettings.LanguageID(msoLanguageIDUI)
Select Case langCode
 Case &H409
  galStr="Global Address List"
 Case &H40E
  galStr="Globális címlista"
 Case &H407
  galStr="Globale Addressliste"
 Case Else
  galStr="Global Address List"
End Select 

Set olApp=GetObject(,"Outlook.Application")

Set olGAL=olApp.GetNamespace("MAPI"). AddressLists(galStr)

Many thanks for your help.

Eugene Astafiev
  • 47,483
  • 3
  • 24
  • 45
PEngCs
  • 23
  • 4
  • What is your end goal? Why do you need to get the address list for GAL? – Eugene Astafiev Jul 21 '22 at 13:31
  • Hi, I get the users e-mail address from the GAL, whom the entry will be dedicated. They at the end will get an automatic e-mail. The GAL contains every one at the company worldwide, that's why I use it. – PEngCs Jul 21 '22 at 14:28
  • Have you considered using the `CreateRecipient` method instead of relying on the GAL? – Eugene Astafiev Jul 21 '22 at 14:51

3 Answers3

1

Use Namespace.GetGlobalAddressList - it will return the GAL of the primary Exchange account in the profile.

As for the AddrList.AddressListType property, it will return olExchangeGlobalAddressList only for the GAL of the primary Exchange account. For a secondary account, it will be a generic olExchangeContainer.

If you have more than one Exchange account in the profile, you can figure out if a particular address list is GAL by reading two MAPI properties using AddressList.PropertyAccessor: PR_AB_PROVIDER_ID must be "DCA740C8C042101AB4B908002B2FE182"and PR_DISPLAY_TYPE must be DT_GLOBAL (0x00020000).

If using Redemption (I am its author) is an option, besides exposing RDOSession.Addressbook.GAL (similar to Namespace.GetGlobalAddressList in OOM), it also exposes RDOExchangeAccount.GAL property on the account level (AllRooms property is also exposed).

Dmitry Streblechenko
  • 62,942
  • 4
  • 53
  • 78
  • 1
    Hello, thak you the help, it is working very well. It is an easy and clear solution! I wonder why the most of the examples on the net are not using this method... – PEngCs Jul 22 '22 at 06:36
0

For user language and programming language independence there is enumeration.

OlAddressListType enumeration (Outlook)

niton
  • 8,771
  • 21
  • 32
  • 52
0

Instead of trying to find the correct localized sting you may iterate over all address lists and get the GAL in the following way:

If(addrList.AddressListType ==
            Outlook.OlAddressListType.olExchangeGlobalAddressList) Then
 ' this is GAL
End If

You can use the NameSpace.CreateRecipient function which creates a Recipient object. After resolving a recipient against the address book you may get the email address.

Also I've found the following article - Get the Global Address List or a set of address lists for a store which you may find helpful.

Eugene Astafiev
  • 47,483
  • 3
  • 24
  • 45
  • Hello, thank you the help. Iterating through the address lists is worked fine but Dmitry's solution is more straightforward by referencing directly the GAL. – PEngCs Jul 22 '22 at 06:38