Outlook VB Script to read aloud subjects of new emails

We have a requirement to read out the subjects from our monitoring server out loud for notifications.

I have a script and it appears to be actioned OK from the rule I have, But it doesn't actually do anything. (I did have it working at one point, But now it's not...) I'm not a developer and this is all learnt in the last few hours. I'd appreciate some assistance with finding out what i'm doing wrong...

Many thanks!

Code:

---

Sub CustomMailMessageRule(Item As Outlook.MailItem
Do
Set voicespeak = CreateObject("SAPI.spvoice")
With voicespeak
.Rate = -5
.Speak Item.Subject
End With
Loopcount =1
Loop until (loopcount > 0)
End Sub

---