After mail arrive agent stopped working

Hi All,

I need your help in a small problem.

I have a “After mail arrive agent” which was working properly one week back but i don’t know why these days it is taking too much time(around 10-12hours) to run on the mails coming to the mail in db.

Underlying is the agent code:-

Sub Initialize

Dim Sess As New NotesSession

Dim Coll As NotesDocumentCollection

Dim Doc As NotesDocument

Dim n As Integer

Dim unprocessedDocView As NotesView

Dim cdb As NotesDatabase



Set cdB = sess.currentdatabase

’ Set unprocessedDocView = cdB.GetView ( “UnprocessedMail” )

’ Set Doc = unprocessedDocView.GetFirstDocument

Set Coll = cdb.UnprocessedDocuments

Print "Count : " + Cstr(Coll.Count)

For n = 1 To Coll.Count

	

	Set Doc = Coll.GetNthDocument(n)

	Call Sess.UpdateProcessedDoc( Doc )

	Call ConvertToCall(Doc)

	Call MailSend (doc )

	

Next

End Sub

ConvertToCall and MailSend are the two scripts used to filter the php string coming from the web and to send the mail.

I checked the same agent by running it manually .It is working fine.Anybody has any idea regarding this.

Thanks in advance

Amit N