move folders in outlook using vba
 

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

move folders in outlook using vba
 

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.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"pete the greek" wrote in message
...
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