Dim oMess As Outlook.MailItem

Dim myDefFolder As Outlook.Folders
Dim mySecFolder As Outlook.Folders

Set myDefFolder = objSession.GetDefaultFolder("Отправленные")
Set mySecFolder = objSession.GetDefaultFolder("Отправленные1")

For Each oMess In myDefFolder
    If oMess.SenderName = "Test Email" Then oMess.Move mySecFolder
Next

Dim oMess       As Outlook.MailItem
Dim myApp       As Outlook.Application
Dim NameS       As Outlook.NameSpace
Dim myDefFolder As Outlook.Folders
Dim mySecFolder As Outlook.Folder
Dim myTasks


 Set myApp = CreateObject("Outlook.Application")
 Set NameS = myApp.GetNamespace("MAPI")

Set myDefFolder = NameS.Folders("Личные папки").Folders("отправленные")
Set mySecFolder = mySecFolder.Folders("Отпр")

For Each oMess In myDefFolder
If oMess.SenderName = "Test Acc" Then oMess.Move mySecFolder
Next

Set myDefFolder = NameS.Folders("Личные папки").Folders("отправленные")