在共享邮箱中打开起草的邮件

Question

我有一个用于起草电子邮件并将该电子邮件移至共享收件箱的子程序。但是，当我尝试显示起草的电子邮件时，它不会打开实际的电子邮件。相反，它 opens/creates 邮件的新副本最终出现在我自己的草稿中。知道如何在共享收件箱中打开起草的电子邮件以便 edit/send 吗？任何帮助将不胜感激。

Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim mySharedFolder AS Outlook.MAPIFolder
Dim mySharedInbox As Outlook.Folder
Dim myAccount As Outlook.Account
Dim myNamespace As Outlook.Namespace

Set sBody = "insert text"

Set myNamespace = Outlook.GetNamespace("MAPI")
Set myMailbox = myNamespace.CreateRecipient("mymail@mail.com")
Set SharedInbox = myNamespace.GetSharedDefaultFolder(myMailbox, olFolderDrafts)
Set outlookApp = CreateObject("Outlook.Application")
Set myMail  = outlookApp.CreateItem("olMailItem")

With myMail
    .HTMLBody = sBody
    .SentOnBehalfOfName = "mymail@mail.com"
    myMail.Move SharedInbox
    myMail.Display
End Sub

Answer 1

MailItem.Move不是sub，它是returns新项目的函数：

set myMail = myMail.Move(SharedInbox)
myMail.Display

在共享邮箱中打开起草的邮件

Opening a drafted mail in Shared Mailbox

email

excel

outlook

vba