dmoonme

Hey mark007 thanks again for your help. When I run your code I sometimes get an "Unspecified Error" message or a form cannot be found error message. I am using Outlook 2000 and have sp1 installed as well. Any ideas on what causes this?

would that leave the copied items in the original folder or move it to the new location? I want to keep the items in the original folder as well, ie. backup.

Hello, How can I copy and paste contact items from a Outlook public folder to a different public folder? I'm getting the contact items like this: (thanks again mark007 ;) ) Sub Main() Try Dim objOutlook As Outlook._Application objOutlook = New Outlook.Application Dim objNS As Outlook._NameSpace = objOutlook.Session Dim objFolder As Outlook.MAPIFolder = _ objNS.Folders.Item("Public Folders") objFolder = objFolder.Folders.Item("All Public Folders") objFolder = objFolder.Folders.Item("Contact Mgmt") objFolder = objFolder.Folders.Item("RC Contacts") Dim objItems As Object = objFolder.Items Dim objItem As Object For Each objItem In objItems if System.Convert.ToString(objItem.Categories).IndexOf("Staff")>-1 then Console.WriteLine(objItem.Email1Address & vbCrLf) End if Next Catch ex As Exception Console.Writeline(ex.Message) End Try End Sub

Thanks mark007! Would you happen to know how to get the alias name or smtp email address as well? I couldn't find any property to get the alias or smtp email address. THANKS AGAIN!

Hi, I want to retrieve all contact information within a catergory named "Staff" in a folder named "RC Contacts." This should explain where I'm trying to get in better: +Outlook Today . -Public Folders . ....-All Public Folder . ....-Contact Mgmt . ....-RC Contacts . ....+Categories: BLAH ....+Categories: Staff I can get to the RC Contacts but I don't know how to get in the "Staff" categories and enumerate all the items inside. Here's what I have so far: Sub Main() Try Dim objOutlook As Outlook._Application objOutlook = New Outlook.Application Dim objNS As Outlook._NameSpace = objOutlook.Session Dim objFolder As Outlook.MAPIFolder = _ objNS.Folders.Item("Public Folders") objFolder = objFolder.Folders.Item("All Public Folders") objFolder = objFolder.Folders.Item("Contact Mgmt") objFolder = objFolder.Folders.Item("RC Contacts") Dim objItems As Object = objFolder.Items Dim objItem As Object For Each objItem In objItems Console.WriteLine(objItem & vbCrLf) Next Catch ex As Exception Console.Writeline(ex.Message) End Try End Sub