Reply to thread

Message: [QUOTE="Dave Hampton, post: 5365344"] Thanks Sue, I revamped my code (Based on some stuff in the microsoft support area) It works great - except - I'm only getting a portion of the contacts. Is their a limit to the # of list elements I can have? If so, perhaps their is another way around the problem... The purpose of the custom form is to track a property address and loan associated with it. My contact list has everyone I know. From that list, a person might be a Buyer, Seller, Realtor or a combination on a particular property address. They may also appear on multiple items in the folder (different properties - like a realtor that assists on two different properties...) I want to be able to open a property file and see contact links in each of my defined fields (seller, buyer, agent, etc.) Later, I want to be able to open up a contact and see what properties they are associated with under the activities tab and in what capacity (seller, buyer, agent etc.) My first step is just to be able to input contacts only in each of the user defined fields. - I need to make it simple to input (like a contact selector or combolist/list). Step two is to make it tie into the activities for the contacts in the contacts folder. Step three is to make separate activities that tie them in a s Realtor, Buyer, Seller, Etc. instead of just into the property. Any help with step one would be great. thanks Sub Item_Open() Set objFormPage = Item.GetInspector.ModifiedFormPages("General") Set objListBox = objFormPage.Controls("ComboBox1") Set objNS = Application.GetNamespace("MAPI") ' Get the default Contacts folder Set objConFolder = objNS.GetDefaultFolder(10) ' olFolderContacts ' Get the items in the folder Set colConItems = objConFolder.Items ' Create a Restrict filter strFilter = "[FileAs] <> " & Chr(34) & Chr(34) ' Just get those contacts with a Full Name Set colResItems = colConItems.Restrict(strFilter) ' Sort the contacts based on FullName colResItems.Sort "[FileAs]" ' Loop through all of the sorted contacts For Each objItem in colResItems ' Add the name to the listbox objListBox.AddItem objItem.FileAs Next ' Loop through all of the sorted contacts For Each objItem in colResItems ' Add the name to the listbox and ignore distribution lists If Left(objItem.MessageClass, 11) = "IPM.Contact" Then objListBox.AddItem objItem.FileAs End If Next End Sub [/QUOTE]

Verification