根據正文更改電子郵件主題

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