Search Outlook Mail Subject or Body for String - VBA

    Dim Subject As String
    Subject = Item.Subject

    If Subject Like "*Test*" Or Subject Like "*Fail*" Then
        MsgBox "Subject Keyword Found"
    End If

    Dim Body As String
    Body = Item.Body

    If InStr(Item.Body, "BodyTest") > 0 Then
        MsgBox "Body Keyword Found"
    End If

Page tree

Search Outlook Mail Subject or Body for String - VBA