Sub Test()
    Dim myApp As Outlook.Application
    Dim NameS As NameSpace
    Dim Folder As MAPIFolder
    
    Set myApp = CreateObject("Outlook.Application")
    Set NameS = myApp.GetNamespace("MAPI")
    Set Folder = NameS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
    
    Set Letters = Folder.Folders.Item("Папка1").Folders.Item("Папка3").Folders.Item("Папка3").Items
    CountLetter = Letters.Count
    
    For i =  1  To CountLetter
        Set Letter = Letters.Item(i)
        
        Letter.Move (Folder.Folders.Item("Папка1").Folders.Item("Папка2").Folders.Item("Папка3").Folders.Item("Папка4"))
    Next
    
    MsgBox (CountLetter)
End Sub

Sub Test()
Dim myApp           As Outlook.Application
Dim NameS           As Outlook.NameSpace
Dim myItem          As Outlook.MailItem
Dim myFolder        As Outlook.MAPIFolder
Dim myFolderTarget  As Outlook.MAPIFolder
    
    Set myApp = CreateObject("Outlook.Application")
    Set NameS = myApp.GetNamespace("MAPI")
    
    ' Папка-источник
    Set myFolder = NameS.GetDefaultFolder(olPublicFoldersAllPublicFolders) _ 
            .Folders("Папка1").Folders("Папка3").Folders("Папка3")
    ' Папка-назначение
    Set myFolderTarget = myFolderTarget.Folders("Папка4")
    
    ' Перенос из одной папки в другую
    For Each myItem In myFolder.Items
        
        myItem.Move myFolderTarget
    
    Next
    
End Sub