Prevent Users From Opening Mail ("Iloveyou")

This is a quick and dirty way to prevent users from opening a mail and
launching the attached file.
We are using the R46Combo Mail Template. This doesn't actually delete the
document but puts it in the trash and with the message box that pops up, there
is no way to launch the attachment.
As a quick fix to prevent the attachment from being launched, we put the
following code in the PostOpen event in the memo form:

Sub Postopen(Source As Notesuidocument)

Dim doc As Notesdocument
Set doc=Source.document
If Not(doc Is Nothing) Then
If doc.subject(0)="ILOVEYOU" Then
Msgbox("This document is known to contain a virus and will be deleted")
Call source.close
Call source.deletedocument

End If

End If

End Sub

Dig Deeper on Lotus Notes Domino Phishing and Email Fraud Protection

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...