如何从共享的非 Exchange 帐户发送？答案

【问题标题】：How to send from a shared non-Exchange account?如何从共享的非 Exchange 帐户发送？
【发布时间】：2020-11-16 17:08:06
【问题描述】：

如何更改.sentonbehalfofname 属性？

我们将共享邮箱从 Exchange 更改为普通帐户。邮箱作为普通帐户添加到 Outlook。

我得到以下代码：

“无法发送此消息。您无权代表指定用户发送消息。”

'   Construct email
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .SentOnBehalfOfName = "bbb@aaa.com"
        .BodyFormat = 2
        Set editor = .GetInspector.WordEditor
        editor.Content.Paste
        .To = currentEmailAddress
        .Subject = emailTitle & " ID:" & Range(teamMemberIDColumn & cell.Row).Value
        .Display
        .Send

【问题讨论】：

标签： vba outlook

【解决方案1】：

试试这个

'Construct email
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .SendUsingAccount = Application.Session.Accounts("bbb@aaa.com")
            .BodyFormat = 2
            Set editor = .GetInspector.WordEditor
            editor.Content.Paste
            .To = currentEmailAddress
            .Subject = emailTitle & " ID:" & Range(teamMemberIDColumn & cell.Row).Value
            .Display
            .Send

请注意，必须在您的 Outlook 中添加和配置 bbb@aaa.com 帐户才能使其正常工作。

【讨论】：

感谢您的帮助。我试过了，但邮件是由我的帐户而不是那个共享邮箱发送的。即使我在那里写信，但仍然继续从我的邮箱发送
如文档所述，MailItem.SentOnBehalfOfName property 用于指示邮件的预期发件人的显示名称（它不会更改邮箱）。所以它是从您的邮箱发送一条消息，但显示另一个地址作为名称。另请注意，SentOnBehalfOfName 仅适用于 Exchange Server。如果不使用 Exchange，则此属性不执行任何操作。
@Pᴇʜ 你是绝对正确的，这就是为什么我将其更改为 SendUsingAccount 并在我的回答结束时要求将 bbb@aaa.com 添加并配置到用户的前景
@SuperSymmetry 实际上，我的评论旨在证明.SendUsingAccount（如您所建议的那样）是如果必须从另一个邮箱发送邮件的正确方法:)
@Pᴇʜ :) 我真的希望我错过了一些东西，你会回来为这个stackoverflow.com/questions/62729844/switching-the-from-inbox提供线索

【解决方案2】：

根据错误消息，您无权代表他人发送。您必须联系您的 Exchange 管理员以授予此类权限。

另一种可能的以其他人身份发送的方法是使用MailItem.SendUsingAccount 属性，该属性设置一个Account 对象，该对象代表MailItem 将在其下发送的帐户。在这种情况下，您需要在展望档案。以下是示例用例场景：

OutMail.SendUsingAccount = Application.Session.Accounts(1)

【讨论】：