Outlook 使用Redemption写入消息头

我有人正在使用MSAccess发送电子邮件，并正在使用赎回库帮助整理电子邮件

然而，出现了一个新的要求，即他们需要在发送电子邮件之前在电子邮件中写入一些自定义标题

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

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

这是赎回图书馆能够支持的吗

---

提前谢谢

您需要做的是如下操作：

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

---

谢谢Dmitry，我会试一试并让您知道。这是会话和对象的初始化，但当我尝试使用时。RDOItem或RDOSent VBA上的字段返回“属性的无效使用”Set RDOSession=CreateObject（“Redemption.RDOSession”）。RDOSession.Logon。设置RDOSent=RDOSession.GetDefaultFolder（Redemption.rdoDefaultFolders.olFolderSentMail）。在VB中设置RDOItem=RDOSent.Items.Add.In，将[]替换为（）您好，谢谢您的帮助。我可以看到我在邮件发送后的标记。再次感谢