Sub FillContacts
Dim wmCU As wmContactsUtils
wmCU.Initialize
Dim firstName, lastName, displayName As String
For Each cd As cuContact In wmCU.FindAllContacts(True)
Dim name As cuContactName = wmCU.GetDetailedName(cd.Id)
displayName=cd.displayName
lastName=name.FamilyName
firstName=name.GivenName
Next
End Sub