Outlook 2000 VBA envelope removal

[LizardKingSchwing]

Right so what I want to do is use the RemoveNewMailIcon vba code from link below to remove the Outlook New Mail Envelope when a mail with [Norton Antispam] in the
Subject comes in

http://www.slipstick.com/files/clear_icon.txt

Currently I have it set as follows

Private Sub Application_NewMail()
RemoveNewMailIcon
End Sub

What I need is some vba code to

Private Sub Application_NewMail()

'Check 1st the mails subject
'see if it has the string [Norton Antipam]
'if it does call the below
RemoveNewMailIcon

'if not then do nothing
End Sub


Anyone know how to do this or have any tips ,hints etc.

Cheers

LK--<

 

[LizardKingSchwing]

Got some more info. from below link

http://www.experts-exchange.com/Applications/MS_Office/Q_20149311.html

Then I put in this code ....

--------------------------------------------
Private Sub Application_NewMail()
Dim oApp As Application
Dim oNS As NameSpace
Dim oMsg As Object
Dim oFolder As Object


Set oApp = New Outlook.Application
Set oNS = oApp.GetNamespace("MAPI&quot
Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
strControl = 0

For Each oMsg In oFolder.Items
With oMsg
If oMsg.Class = olMail Then
If oMsg.UnRead = True Then
If InStr(1, .Subject, "[Norton AntiSpam]&quot > 0 Then
'MsgBox "New Spam"
RemoveNewMailIcon
Exit For
End If
End If
End If
End With
Next
End Sub
-------------------------------------------------------

It works but causes high utilisation every time a mail comes in .... Anyone wanna tweak the above or got a better way to do it ???

Cheers

LK-<