Vba 如何替换Outlook电子邮件正文中的文本

我有从文件中读取的文本数据；我需要把它放在电子邮件的正文中。现有文本中大约有50个这样的数据项

似乎我应该能够放置一个标记dataItem1、dataItem2等，并用文件中匹配的文本数据替换它

搜索只会替换字段数据，如收件人、主题等，或替换整个正文。我需要在代码中生成整个主体吗？似乎我应该能够将数据项插入现有正文文本中

如有任何建议，将不胜感激

使用正在处理的邮件项的Body属性。将其指定给一个变量，您可以编辑它：

Dim body As String

body = myMessage.Body
body = Replace(body,"dataItem1","your replacement here")

然后将变量分配给主体：

使用正在处理的邮件项的Body属性。将其指定给一个变量，您可以编辑它：

Dim body As String

body = myMessage.Body
body = Replace(body,"dataItem1","your replacement here")

然后将变量分配给主体：

---

以防您的电子邮件格式为HTML，并且您不想丢失格式，下面是您要做的

myMessage.HTMLBody = Replace(myMessage.HTMLBody, "dataItem1", "replacement item")

---

以防您的电子邮件格式为HTML，并且您不想丢失格式，下面是您要做的

myMessage.HTMLBody = Replace(myMessage.HTMLBody, "dataItem1", "replacement item")