在Outlook中从Excel发送电子邮件时，使用VBA设置别名“来自帐户”

Question

希望你能帮助我。

我在Excel中有一个VBA脚本，除其他外，它通过Outlook 365发送电子邮件。现在，我的主电子邮件帐户（@ outlook.com）具有五个别名。这些不是单独的电子邮件帐户，而仅仅是与该主要帐户（本身是六个主要帐户中的一个）关联的别名。 See attached picture for maybe a better explanation我想将这些别名之一设置为“发件人”地址，但这只是没有发生。

这是相关的代码段； Sub中的所有其他功能（包括创建电子邮件以及设置属性和附件）都很好。

Dim emailAlias As String
emailAlias = "f...@outlook.com"

Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)

With Mail_Single
     .Subject = Subject
     .To = Cells(cellRow, 2).Value
     .SentOnBehalfOfName = emailAlias     'doesn't work
     .SendUsingAccount = emailAlias       'no go either
     .HTMLBody = msg
     .Attachments.Add fileName
     .Display
End With

我在做什么错了？

顺便说一句，将别名设置为默认帐户只能在live.com上在线完成，因此这不是一个选择，因为它太麻烦了，以至于每天必须多次（重新）设置它，而且还需要Outlook 365永远认出这个开关。

那么，您是否可以将主要帐户的别名指定为发件人电子邮件地址？

Answer 1

Outlook（至少在其当前版本中）不允许您使用代理SMTP地址之一发送-邮件始终使用帐户的默认SMTP地址发送。

仅当配置虚拟POP3 / SMTP帐户或使用Proxy Manager之类的实用程序时，您才能这样做-有关更多详细信息，请参见https://www.msoutlook.info/question/send-mail-from-additional-exchange-address-or-alias。