Emailadressen in Combobox

[mathijsderuiter]

Beste mensen,

Momenteel gebruik ik deze code:

Dim OlApp As Object
Dim OlList As Object
Dim OlAds As Object
Dim Larray() As String
Dim i As Long
Set OlApp = CreateObject("Outlook.Application")
Set OlList = OlApp.GetNamespace("MAPI").AddressLists("contactpersonen")
Set OlAds = OlList.AddressEntries
With Me.cmbCC
.Clear 'clear old address list
ReDim Larray(OlAds.Count)
For i = 1 To OlAds.Count
Larray(i) = OlAds(i)
Next i
.List() = Larray
End With

Hiermee krijg ik alle NAMEN uit de contactpersonenlijst "contactpersonen".
Het is de bedoeling dat ik alle emailadressen krijg..

Iemand een oplossing?

 

[Warme bakkertje]

Dim OlApp As Object
Dim OlList As Object
Dim OlAds As Object
Dim Larray() As String
Dim i As Long
Set OlApp = CreateObject("Outlook.Application")
Set OlList = OlApp.GetNamespace("MAPI").AddressLists("contactpersonen")
Set OlAds = OlList.AddressEntries
With Me.cmbCC
.Clear 'clear old address list
ReDim Larray(OlAds.Count)
For i = 1 To OlAds.Count
Larray(i) = OlAds(i).Address
Next i
.List() = Larray
End With