Error Copying Folders Programmatically in Outlook

C

Cory Pedersen

I keep getting errors with programmatically copying folders in outlook
using vbs or vba. Here is the error. Error Cannont copy this folder
because it may contain private items

' However If I manually copy the the folder in outlook 2003 it works
fine.
' It also doesn't work if I use a macro and substitute application for
myOlApp in side of outlook.

Set myOlApp = CreateObject("Outlook.Application")
Set objOLNS = myOlApp.GetNamespace("MAPI")
Set Source = objOLNS.Folders("Mailbox - Jim Schmidt")
Set Target = objOLNS.Folders("Outlook Backup")
Source.CopyTo(Target)
 
Top