Быстрая настройка для макропрограммы Outlook

Question

Следующий макрос Outlook работает отлично, однако мне бы хотелось, чтобы этот MsgBox появлялся только в том случае, если тема « LIKE», «Fees Due%» ИЛИ «LIKE», «Status Change%». Это возможно? @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

Приложите свой If MsgBox ... со следующим:

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