根据正文更改电子邮件主题

Question

我们从我们的供应商之一的系统收到电子邮件警报，主题为“ [SITENAME]警报 - 上行链路状态已更改”，并且电子邮件正文将包含以下两个文本字符串之一：

“安全设备切换到使用 Internet 2 作为其上行链路。”
或
“安全设备切换到使用 Internet 1 作为其上行链路。”

我们需要阅读每封电子邮件以查看上行链路是否上升或下降，我希望从主题中可以看到这一点。

Sub changesubject()
    
    Dim myMessage As Outlook.MailItem 
    Set myMessage = Outlook.ActiveInspector.CurrentItem 
    
    If myMessage.Body = "Internet 2 as its uplink" then
        myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN"
    End If
    
    If myMessage.Body = "Internet 1 as its uplink" then
        myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP"
    End If

End Sub

Answer 1

在If语句中使用Like而不是= 。 这解释了Like运算符的工作原理。 你也可以谷歌“VBA Like”，你会得到更多的结果

Sub changesubject()

Dim myMessage As Outlook.MailItem 
Set myMessage = Outlook.ActiveInspector.CurrentItem 

If myMessage.Body Like "*Internet 2 as its uplink*" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN"
End If

If myMessage.Body Like "*Internet 1 as its uplink*" then
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP"
End If

End Sub