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

Question

我们从我们的一个供应商的系统收到电子邮件警报，其主题为"Alert for [SITENAME] - Uplink status changed“，其中电子邮件正文将包含以下两个文本字符串之一：

“安全设备切换到使用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而不是=。This解释了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