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

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

问题描述:

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

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

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

当我发送电子邮件时,可以在Outlook的from下拉框中选择个人和组之间的电子邮件。是否有另一种方法可以在没有设置第二个帐户的情况下在VBA中执行此操作?

+0

你尝试'SenderEmailAddress'? – 2014-10-17 14:52:23

您可以使用Outlook的.SentOnBehalfOfName属性以其他用户的名义发送邮件。 检查下面的代码和URL进一步的细节:http://www.slipstick.com/developer/code-samples/send-email-address-vba/

oMail.SentOnBehalfOfName = "[email protected]" 
+0

这正是我所需要的。谢谢! – 2014-10-17 15:27:13