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

时间:2013-11-22 03:35:46

标签: vba email outlook-vba

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

似乎我应该能够放置一个标记(dataItem1,dataItem2等)并将其替换为文件中匹配的文本数据。

搜索仅显示替换收件人,主题等字段数据或替换整个正文。我是否必须在代码中生成整个主体?似乎我应该能够将数据项“插入”现有正文文本。

任何建议都将不胜感激。

2 个答案:

答案 0 :(得分:3)

万一您的电子邮件格式为HTML,并且您不想丢失格式,这就是您想要做的事情。

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

答案 1 :(得分:0)

使用您正在使用的Body的{​​{1}}属性。将其分配给变量,您可以对其进行编辑:

MailItem

然后将变量分配给Dim body As String body = myMessage.Body body = Replace(body,"dataItem1","your replacement here")

Body