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

Question

我正在尝试构建一个宏，它创建一个电子邮件（Outlook）并将其保存在共享邮箱的DRAFTS文件夹中。
  宏可以按预期工作，除了它将电子邮件保存在我的个人邮箱的DRAFTS fodler中。我希望它保存在SharedMailbox的DRAFTS文件夹中 下面是代码。我也试过了.SentOnBehalfOf＆＃39;但没有运气。

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

您需要使用MailItem类的Move方法将项​​目移动到共享文件夹。或者，您可以使用来自共享文件夹的Items类的Add方法。有关详细信息，请参阅How to create and show a new Outlook mail item programmatically: C#, VB.NET。

使用Namespace类的GetSharedDefaultFolder方法获取一个Folder对象，该对象表示指定用户的指定默认文件夹。