LISTING 1: Script to Change the Message Class for Incoming Messages 

Public Sub Folder_OnMessageCreated
	Dim CDOSession, NewMC, CurItem

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

	NewMC = "IPM.Note.Sales"

	' only change messages sent with default form
	If CurItem.Type = "IPM.Note" Then
		CurItem.Type = NewMC
		CurItem.Update
	End If
End Sub