ciao Mike,
the problem isn't
Dim olApp As New Outlook.Application because if i try to move to the same pst (different folder) the code play regular:
Code:
Set olNameSpace = olApp.GetNamespace("MAPI")
Set FromFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
Set FromSubFolder = FromFolder.Folders("moveFrom")
Set ToFolder = olNameSpace.GetDefaultFolder("olFolderInbox")
Set ToSubFolder = ToFolder.Folders("Posta_gestita")
The default pst is exchange mail personal folder, and i think that is loked from Vault E., with any way is possible to move from this pst to external...;-(.
tank
Fabrizio