W
wejiv
Hello,
I have been trying to use the filter object on the GAL so that I would only
get items that have CdoPR_DISPLAY_TYPE=0 . I tried:
==================================
Set objAddressList = objSession.GetAddressList(cdoAddressListGal)
Set objAddressEntries = objAddressList.AddressEntries
Set objAddressFilter = objAddressEntries.Filter
'Set to filter out everything but desired Exchange user accounts
Dim AccountType As Long
Dim cdoAccountType As Long
AccountType = 0
cdoAccountType = CdoPR_DISPLAY_TYPE '&H39000003
objAddressFilter.Fields.Add cdoAccountType, AccountType
For Each objAddressEntry In objAddressEntries
==================================
but the above code doesn't return any items after running for 4 minutes. The
only way I get it working is if drop the filter object and loop over every
item while testing the value myself. The above code never executes the code
inside the for next loop because it never returns any items. Can anyone tell
me why it doesn't work?
I have been trying to use the filter object on the GAL so that I would only
get items that have CdoPR_DISPLAY_TYPE=0 . I tried:
==================================
Set objAddressList = objSession.GetAddressList(cdoAddressListGal)
Set objAddressEntries = objAddressList.AddressEntries
Set objAddressFilter = objAddressEntries.Filter
'Set to filter out everything but desired Exchange user accounts
Dim AccountType As Long
Dim cdoAccountType As Long
AccountType = 0
cdoAccountType = CdoPR_DISPLAY_TYPE '&H39000003
objAddressFilter.Fields.Add cdoAccountType, AccountType
For Each objAddressEntry In objAddressEntries
==================================
but the above code doesn't return any items after running for 4 minutes. The
only way I get it working is if drop the filter object and loop over every
item while testing the value myself. The above code never executes the code
inside the for next loop because it never returns any items. Can anyone tell
me why it doesn't work?