Sub FillContacts
Dim wmCU As wmContactsUtils
wmCU.Initialize
Dim firstName, lastName, displayName As String
For Each c As cuContact In wmCU.GetAllContactsThunderbird(True)
' displayName=?
' firstName=?
' lastName=?
Next
End Sub
Sub FillContacts
Dim wmCU As wmContactsUtils
wmCU.Initialize
Dim firstName, lastName, displayName As String
For Each cd As cuContactDetailsThunderbird In wmCU.GetAllContactsThunderbird(True)
displayName=cd.displayName
lastName=cd.lastName
firstName=cd.firstName
Next
End Sub
Indeed, that one takes long. This way it's much faster (it doesn't pick up all the details, only the name fields):
B4X:
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