I am following up on my original post, available here.
These are the actual steps (as best as I remember them) that I followed to create this setup.
- Open Outlook
- Click Tools|Macro|Macros
- Enter ‘MoveTo_Archive’ (without quotes) as the Macro Name
- Click ‘Create’
- Paste code into Module1
- NOTE: Change the code in the MoveTo_Archive Sub, replacing <MyMailbox> with your actual mailbox name
- ALSO: Make sure the ‘_Archive’ folder exists in your mailbox.
That should do it. Hope this helps.
…not sure what I would screencap.

3 comments:
I still get an error each time i invoke the macro.
occurs in the FunctionOpenMAPIFolder(szPath)....set flr=ns.Folders(szDir)
found the error and got it working...I had an erro int he mailbox name.
thanks
didn't do "Mailbox - name"
Are you sure the folder path is correct? Are you trying to move items to a folder that actually exists?
Post a Comment