View Single Post
  #4 (permalink)  
Old 09-13-2007, 08:43 AM
Erel's Avatar
Erel Erel is online now
Administrator
 
Join Date: Apr 2007
Posts: 3,132
Default

Can you post the code that gives you the error message?

Here is a code to show all the contacts (from the library manual):
Don't forget to add the two objects and create a form with a ListBox.
Code:
'Contact is a Contact object and ContactsCollection is a PimCollection object. Sub Globals End Sub Sub App_Start Form1.Show Contact.New1 ContactsCollection.New1("Contacts") ContactsCollection.SortItems("FirstName",false) 'sorts the contacts using the first name field. For i = 0 to ContactsCollection.Count - 1 Contact.Value = ContactsCollection.GetItem(i) ListBox1.Add(Contact.FirstName & " " & Contact.LastName) 'Add the contact's first and last name to ListBox1. Next
End Sub
Reply With Quote