Hi need all your help to write reminder agent

Hi all can anyone help me.I want to write an reminder agent.It will run daily in the morning.This agent send mail to the person.

field name = fd_ActionsDueDate (This is date field)

field name = fd_AssignedTo (This is names field whom i want to send mail)

view = sushantview

form = sushantform

Subject: Hi need all your help to write reminder agent

fd_AssignedTo;SELECT (Form=“sushantform”)& @Today = @Date(fd_ActionsDueDate);

@MailSend(fd_AssignedTo;“”;“”;“Follow this link”;“Please click on following link to open Reminder document”;“”;[IncludeDoclink])

for more chat tejdixit@gmail.com

Thanks

Tej Dixit

Subject: Hi need all your help to write reminder agent

Hi,

Not tested but try something like that.

Set view = db.GetView( “sushantview” )
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
If Today > doc.fd_ActionsDueDate(0) Then

Dim memo as New NotesDocument( db )
memo.Form = "Memo"
memo.SendTo = fd_AssignedTo(0)
memo.Subject = "Reminder"

memo.Body = "Reminder Body"
Call memo.Send( False )

End If
Set doc = view.GetNextDocument(doc)
Wend

Konrad