如何从特定帐户发送邮件? [英] How to send mail from a specific account?

问题描述

我使用的是 Office 365(Outlook 版本 1909 内部版本 12026.20264).

I am using Office 365 (Outlook Version 1909 Build 12026.20264).

我配置了两个电子邮件帐户([e-mail] 和 [e-mail])和一个共享邮箱([e-mail]).

I configured two email accounts ([e-mail] and [e-mail]) and one shared mailbox ([e-mail]).

使用我的 [e-mail] 帐户，我有权从 [e-mail] 发送电子邮件.

With my [e-mail] account I have permission to send email from [e-mail].

我可以从所有帐户([e-mail]、[e-mail]、[e-mail])手动发送电子邮件.

I can manually send email from all accounts ([e-mail], [e-mail], [e-mail]).

我有使用 SentOnBehalfOfName 属性从 [e-mail] 发送电子邮件的 VBA 代码.

I have VBA code to send email from [e-mail] using the SentOnBehalfOfName property.

Sub TEST()
  Dim origEmail As MailItem
  Dim replyEmail As MailItem

  Set origEmail = Application.ActiveWindow.Selection.Item(1)
  Set replyEmail = Application.CreateItemFromTemplate("C:\...\Template.oft")

  replyEmail.SentOnBehalfOfName = "[e-mail]"
  replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
  replyEmail.Subject = "RE:" + origEmail.Subject

  replyEmail.Display
End Sub

通常这会正确发送电子邮件.我可以看到他们转到 [e-mail] 帐户中的已发送文件夹.

Usually this sends emails correctly. I can see they go to the sent folder in the [e-mail] account.

有时它会尝试使用 [e-mail] 帐户发送电子邮件(该帐户无权从 [e-mail] 发送电子邮件).我在 [e-mail] 中收到一封错误电子邮件，但该电子邮件未发送.

Sometimes it tries to send emails using the [e-mail] account (which has no permission to send emails from [e-mail]). I receive an error email in [e-mail] and the email is not sent.

如何更改我的代码，以便每次从 [e-mail] 发送电子邮件时，它都会使用我的 [e-mail] 帐户?

How can I change my code so that everytime I am sending email from [e-mail] it will use my [e-mail] account?

注意:我将 [e-mail] 帐户设置为我的默认帐户.

Note: I set my [e-mail] account as my default account.

推荐答案

需要将SendUsingAccount属性设置为[e-mail]对应的Account对象邮箱.

You need to set the SendUsingAccount property to the Account object corresponding to the [e-mail] mailbox.

Sub TEST()
  Dim origEmail As MailItem
  Dim replyEmail As MailItem

  Set origEmail = Application.ActiveWindow.Selection.Item(1)
  Set replyEmail = Application.CreateItemFromTemplate("C:\...\Template.oft")

  for each acc in Application.Session.Accounts
    if acc.DisplayName = "[e-mail]" Then 
      replyEmail.SendUsingAccount = acc
      Exit for
    End If
  next 

  replyEmail.SentOnBehalfOfName = "[e-mail]"
  replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
  replyEmail.Subject = "RE:" + origEmail.Subject

  replyEmail.Display
End Sub

这篇关于如何从特定帐户发送邮件?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！