vba - 如何代表代理人在 Outlook 中发送电子邮件？

Question

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

目前，我正在使用带有通用示例的 SendUsingAccount 。但我不知道如何使用该代码，因为它本身不是这台机器上的实际帐户。我只有代理访问它。

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

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

Answer 1

查看MailItem.SentOnBehalfOfName 属性。您应该有权访问您要代表其发送的邮箱/配置文件。

例子：

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:现场说。