从Outlook

时间:2016-10-11 10:25:04

标签: excel vba email outlook

我有一个带有一些VBA的Excel电子表格,它会向电子表格中包含电子邮件地址的所有人发送营销电子邮件。

当我通过我的主帐户发送它时,它的工作非常完美,但当我尝试通过我们的营销@'电子邮件帐户,它只会将发送回该帐户。

电子邮件从我的帐户发送(正确)并显示在我发送的项目中,当他们在marketing @帐户中收到时,回复地址是营销@所以一切似乎都有效。它只是没有发送给收件人。

我有权使用Exchange中的SendAs,这有效(如果我尝试不同的地址,我会收到拒绝访问错误消息),但无法理解为什么这根本不适合我。

这是我的代码:

 Private Sub StackOverflow()
  Dim OlApp As Outlook.Application
  Dim olMail As Outlook.MailItem

    Set OlApp = New Outlook.Application
    Set olMail = OlApp.CreateItem(olMailItem)
    With olMail
      .SentOnBehalfOfName = """Marketing"" <marketing@>"
      .To = "Recipient"
      .Subject = "Test"
      .Body = "Test"
      .Display
    End With

  Set olMail = Nothing
  Set OlApp = Nothing
End Sub

我需要对此代码进行哪些更改才能将其发送给收件人,而不是返回我发送的帐户?

1 个答案:

答案 0 :(得分:0)

现在已经解决了,它与Excel或Outlook无关。

似乎不知何故,规则被放置在服务器上,而是将从此帐户发送的任何内容重新路由到帐户。现在该规则已被删除,代码完美无缺。