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

Question

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

目前，我正在使用带有通用示例的 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: ”字段中From Jimmy Pena on behalf of Jimmy's Boss 。