[RESOLVED] moving mail from sub folder to personal folder

[RobDog888]

Yes, that is true but at least no errors. Add these lines to the end of my code before the End Sub.

Dim oEmail As Outlook.MailItem
    Set oEmail = oApp.CreateItem(olMailItem)
    oEmail.Move oTest2

After you run it you should see a new blank email message in the test2 folder. Then it wil be working correctly.