将草稿从个人草稿文件夹移到共享邮箱草稿文件夹

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