Sub Postopen(Source As Notesuidocument)Dim doc As NotesdocumentSet doc=Source.documentIf Not(doc Is Nothing) ThenIf doc.subject(0)="ILOVEYOU" ThenMsgbox("This document is known to contain a virus and will be deleted")Call source.closeCall source.deletedocumentEnd IfEnd IfEnd Sub