使用正文中的文本更改主题

Question

我的电子邮件的主题行如下：
您收到了来自 ABC 的新通知

电子邮件正文的文本如下：
团队：北美库存
分区：美国分区

我有一个规则来识别“您已收到来自 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: ([^\n\r\f]*)"
    Set reMatch = .Execute(objItem.Body)
    team = reMatch(0).SubMatches(0)
    .Pattern = "\bDivision:\s*([^\n\r\f]*)"
    Set reMatch = .Execute(objItem.Body)
    division = reMatch(0).SubMatches(0)
End With
objItem.Subject = ".... --- " & team & " --- " & division