outlook 2003 filing email button

[unsworthcl]

I been asked to create a button that files emails to a specific public folder on a click.

Haven't created a macro in years and not sure where to start!

Searched the net on VB macros, but cannot find any for filing emails.

Anyone got any ideas?

 

[Bogiemon]

This might help:

Dim nms As NameSpace, sel As Selection ', fld As MAPIFolder

Set sel = Application.ActiveExplorer.Selection
Set nms = Application.GetNamespace("MAPI")
Set fld = nms.Folders("MainFolder").Folders("SubFolder1").Folders("SubfFolder2") 'Keep using .Folders until you get to the folder you want

For Each thing In sel
thing.Move (fld)
Next thing