我正在尝试创建一个邮件项并将其保存在草稿文件夹中以供其他用户使用。我可以创建草稿,但它只保存到我自己的草稿文件夹,而不是其他用户。我对其他用户的邮箱有足够的权限。
到目前为止,这是我的测试代码:
Dim omApp As New Outlook.Application
Dim omNamespace As Outlook.NameSpace = omApp.GetNamespace("MAPI")
Dim omUser As Outlook.Recipient = omNamespace.CreateRecipient("otheruser@mail.com")
omUser.Resolve()
If Not omUser.Resolved Then
MsgBox("Could not login.")
End If
Dim omDrafts As Outlook.MAPIFolder = omNamespace.GetSharedDefaultFolder(omUser, Outlook.OlDefaultFolders.olFolderDrafts)
Dim omMailItem As Outlook.MailItem = CType(omDrafts.Items.Add, Outlook.MailItem)
With omMailItem
.SentOnBehalfOfName = "otheruser@mail.com"
.To = "bill@gates.com"
.Subject = "Test"
.Body = "Test email"
.Save()
End With
我究竟做错了什么?
该代码必须适用于 2003 年至 2010 年的所有 Outlook 版本。