用正文中的文本更改主题

Question

我有一些邮件的主题是这样的:
您已收到ABC的新通知

电子邮件正文的文本如下:
团队:NA库存
部门:美国分部

我有一个规则来识别"你已经收到ABC"的新通知;然后运行一个脚本来修改名称:objMail.subject = "test done"

我想使用正文文本重命名主题行，像这样:
您已收到ABC - American Division - NA Inventory的新通知

Answer 1

我想你的问题是如何提取关键字形式的邮件正文文本。如果是，则使用VBScript.RegExp从邮件正文objMail.Body中提取关键字，如下所示。

With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = False
.Pattern = "bTeam: ([^nrf]*)"
Set reMatch = .Execute(objItem.Body)
team = reMatch(0).SubMatches(0)
.Pattern = "bDivision:s*([^nrf]*)"
Set reMatch = .Execute(objItem.Body)
division = reMatch(0).SubMatches(0)
End With
objItem.Subject = ".... --- " & team & " --- " & division