是c/s,不是代理实现的,只是个按钮操作,我把代码贴出来吧
表单上的一个click事件:
rem con.disconnect
Dim workspace As New notesuiworkspace
Dim session As New notessession
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim item As notesitem
Dim db As notesdatabase
Dim newdoc As notesdocument
Dim rtitem As notesrichtextitem
Set uidoc=workspace.currentdocument
Set doc=uidoc.document
Set db=session.currentdatabase
Set newdoc=New notesdocument(db)
Set rtitem=New notesrichtextitem(newdoc,"body")
Call rtitem.appenddoclink(doc,"请示审核")
newdoc.subject="请示审核!"
Call rtitem.appendtext("请示审核")
newdoc.sendto=name1
newdoc.send(False)
Call
doc.save(True,False)
d没有读者域,其中name1就是个邮件地址了