Problem accessing Outlook Addressbook

Hi, I am working on a project that needs me to retrieve outlook XP contacts and I am using C#.NET for that.I have some problem with my code. I am listing my code here Outlook.Application objOutlook = new Outlook.Application(); Outlook.NameSpace objNS = objOutlook.GetNamespace("MAPI"); objNS.Logon ("","",false,true); Outlook.MAPIFolder cContacts = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts); Outlook.Items oItems= cContacts.Items; Outlook.ContactItem oCt; int numItems; numItems = cContacts.Items.Count; for (int i=1; i <= numItems; i++) { oCt = oItems(i); Console.WriteLine(oCt.FullName); Console.WriteLine(oCt.Email1Address); } but it is throwing me an error saying that oItems denotes a variable where a method was expected for the line oCt=oItems(i) . It says that oItems cannot be used as a collection as it doesn't have Enumerator class. I tried using oItems.GetFirst() and foreach(oCt in oItems) but none of them works. can anyone please help me out with this problem.. Thanks for your time and help. Aruna

Hi, This is from the VStudio help: Function CountHomeless() As Integer ‘ Counts the number of contacts in the user’s Contacts folder that ‘ don’t have addresses and displays the number in a message box. Dim objOlApp As New Outlook.Application Dim objOlNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim intCounter As Integer ‘ Get the collection of contacts in the default Contacts folder. Set objOlNS = objOlApp.GetNamespace(“MAPI”) Set objFolder = objOlNS.GetDefaultFolder(olFolderContacts) Set colContacts = objFolder.Items ‘ Step through collection to find contacts with no addresses. For Each objContact In colContacts If objContact.HomeAddress = ““ And _ objContact.BusinessAddress = ““ Then intCounter = intCounter + 1 End If Next CountHomeless = intCounter MsgBox “The number of contacts without addresses is “ _ & CountHomeless & “.” Set objOlApp = Nothing Set objOlNS = Nothing Set objFolder = Nothing Set colContacts = Nothing Set objContact = Nothing End Function

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Administrator23y ago
Hi, This is from the VStudio help: Function CountHomeless() As Integer ‘ Counts the number of contacts in the user’s Contacts folder that ‘ don’t have addresses and displays the number in a message box. Dim objOlApp As New Outlook.Application Dim objOlNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim colContacts As Outlook.Items Dim objContact As Outlook.ContactItem Dim intCounter As Integer ‘ Get the collection of contacts in the default Contacts folder. Set objOlNS = objOlApp.GetNamespace(“MAPI”) Set objFolder = objOlNS.GetDefaultFolder(olFolderContacts) Set colContacts = objFolder.Items ‘ Step through collection to find contacts with no addresses. For Each objContact In colContacts If objContact.HomeAddress = ““ And _ objContact.BusinessAddress = ““ Then intCounter = intCounter + 1 End If Next CountHomeless = intCounter MsgBox “The number of contacts without addresses is “ _ & CountHomeless & “.” Set objOlApp = Nothing Set objOlNS = Nothing Set objFolder = Nothing Set colContacts = Nothing Set objContact = Nothing End Function
+1