查看接口数据库的 代理 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