MS Access Redemption删除“代表发送人”

当尝试使用其他收件箱发送电子邮件时，我将.SentOnBehalfOfName更改为我想要发送的电子邮件。MS Access Redemption删除“代表发送人”

但是，邮件到达“MyRealName代表EmailAddressIWantToSendFrom”。

我该如何删除MyRealName？

编辑：

Set outlookApp = CreateObject("Outlook.Application") 
Set namespace = outlookApp.GetNamespace("MAPI") 
namespace.Logon 
Set MyItem = outlookApp.CreateItemFromTemplate(path_to_msg_file) 

... 
pretend that this comment is a bunch of code that modifies the body of MyItem, mostly doing text replacements in MyItem.HTMLBody 
... 


Set safeItem = CreateObject("Redemption.SafeMailItem") 
Set oItem = MyItem 
safeItem.Item = oItem 

safeItem.To = "person I want to send to" 
safeItem.SentOnBehalfOfName = "desired address I want to sent from" 

safeItem.Recipients.ResolveAll 
safeItem.Send

来源

2016-02-29 DoubleBass

你可以编辑多个电子邮件属性，甚至'.From'属性，并将其设置为'vbNullString'。但最后，这一切都取决于电子邮件服务器以及如何设置此服务器。在大多数公司中，您不能更改，隐藏或遮掩发件人的电子邮件地址或姓名。这可能是某种形式的“身份盗用”（如果发送电子邮件的真实人员 - 即使它是正确代表）将会丢失。如果您有兴趣，您可能希望Google“发送匿名电子邮件”并查看结果以获取更多信息。 – Ralph

我试着设置'.From'到'vbNullString'和EmailAddressIWantToSendFrom，都没有伤心 – DoubleBass

Outlook对象模型和Redemption都没有From属性。 –

为了能够发送作为用户，你需要有同时发送，作为和接收，如权利。您需要连接到该用户的邮箱，并在您要发送的用户的邮箱中创建新邮件。

编辑：尝试类似如下：

set rSession = CreateObject("Redemption.RDOSession") 
    rSession.MAPIOBJECT = Application.Session.MAPIOBJECT 
    set Store= rSession.GetSharedMailbox("some GAL name") 
    set Folder = Store.GetDefaultFolder(olFolderOutbox) 
    set Msg = Folder.Items.Add 
    Msg.Subejct = "test" 
    Msg.To = "[email protected]" 
    Msg.Send

来源

2016-02-29 17:18:21

这是什么意思？我认为发件人权利对于我来说甚至首先需要使用SendOnBehalfOf。在此之前，我根本无法发送该电子邮件（我收到无法投递的错误消息），但由于我现在可以发送电子邮件（尽管RealName已存在），还有什么可以做的？ – DoubleBass

我的观点是你需要同时拥有Receive-as权限并在该用户的邮箱中创建邮件。 –

使代码“在该用户的邮箱中创建邮件”有区别吗？ – DoubleBass

MS Access Redemption删除“代表发送人”

回答

相关问题