Probleem
Ik wil uit Outlook GAL de kontactpersoongegevens ophalen van een vooraf geselecteerde persoon.
Ik heb gevonden hoe de gegevens op te halen uit Outlook-Contactpersonen maar nu wil ik dat uit de GAL ophalen.
Ik weet de Alias
Moet dus iets overeenkomstig zijn als (uit: http://www.snb-vba.eu/VBA_Outlook_external.html#L_7.3.1) :
Mijn vertaling:
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").AddressLists("Organisatie").AddressEntries.Items.Restrict("[Alias]='" & c00 & "'")
werkt helaas niet.
Vraag
Wat zou het wel moeten zijn??
Ik wil uit Outlook GAL de kontactpersoongegevens ophalen van een vooraf geselecteerde persoon.
Ik heb gevonden hoe de gegevens op te halen uit Outlook-Contactpersonen maar nu wil ik dat uit de GAL ophalen.
Ik weet de Alias
Moet dus iets overeenkomstig zijn als (uit: http://www.snb-vba.eu/VBA_Outlook_external.html#L_7.3.1) :
Sub kontaktpersonen_filteren_lezen()
c00 = "Jeroen Spoert"
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'")
c01 = c00 & " met " & it.Email1Address
Next
msgbox c01
End Sub
c00 = "Jeroen Spoert"
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10).Items.Restrict("[FullName]='" & c00 & "'")
c01 = c00 & " met " & it.Email1Address
Next
msgbox c01
End Sub
Mijn vertaling:
For Each it In CreateObject("Outlook.Application").GetNamespace("MAPI").AddressLists("Organisatie").AddressEntries.Items.Restrict("[Alias]='" & c00 & "'")
werkt helaas niet.
Vraag
Wat zou het wel moeten zijn??