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

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

辅助地址不是在Outlook中设置为实际帐户。 如果我转到Outlook中的文件 – 帐户设置,则只列出一个电子邮件帐户。 团体电子邮件地址只是转发给该组。

我创build了一个实际帐户的组框,并在VBA中添加了对Microsoft Outlook对象库的引用,并添加了使用MailItem.SendUsingAccount属性在帐户1或2之间进行select的代码,但是Outlook在尝试从这个地址。

当我发送电子邮件时,可以在Outlook的“从”下拉框中select个人和组之间的电子邮件。 有没有另一种方法来做到这一点在VBA没有build立第二个帐户?

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

 oMail.SentOnBehalfOfName = "user@domain.com"