Thanks for your solutions however new crinkles have just emerged.

apparently the main computer has a rather complicated set up and the folder numbers replicate in each of the 5 Main folders. Using your name method as below, how would i move mail for example from

'inbox' in mainfolder Mailbox Dept 1 to 'Processed' in folder:Mailbox Principle. Is there a way to do this?? Unfortunately we cannot disoolve the added mainfolders as specific email is directed there from the main server and can only be accessed through these portals,

thanks
K

=loMSG.Move(loNameSpace.Folders(????).Folders("Processed"))   

Main Folder: Mailbox - Principle
Sub Folder #1 Deleted Items
Sub Folder #2 Inbox
Sub Folder #3 Outbox
Sub Folder #4 Sent Items
Sub Folder #5 Calendar
Sub Folder #6 Contacts
Sub Folder #7 Drafts
Sub Folder #8 ERRORS
Sub Folder #9 Journal
Sub Folder #10 Junk E-Mail
Sub Folder #11 Processed
Sub Folder #12 Marks
Sub Folder #13 Notes
Sub Folder #14 RSS Feeds
Sub Folder #15 Sync Issues
Sub Folder #16 Tasks
Sub Folder #17 To Do
Main Folder: Public Folders
Sub Folder #1 Favorites
Sub Folder #2 All Public Folders
Main Folder: Mailbox - Dept 1
Sub Folder #1 Tasks
Sub Folder #2 Sent Items
Sub Folder #3 Outbox
Sub Folder #4 Notes
Sub Folder #5 Junk E-Mail
Sub Folder #6 Journal
Sub Folder #7 Inbox
Sub Folder #8 Drafts
Sub Folder #9 Deleted Items
Sub Folder #10 Contacts
Sub Folder #11 Calendar
Main Folder: Mailbox - Dept 2
Sub Folder #1 Tasks
Sub Folder #2 Sent Items
Sub Folder #3 Outbox
Sub Folder #4 Notes
Sub Folder #5 Junk E-Mail
Sub Folder #6 Journal
Sub Folder #7 Inbox
Sub Folder #8 Drafts
Sub Folder #9 Deleted Items
Sub Folder #10 Contacts
Sub Folder #11 Calendar
Main Folder: Archive Folders
Sub Folder #1 Deleted Items
Sub Folder #2 Sent Items
Sub Folder #3 Calendar







>Hi Karen,
>
>in the line
>

>=loMSG.Move(loNameSpace.Folders(1).Folders(14))   
>

>Folders(1) refers to the PST file, Exchange account, etc. The number depends on what mailboxes a user opens any how many PST file they made available. The second folder refers to the folder inside the mailbox. It's easy if you refer to the folder by name, such as:
>

>=loMSG.Move(loNameSpace.Folders("Personal Folders").Folders("Done"))   
>

>However, the name of the first level depends on the name of the mail box. Personal Folder is the name for the English version with a PST file. Localized versions and exchange server connections have a different name. Therefore it might be even easier, to let the user pick the desired folder once:
>

>Local loOutlook, loNamespace, loFolder
>loOutlook = CreateObject("outlook.application")
>loNamespace = loOutlook.GetNamespace("MAPI")
>loFolder = loNamespace.PickFolder()
>

>You can then use the folder's EntryId to locate the folder everywhere.