Copy and paste Outlook contact items to a different folder?

[dmoonme]

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 

[mark007]

Assuming the Contact you wish to copy is objItem and the detination folder is objFolder you would use:

 

Dim objItem2 as Object
objItem2=objItem.Copy()
objItem2.Move(objFolder)

 

Hope that helps.

 

:)

[dmoonme]

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.

[mark007]

Yep, will copy. It creates a copy and moves the copy.

 

:)