<html>
<head>
<script language='vbscript'>
sub send(sendto,pwd)
'sendto:发送对象
'pwd:密码
dim s 
Dim db
Dim doc   
dim person
dim mm 
person=cstr(sendto)+"/Fynet/cn"
mm=cstr(pwd)
set s=createobject("lotus.notessession")
call s. Initialize(mm)

set db=s.getdatabase("server1/foshan/fynet/cn","cj.nsf")

if db.isopen then
set doc=db.CreateDocument
call doc.ReplaceItemValue("form","Memo")
call doc.ReplaceItemValue("subject","内网数据已审核,请领导签发!")
call doc.send(false,person)
set doc=nothing
set db=nothing
set s=nothing
else
msgbox "提交审批失败,请检查发送对象或密码是否正确?"
end ifend sub
</script>
</head>
<body>
<input type=button name='b1' value='提交审批' onclick='call send(姓名,密码)'>
</body>
</html>