Outlook / KVS Dilemma

[mrossm3]

I am a newby to all of this......and I am could use some help.

My probem:

We Have KVS as an email archiving service. I have several folders containing messages with attachments where the messages have been archived. I need to move the messages to other folders but unfortunatly in order to retain the archived messages I must open the message then select the move to folder command. It works mint...but I have hundereds of messages to move in my mailbox, plus I have a number of project mailboxes in the same shape. Once these are moved c/w attachments the messages can be archived off the system and projects put to bed.

I am thinking this should be a fairly simple script to macro to write.......Outlook 2007, Exchange 2003, not sure the version of KVS

can someone help me?

 

[Diane Poremsky]

I don't think the KVS version matters if you are moving the messages within Outlook. The KVS will handle the archive side of things after they are moved.

See http://www.slipstick.com/developer/code-samples/use-vba-move-messages-based-values-fields/ for a basic macro that moves messages with specific types of attachments. It's an itemadd macro and will need to be changed to run on the current folder. If all of the messages in the folder need to be moved, you can skip the attachment check and just move selected messages.

This macro (untested ) should move selected messages to a folder under the inbox named Move. Test it with a message or two and see if it retains the archived message. To use, select a couple of messages then run the macro.

Public Sub MoveMessages()
Dim Session As Outlook.NameSpace
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
On Error Resume Next
For Each obj In Selection
obj.Move (Session.GetDefaultFolder(olFolderInbox).Folders("Move"))
Next i
Err.Clear
Set Session = Nothing
Set currentExplorer = Nothing
Set obj = Nothing
Set Selection = Nothing

End Sub