Dim names As String
Dim list1 As List
list1.Initialize
Dim list2 As List
list2.Initialize
For i = 0 To listOfContacts.Size - 1
myContact = listOfContacts.Get(i)
names = myContact.Name
Dim emails As Map
emails = myContact.GetEmails
If emails.Size > 0 Then ' Ignore contacts with no email
For e=0 To emails.Size-1 'step through the email addresses and add them to the list
list1.Add (Array As String (myContact.DisplayName, emails.GetKeyAt (e)))
Next
End If
If i mod Maximo = 0 Then
ProgressBar.Progress = i/Maximo*100
DoEvents
end if
Next
list2.AddAll (Array As String("Name", "Email"))
su.SaveCSV2(File.DirRootExternal, "contacts.csv", ",", list1,list2 )