Copying mail items from folder to another

[richardkreidl]

I setup the code below to fire off from an Outlook rule when an email
arrives in the 'Inbox'. The code does work to a point. It does copy
email messages when they arrive in the 'Inbox' to the 'Archive->2005
Mail' folder. But, it seems to make copies of existing email in the
'2005 Mail' folder and I don't know why. My 'FOR NEXT" loop seems like
it's right, so I'm not sure why it's doing that.

Dim i As Integer
Dim count As Integer
Dim intCount As Integer

Dim objApp As Outlook.Applica tion =
CreateObject("O utlook.Applicat ion")
Dim objNS As Outlook.NameSpa ce = objApp.GetNames pace("MAPI")
Dim objInbox As Outlook.MAPIFol der =
objNS.GetDefaul tFolder(Outlook .OlDefaultFolde rs.olFolderInbo x)

Dim objArchive As Outlook.MAPIFol der = objNS.Folders(" Personal
Folders").Folde rs("Archive").F olders("2005 Mail")

Dim oInbox As Outlook.Folders = objInbox.Folder s
Dim objItems As Outlook.Items = objInbox.Items
Dim oMessage As Outlook.MailIte m

intCount = objItems.Count

For i = intCount To 1 Step -1
oMessage = objItems.Item(i )
oMessage.Copy()
oMessage.Move(o bjArchive)
Next

objNS.Logoff()
objApp = Nothing
objNS = Nothing
objItems = Nothing
oInbox = Nothing

I researched the Outlookcode.com site for a solution, but didn't really
find anything.