如何代表代表在Outlook中发送电子邮件？

Question

我正在编写一个VBA脚本，可以向我们的客户发送电子邮件。我以前制作过类似的系统，但不同之处在于这些电子邮件将使用通用的From字段（因此收件人只能看到我们公司的名称，而不是发送它的个人）。这很容易手动完成。

目前，我正在使用带有通用examples的SendUsingAccount。但我无法弄清楚如何使用该代码，因为它本身并不是这台机器上的实际帐户。我只是委托访问它。

那么，有人可以告诉我如何使用VBA代表其他人发送电子邮件吗？

（或者，我确实拥有该帐户的用户名和密码。因此，如果我需要登录该帐户发送电子邮件，我也可以这样做）

Answer 1

查看MailItem.SentOnBehalfOfName Property。您应该具有代表您要发送的邮箱/配置文件的委派访问权限。

实施例

Sub SendEmailOnBehalf()
  Dim msg As Outlook.MailItem

  Set msg = Outlook.CreateItem(olMailItem)
  With msg
    .SentOnBehalfOfName = "Jimmy's boss' name"
    .Subject = "Email from someone else"
    .Body = "Hello" & vbNewLine 
  End With
End Sub

电子邮件会在From Jimmy Pena on behalf of Jimmy's Boss字段中显示From:。