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

Question

We get email alerts from the system of one of our vendors with subjects "Alert for [SITENAME] - Uplink status changed" and where the email body will contain one of following two texts strings:

"the security appliance switched to using Internet 2 as its uplink."
or
"the security appliance switched to using Internet 1 as its uplink."

We need to read each email to see if an uplink has gone up or down and I want this to be visible from the subject.

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

Use Like in your If statements instead of = . This explains how the Like operator works. You can also Google "VBA Like" and you will get more results

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