Outlook Перемещение письма между общими папками - VB

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

Пример кода. Пытаюсь переместить письмо из одной общей папки в другую.

Test()
     myApp  Outlook.Application
     NameS  
     Folder  MAPIFolder
    
     myApp = CreateObject()
     NameS = myApp.GetNamespace()
     Folder = NameS.GetDefaultFolder(olPublicFoldersAllPublicFolders)
    
     Letters = Folder.Folders.Item().Folders.Item().Folders.Item().Items
    CountLetter = Letters.Count
    
     i =   CountLetter
         Letter = Letters.Item(i)
        
        Letter.Move (Folder.Folders.Item().Folders.Item().Folders.Item().Folders.Item())

    MsgBox (CountLetter)
 

Выдает ошибку: "Method 'Move' of object 'MailItem' failed"

Решение задачи: «Outlook Перемещение письма между общими папками»

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

                            <font color="blue">Sub</font> Test()
<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> myItem          <font color="blue">As</font> Outlook.MailItem
<font color="blue">Dim</font> myFolder        <font color="blue">As</font> Outlook.MAPIFolder
<font color="blue">Dim</font> myFolderTarget  <font color="blue">As</font> Outlook.MAPIFolder
    
    <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="00AA00">' Папка-источник</font>
    <font color="blue">Set</font> myFolder = NameS.GetDefaultFolder(olPublicFoldersAllPublicFolders) _ 
            .Folders(<font color="teal">"Папка1"</font>).Folders(<font color="teal">"Папка3"</font>).Folders(<font color="teal">"Папка3"</font>)
    <font color="00AA00">' Папка-назначение</font>
    <font color="blue">Set</font> myFolderTarget = myFolderTarget.Folders(<font color="teal">"Папка4"</font>)
    
    <font color="00AA00">' Перенос из одной папки в другую</font>
    <font color="blue">For</font> <font color="blue">Each</font> myItem <font color="blue">In</font> myFolder.Items
        
        myItem.Move myFolderTarget
    
    <font color="blue">Next</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>
                        