आउटलुक मैक्रो स्क्रिप्ट के लिए त्वरित समायोजन

Question

निम्नलिखित आउटलुक मैक्रो पूरी तरह से काम करता है, हालांकि, मैं चाहूंगा कि यह MsgBox केवल दिखाई दे अगर विषय क्या LIKE 'फीस देय%' या विषय 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

निम्नलिखित के साथ अगर आपका MsgBox ... संलग्न करें:

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