Переместить черновик из личной папки черновиков в общую папку черновиков почтовых ящиков

Question

У меня есть саб, который создает черновик электронной почты на основе данных из Excel. Он работает, как и ожидалось, но теперь мне нужно переместить черновик в общую папку черновиков входящих. Я нашел код ниже, но ничего не происходит, когда я запускаю его. Нет ошибок, но электронная почта не перемещается из моей личной папки в общую папку черновиков почтового ящика. Любые идеи, чтобы заставить это работать?

Sub MoveDraftMail()

    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    Dim objSourceFolder As Outlook.MAPIFolder
    Dim objDestFolder As Outlook.MAPIFolder
    Dim objItem As MailItem

    Set objOutlook = Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderDrafts)
    Set objItem = objOutlook.ActiveInspector.currentItem    
    Set objDestFolder = objNamespace.Folders("Mary Reaser").Folders("Drafts")

    objItem.Move objDestFolder

    Set objDestFolder = Nothing
End Sub