<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>
<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>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货