Public Folder Events stopped working

[dunxd]

I have a number of public folders that are used to manage emails from
outside the organisation.

These public folders use Event scripts to change the message class into
a custom class that has forms set up for it.

The script is as follows:

Public Sub Folder_OnMessageCreated
Dim CDOSession, NewMC, CurItem

Set CDOSession = EventDetails.Session
Set CurItem = CDOSession.GetMessage(EventDetails.MessageID,Null)

NewMC = "IPM.Note.helplineMessages"

If CurItem.Type = "IPM.Note" Then
CurItem.Type = NewMC
CurItem.Update
End If
If CurItem.Type = "IPM.Post" Then
CurItem.Type = NewMC
CurItem.Update
End If
End Sub

I am not a VBScript programmer, so not 100% sure of what this script is
doing (found it in the article at

http://www.exchangeadmin.com/Articles/Index.cfm?ArticleID=4855).

Particularly confusing is this: Before I started using the script email
messages would appear in the Folder as IPM.Note, then the script worked
for a month, now it has stopped and the messages appear as IPM.Post. I
haven't made any changes to the script.

Could it have something to do with what triggered these two log entries
two days ago?
10/25/02 11:40:11 Run time error at line 16. Source: Microsoft VBScript
runtime error Error: 800a01c0. Description: Named argument not found:
'CurItem.Type'
10/25/02 11:48:14 Run time error at line 11. Source: Microsoft VBScript
runtime error Error: 800a000d. Description: Type mismatch: '[string:
"IPM.Note"]'

If so, what caused these errors? The script hasn't changed!

Any help would be very much appreciated. The public folder is being
used to manage messages to our prostate cancer advice service.
--
Dunx