domino代理运行过程中，在WEB页面上显示信息

 

查看接口数据库的 代理 ApplyNewFAXUser 里的代码

 

 

  Print |<script language="">|
  Print |{alert("申请已提交成功，预计在两个工作日内处理完成您的申请内容！");|
  Print |close(0);}|
  Print |</script>|

全文如下：

Sub Initialize
 Msgbox("ApplyNewFAXUser begins...")
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim maildoc As NotesDocument
 Dim ritem As NotesRichTextItem
 
 Set db = s.CurrentDatabase
 Set doc = s.DocumentContext
 
 Dim recipients( 1 To 3 ) As String
 recipients( 1 ) = "市电子政务办应用推广科邮箱" 
 recipients( 2 ) = "翟文辉/应用推广科/市电子政务办/东莞市"
 recipients( 3 ) = "吴敏珊/应用推广科/市电子政务办/东莞市"
 Set maildoc = New NotesDocument(db)
 maildoc.Sendto = recipients
 maildoc.subject = doc.OAUserName(0)+"   向您发来一份传真接收号码申请表！"
 maildoc.form = "BookMark"
 Set ritem = New NotesRichTextItem(maildoc,"Body")
 Call ritem.AppendDocLink(doc,"点击此处打开文档!")
 doc.form = "ApplyNewFAX"
 Call doc.Save(True,True)
 Call maildoc.Send(False) 
 ev = Evaluate("@ClientType",doc)
 If ev(0) = "Web" Then
  Print |<script language="">|
  Print |{alert("申请已提交成功，预计在两个工作日内处理完成您的申请内容！");|
  Print |close(0);}|
  Print |</script>|
 Else
  Msgbox "申请已提交成功，预计在两个工作日内处理完成您的申请的内容！"
  Dim w As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = w.CurrentDocument
  Call uidoc.Close
 End If
End Sub