Capar entrada de ficheros

A mi si me funciona. Le he cambiado VBS por NSF para que me borre los anexos que tienen extensión NSF.
En el script tendrá que poner otra condición una para *. VBS y otra *.EXE
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Dim p As Integer
Set doc = session.documentcontext
Set rtitem = doc.GetFirstItem("Body")
If (rtitem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
p = Instr(1,o.Source,".nsf",5)
If p > 0 Then
Set object = rtitem.GetEmbeddedObject(
o.source ) Call object.Remove
'Call o.Remove
Call doc.Save(True, True)
End If
End If
End Forall
End If
End Sub

He conseguido que no pase el mail, pero lo que necesito es que me borre el fichero adjunto pero que el mail me lo pase.
¿Es posible?

Crea un agente en la plantilla de las bd de correo de tu servidor.
Ese agente se debe ejecutar cuando se recibe correo.
Pon una fórmula similar a esta. Esta solo borra los .VBS que lleguen.
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim rtitem As Variant
Dim p As Integer
Set doc = session.documentcontext
Set rtitem = doc.GetFirstItem("Body")
If (rtitem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
p = Instr(1,o.Source,".vbs",5)
If p > 0 Then
Call o.Remove
Call doc.Save(True, True)
End If
End If
End Forall
End If
End Sub

¿Cómo tengo que crear ese script? ¿Cómo lotus Script? ¿Fórmula? Y después como la ejecuto, ¿manualmente?..
Gracias