vba - 如何更改 Outlook 中的发件人姓名？

Question

我正在使用子例程vba中的Outlook对象发送电子邮件

电子邮件从我的电子邮件地址发送，收件人会看到: myemail@xxx.com 。有什么方法可以让这些收件人收到一封包含 MyfirstName MylastName 而不是我的电子邮件

的电子邮件

Sub Mail_Workbook_1()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail
        .From = "MyfirstName MylastName" 'something like this
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hello World!"
    ....
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Answer 1

如果您代表另一个邮箱通过 Exchange 发送邮件，请设置 MailItem.SentOnBehalfOfName 属性(假设您有足够的权限)

如果您通过特定 SMTP 帐户发送，请设置 MailItem.SendUsingAccount 属性。

如果您需要以任意 SMTP 用户身份发送，请参阅 this example在我的网站上 - 您基本上需要在 PS_INTERNET_HEADERS 命名空间中设置“From”命名的 MAPI 属性。请注意，并非所有 SMTP 服务器都允许您这样做 - Exchange 不会让您欺骗发件人。

如果您想要作为属于特定 Exchange 邮箱的别名(代理)SMTP 地址之一发送，则需要通过 SMTP 发送 - 通过 OOM 或 MAPI 发送将始终使用邮箱的默认 SMTP 地址发送。对于最终用户，您可以配置虚拟 POP3/SMTP 帐户或使用类似 Proxy Manager 的产品。 (我是它的作者)。请参阅MSOutlook.info了解更多信息。