遍历循环 Global Address List

Leo2019

各位大神们好！

由IBM Notes 发邮件改为outlook发邮件，目前我遇到了一个问题：
            Set olApp = CreateObject("Outlook.Application")
            Set myNamespace = olApp.GetNamespace("MAPI")
            Set aList = myNamespace.AddressLists.Item("Global Address List")
            Set aEntries = aList.AddressEntries(namelist)
            Set User = aEntries.GetExchangeUser()
            Email = User.PrimarySmtpAddress
根据namelist 抓取对应的Emailaddress，由于是遍历循环所有Global Address List ，所以有时候会出现同名的其他国家的Emailaddress。

Outlook 能否做到像 notes：Set noDatabase = noSession.GetDatabase("      ，          ")

抓取的时候只读取CN接口或HK接口对应数据库？