Ajuste rápido para o script de macro do Outlook

Question

A macro do Outlook a seguir funciona perfeitamente, no entanto, eu gostaria que essa MsgBox aparecesse apenas se o Assunto fosse LIKE 'Honorários Devidos%' OU Assunto é LIKE'Status Alteração% '. Isso é possível? @thims

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox("Do you want to continue sending the mail?", vbOKCancel) <> vbOK Then
        Cancel = True
    End If
End Sub

    

Answer 1

Coloque seu MsgBox ... com o seguinte:

If InStr(Item.Subject, "Fees Due") = 1 Or InStr(Item.Subject, "Status Change") = 1 Then
    ...
End If