OnArrival event sink - CDO - mark email as spam for outlook

[newuserxyz]

Hallo,

I installed an event sink for the OnArrival event (vbscript). Each incoming mail contents a spam flag in the subject.
The vbscript read the subject field and in case of spam the mail should be marked in a way that outlook recognizes the mail as junk.
Is there a property within the msg object I can use?
How to do that?


Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus )
If Msg.Subject = "spam" Then
..... ???? ....
End If
End Sub