请各位一起讨论一个NOTES代理的有关问题

请各位一起讨论一个NOTES代理的问题。
在网上找了几天，主要想用NOTES做一个代理，主要实现以下功能。
例如在表单AA里有一个时间域，叫BBDATE，现在想做一个代理实现的功能是当当前时间减去BBDATE等于或者大于四小时且表单中某个记录状态的域BSTATE为“wait”时，由系统自动将发送一个邮件给一个人例如叫“张三”的人。
问题：
1：代理的代码应该如何写
2：代理具体的操作步骤，例如首先点击【新建代理】－》【输入代理名称】－》》》
3：假如代理在调试时能够通过，在运行时不能按时间运行，则问题应该怎么处理？
（就假设这是一个新装的系统）
我相信这应该是广大新手都想知道的问题，请各位高手帮帮忙。
谢谢

------解决方案--------------------
小桥mm不用生太大的气嘛，呵呵

dim strSearch as string
dim docCol as notesdocumentcollection
dim doc as notesdocument
dim db as notesdatabase
dim ss as new notessession
dim varTemp as variant

set db = ss.currentdatabase

strSearch = "Form = " "你的form " " & @Today > @Adjust(BBDATE;0;0;0;4;0;0) & BSTATE = " "wait " " "

set docCol = db.Search(strSearch, nothing, 0)

if docCol.count <> 0 then
set doc = docCol.Getfirstdocument
while not (doc is nothing)
varTemp = evaluate(|@MailSend( "张三 " ; " " ; " " ; "Notice " ; "something need to tell you!!! " ; " " ; [IncludeDocLink]|,doc)
|)
end while
end if

msgbox "写完，收工 "