Сохранение вложений писем Outlook в другую папку Outlook ( не на жестком диске) - VB

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

Доброй ночи!
Собственно приходят письма outlook в которые вложены письма outlook. Вложенные письма Пользователю необходимо просмотреть/проверить и отправить. Если открывать эти письма из самого письма то кнопка для отправки неактивна. Пользователь вынужден сохранить эти письма в другой папке outlook (например Черновики) и затем отправлять. Собственно нужен макрос который перемещал бы вложения текущего письма в папку Черновики.
На просторах нашел код, который сохраняет эти письма на локальном диске. Необходимо его как-то переделать, что бы осуществить задуманное.
Вариант сохранять на локальном диске и оттуда пользователю отправлять письма не предлагать.
Заранее спасибо!

Sub SaveAtt()
    Dim oMail As MailItem
    Set oMail = Outlook.Application.ActiveExplorer.Selection(1)
 
    Dim att As Attachment
    For Each att In oMail.Attachments
                
        With att
            .SaveAsFile "c:\1\" & .FileName
           'ниже задокументирована строка коротая могла бы сработать, но не работает
           ' .Item.Move Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Черновики")
        End With
        
    Next
    Set oMail = Nothing
End Sub

Решение задачи: «Сохранение вложений писем Outlook в другую папку Outlook ( не на жестком диске)»

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

                            Sub ForwardEmailProcessing(MyMail As MailItem)
    On Error GoTo EndSub

    Dim objMail As Outlook.MailItem
    Set objMail = Application.Session.GetItemFromID(MyMail.EntryID)

    Dim inboxFolder As MAPIFolder
    Set inboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
    
    Dim oAttach As Outlook.MailItem
    Set oAttach = objMail.Attachments.Item(0)
    
    Dim copyAttachMail As Outlook.MailItem
    Set copyAttachMail = oAttach.Copy
    copyAttachMail.Move inboxFolder

                        