move folders in outlook using vba

[pete the greek]

hi all, im trying to work out how to move folders using vba, i have manged to
move emails to new folders but cant move folders

we use public folders at work and the one i have to drag and drop to is
buried some 10 levels down for the odd move this is no problem but at times i
could be doing 20-30

my problems are

how do you identify the current folder
and then how do you move it

this is what i have so far

myfolder being the one im trying to move
objfolder being the destination

im playing with this on my personal pc hence the required path is not so long

Sub foldermove()
Set objNS = Application.GetNamespace("MAPI")
Set myFolder = objNS.Folders.Item("personal folders").Folders.Item("ongoing
orders for uk").Folders.Item(1)
objfolder = objNS.Folders.Item("personal folders").Folders.Item("inbox")
myFolder.Move (objfolder)






End Sub

 

[Sue Mosher [MVP]]

how do you identify the current folder

Application.ActiveExplorer.CurrentFolder

and then how do you move it

When in doubt, check the object browser: Press ALt+F11 to open the VBA
environment in Outlook, then press F2. Switch from <All Libraries> to
Outlook to browse all Outlook objects and their properties, methods, and
events. Select any object or member, then press F1 to see its Help topic. In
your case, a quick glance at the Folder or MAPIFolder object (depending on
your Outlook version, which you should always mention when posting in an
Outlook forum) would reveal a MoveTo method.