从Outlook中的辅助电子邮件帐户发送

我有一个包含一些VBA的Excel电子表格，它将向电子表格中的电子邮件地址发送营销电子邮件给每个人。从Outlook中的辅助电子邮件帐户发送

当我通过我的主帐户发送它时，它的工作原理绝对完美，但是当我尝试通过我们的'marketing @'电子邮件帐户发送时，它只会将发送到该帐户。

电子邮件从我的帐户发送（正确）并显示在我发送的项目中，当它们在marketing @ account中收到时，回复地址为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"" <[email protected]>" 
     .To = "Recipient" 
     .Subject = "Test" 
     .Body = "Test" 
     .Display 
    End With 

    Set olMail = Nothing 
    Set OlApp = Nothing 
End Sub

什么样的变化，我需要对这个代码把它发送给收件人，而不是回到我从发送帐户？

来源

2016-10-11 Stephen

请看[ask]和[mcve]。 – Mat

编辑以使代码最小化 – Stephen

当前最小代码将发送到“收件人”。它既不完整也不可验证。如果您放入足够的代码以便您看到（验证）问题，那么使用最少的和现在完整的示例代码就可以获得比零更好的答案。描述如何以他人可以尝试重新创建过程的方式获得“收件人”。 – niton

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

看来，不知何故，在服务器上放置了一条规则，将从该帐户发送到帐户的任何内容重新路由到该帐户。现在这条规则已被删除，代码完美地工作。

来源

2016-10-12 12:41:12 Stephen

从Outlook中的辅助电子邮件帐户发送

回答

相关问题