Outlook, обработка отправленных сообщений VBA

Формулировка задачи:

Добрый вечер, уважаемые программисты :)
Возникла необходимость перемещать сообщения после отправки в др. папку. Есть такой код

oMess  Outlook.MailItem

 myDefFolder  Outlook.Folders
 mySecFolder  Outlook.Folders

 myDefFolder = objSession.GetDefaultFolder()
 mySecFolder = objSession.GetDefaultFolder()

  oMess  myDefFolder
     oMess.SenderName =   oMess.Move mySecFolder

Помогите, пожалуйста, выявить ошибку - никак не получается присвоить myDefFolder паку Отправленные
Заранее всем огромное спасибо!!!

Решение задачи: «Outlook, обработка отправленных сообщений VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> oMess       <font color="blue">As</font> Outlook.MailItem
<font color="blue">Dim</font> myApp       <font color="blue">As</font> Outlook.Application
<font color="blue">Dim</font> NameS       <font color="blue">As</font> Outlook.<font color="blue">NameSpace</font>
<font color="blue">Dim</font> myDefFolder <font color="blue">As</font> Outlook.Folders
<font color="blue">Dim</font> mySecFolder <font color="blue">As</font> Outlook.Folder
<font color="blue">Dim</font> myTasks


 <font color="blue">Set</font> myApp = CreateObject(<font color="teal">"Outlook.Application"</font>)
 <font color="blue">Set</font> NameS = myApp.GetNamespace(<font color="teal">"MAPI"</font>)

<font color="blue">Set</font> myDefFolder = NameS.Folders(<font color="teal">"Личные папки"</font>).Folders(<font color="teal">"отправленные"</font>)
<font color="blue">Set</font> mySecFolder = mySecFolder.Folders(<font color="teal">"Отпр"</font>)

<font color="blue">For</font> <font color="blue">Each</font> oMess <font color="blue">In</font> myDefFolder
<font color="blue">If</font> oMess.SenderName = <font color="teal">"Test Acc"</font> <font color="blue">Then</font> oMess.Move mySecFolder
<font color="blue">Next</font>

                        