Outlook VBA 共享邮箱中的草稿邮件

Question

我正在尝试构建一个宏，它会创建一个电子邮件 (Outlook) 并将其保存在共享邮箱的 DRAFTS 文件夹中。
除了将电子邮件保存在我个人邮箱的 DRAFTS fodler 中之外，该宏按预期工作。我希望它保存在 SharedMailbox 的 DRAFTS 文件夹中。
下面是代码。我也试过 '.SentOnBehalfOf' 但没有成功。

With OutMail
    .To = "m2@abck.com"
    .Subject = "This is the Subject line"
    .Body = "Hi there"
    .Attachments.Add ("C:\test.txt")
    .SendUsingAccount = "abc@xyz.com"
    .Save
End With

Answer 1

您需要使用 Move method of the MailItem class to move the item to the shared folder. Or you can use the Add method of the Items class which comes from the shared folder. See How to create and show a new Outlook mail item programmatically: C#, VB.NET 获取更多信息。

使用命名空间的 GetSharedDefaultFolder 方法 class 获取表示指定用户的指定默认文件夹的 Folder 对象。

Outlook VBA 共享邮箱中的草稿邮件

Outlook VBA Draft Mail in SharedMailbox

outlook

vba