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
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")