Question

在我的数据库中，我有一个存储电子邮件模板的longtext列。

我在模板中有许多关键字，<<PersonName>>或<<ExpiryDate>>，将替换为当前记录中提供的各个详细信息。

是否有一种简单的方法可以循环显示关键字列表并动态替换它们。我最初的方法是获得KeyWord名称，占位符文本和相应的查询列名称。

然后做一个简单的替换循环？

谢谢！

Answer 1

是的，你可以这样做 - 一个包含关键字，占位符和值字段的查询，然后就像这样;

Dim strTempate as string
Dim rst as Recordset

strTemplate = <value of template field>

With rst
    Do Until .EOF
        strTemplate = Replace(strTemplate, Nz(!Placeholder,""), Nz(!Value,""))
        .Movenext
    Loop
End With

将循环显示您的关键字并在电子邮件模板中进行替换

替换关键字

1 个答案: