我使用Access 2013和CDO直接从我的应用程序发送电子邮件。我正在构建一个表单,允许用户根据保存的模板撰写电子邮件。模板存储在Access Table中,并使用变量用相关数据填充电子邮件。像代码一样处理表数据证明是困难的。下面是一个简单的假设示例:
vExample = "1234"
tblEmailTemplate.EmailBody = "text " & vExample
当我在表单上填充txtEmailBody时,我得到:" text" &安培; vExample
我需要的是:文字1234
非常感谢任何建议或建议!!
(如果一个富文本格式的文本框是唯一的前进方式,可能链接到如何使用RTF处理变量的快速链接会很棒)
答案 0 :(得分:1)
我找到了解决方案;
从
改变vExample = "1234"
tblEmailTemplate.EmailBody = "text " & vExample
到
vExample = "1234"
tblEmailTemplate.EmailBody = text [evExample]
strBody = Replace(tblEmailTemplate.EmailBody, "[[evExample]]", vExample)