Auto Responder for Email System

can this type of an agent be designed??-----------------------------------------------------------------------------

Dear EMail friend,

I am an auto responder from email system.

I have just detected that you have sent an email without a subject line. I am set up such, that I need to delete your email from Uday’s email-box, and send you a request to please send it again with a duly filled in subject line. This enables me to make sure that your email gets the attention it requires.

Apologies for the invoncienence, and Thanks

Subject: Auto Responder for Email System

Dear Kalra, Do it as following.Write a agent with the option “Before Mails Arrives” along with the Lotus script code :-

Dim session As New NotesSession

Dim db As NotesDatabase

Dim doc As NotesDocument

Dim newDoc As NotesDocument

Set doc = session.DocumentContext

Set db = session.CurrentDatabase

If(doc.Subject(0)=“”)Then

Set newDoc = New NotesDocument( db )	

newDoc.Form = (Name of the form for    

                   mail)	

newDoc.SendTo = doc.From(0)

newDoc.Subject = (The subject you 

                      want to give )

    newDoc.Body = (Body of the mail)    

Call newDoc.Send( False )

End If

Hope it will work.

Subject: Auto Responder for Email System

Thankyou Basu, Your code has worked… Now, what is happening, the agent is working, but I am still getting the mail in my mailbox… and I have to delete them manually. Can it be possible, that the mail should get deleted automatically or it should not even come to in my mailbox.