使用 Redemption 编写消息头

【问题标题】：Using Redemption to write message header使用 Redemption 编写消息头
【发布时间】：2020-12-07 08:07:42
【问题描述】：

我有人正在使用 MSAccess 发送电子邮件，并且正在使用 Redemption 库来帮助整理电子邮件。

但是出现了一个新要求，他们需要在发送之前在电子邮件中编写一些自定义标头。

代码使用 RDO.Item 来构建电子邮件的正文。

我看到了其他一些使用 VBA 和 Outlook 的建议，在获得 MAPI 会话后，他们使用了 .PropertyAccessor。将项目写入标题的方法，但我不确定这是否可以通过 Redemption 的 MAPIOBJECT 实现。

这是 Redemption 库能够支持的吗？

提前致谢！

【问题讨论】：

【解决方案1】：

您需要做的只是如下所示：

YouRDOMailObject.Fields["http://schemas.microsoft.com/mapi/string/{00020386-0000-0000-C000-000000000046}/X-MyCustomHeader"] = "Some value";

【讨论】：

谢谢你，德米特里，我会试一试，让你知道。
这里是会话和对象的初始化，但是当我尝试在 RDOItem 或 RDOSent VBA 上使用 .Fields 时返回“无效使用属性”Set RDOSession = CreateObject("Redemption.RDOSession") . RDOSession.Logon。设置 RDOSent = RDOSession.GetDefaultFolder(Redemption.rdoDefaultFolders.olFolderSentMail)。设置 RDOItem = RDOSent.Items.Add.
在 VB 中，将 [] 替换为 ()
嗨，德米特里，感谢您的帮助。电子邮件通过后，我可以看到我所追求的标记。再次感谢