从 Outlook 中的辅助电子邮件地址发送电子邮件的 VBA 代码

Question

我在 W7 x64 上使用 Excel 2010，并使用 Ron de Bruin 的代码从 Outlook 发送电子邮件。我有一个发送的个人和组电子邮件地址，并且正在寻找一种通过在 VBA 中更改组地址来发送的方法。

辅助地址未设置为 Outlook 中的实际帐户。如果我转到 Outlook 中的文件 - 帐户设置，则只会列出一个电子邮件帐户。群组电子邮件地址只是转发给群组。

我为分组框创建了一个实际帐户，并在 VBA 中添加了对 Microsoft Outlook 对象库的引用，并添加了使用 MailItem.SendUsingAccount 属性在帐户 1 或 2 之间进行选择的代码，但 Outlook 在尝试发送时会冻结这个地址。

发送电子邮件时，我可以在 Outlook 的“发件人”下拉框中选择“个人”和“组”电子邮件。在 VBA 中是否有另一种方法可以在不设置第二个帐户的情况下执行此操作？

Answer 1

您可以使用 Outlook 的 .SentOnBehalfOfName 属性以其他用户的名义发送邮件。检查以下代码和 URL 以获取更多详细信息：http : //www.slipstick.com/developer/code-samples/send-email-address-vba/

oMail.SentOnBehalfOfName = "user@domain.com"