OA系统中的一个大问题，大难题，

Question

可是，这个文件是经过部门领导、公司领导审核过后，才能发出去的，通过MAIL组件实现发送，
在OA系统中怎么写啊？各位可有样例，请帮小妹一把，急急！

Answer 1

set rs=server.createobject("adodb.recordset")
sql="select * from mail where id="+cstr(id)
rs.Open  sql,conn,1,1
Set MailObject = Server.CreateObject("CDONTS.NewMail")
Mailobject.TO = tomail 'Mail to.... enclose email address in the bracket
Mailobject.From = usemail ' 'Mail from
Mailobject.Subject = subject ' subject
Mailobject.Body = body ' message to send
Mailobject.send ' send 
  response.write "邮件已经成功发送给：<b>"&rs("email")&"</b><Br>"

Answer 2

以上是要用到SQL，是不是LS和SQL的结合？发送给外部网

Answer 3

用的asp，你当然可以不同sql，用iis发布代码
Set MailObject = Server.CreateObject("CDONTS.NewMail")
Mailobject.TO = "[email protected]" 'Mail to.... enclose email address in the bracket
Mailobject.From = "[email protected]" ' 'Mail from
Mailobject.Subject = "test" ' subject
Mailobject.Body = "test" ' message to send
Mailobject.send ' send 
  response.write "邮件已经成功发送给：<b>"&rs("email")&"</b><Br>"

Answer 4

用xmlhttp可以将关系数据库中相关数据表数据借助ado 2.5以上的recordset对象的xml存储支持.通过xml格式发送.在数据编码和数据结构处理上避免了大量的处理.而且数据记录的异地恢复都非常简单,支持异种数据库的传输.

Answer 5

xmhttp比较难写，而且它怎样与关系数据库联接，通过xml格式发送到异地能行吗？

Answer 6

只要你的邮件系统是对外的,并且有固定域名就可以发的,用CDO就可以了

Answer 7

发送方:
<%@ Language=VBScript @codepage=936%>
<%
Response.CharSet="gb2312"
autoid=Request.QueryString("autoid")
set fso=Server.CreateObject("Scripting.FileSystemObject")
MainXMLDocName=Server.MapPath("1_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")
MatterXMLDocName=Server.MapPath("2_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")
PictureXMLDocName=Server.MapPath("3_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")if fso.FileExists(MainXMLDocName) then
fso.DeleteFile(MainXMLDocName)
end if
if fso.FileExists(MatterXMLDocName) then
fso.DeleteFile(MatterXMLDocName)
end if
if fso.FileExists(PictureXMLDocName) then
fso.DeleteFile(PictureXMLDocName)
end if
set obj=server.CreateObject("gdcom.database")
SQL="SELECT b.zdy4,b.zdy5,a.caseno FROM zdb b,tblgaaccept a WHERE a.acceptunit=b.code AND b.kind='06' AND a.autoid='" & autoid & "'"
set rs=obj.runsqlreturnrs(SQL)
if not rs.EOF then
if trim(rs("zdy4"))<>"127.0.0.1" then
SendTargetUrl="HTTP://" & trim(rs("zdy4")) & ":" & trim(rs("zdy5")) & "/ReceiveData/gd.xml.receive.asp"
else
Response.Write "<script>alert('不能使用环回地址(127.0.0.1)发送!')</script>"
end if
end if
rs.close
if SendTargetUrl<>"" then
SQL="SELECT * FROM tblgaaccept WHERE autoid='" & trim(autoid) & "'"
set rs=obj.RunSQLReturnRS(SQL)
rs.Save MainXMLDocName,1
rs.Close

SQL="SELECT * FROM tblmatterbak WHERE "
SQL=SQL & "(regtbl='J" & autoid & "' or regtbl='S" & autoid & "') AND orderid NOT LIKE 'U%'"
set rs = obj.RunSQLReturnRS(SQL)
rs.Save MatterXMLDocName,1
rs.Close

SQL="SELECT orderid FROM tblmatterbak WHERE "
SQL=SQL & "(regtbl='J" & autoid & "' or regtbl='S" & autoid & "') AND orderid NOT LIKE 'U%'"
SQL="SELECT * FROM samplepic WHERE kch IN(" & SQL & ")"
set rs=obj.runsqlreturnrs(SQL)
rs.Save PictureXMLDocName,1
rs.Close
set xmldoc=Server.CreateObject("MSXML2.DOMDocument")
set tmpxmldoc=Server.CreateObject("MSXML2.DOMDocument")
xmldoc.load MainXMLDocName
tmpxmldoc.load MatterXMLDocName
Set objXMLDOMNodeList=tmpxmldoc.selectNodes("/xml/*")
for each NodeItem in objXMLDOMNodeList
set copyOfNode=NodeItem.cloneNode(true)
xmldoc.documentElement.appendChild(copyOfNode)
next
tmpxmldoc.load PictureXMLDocName
Set objXMLDOMNodeList=tmpxmldoc.selectNodes("/xml/*")
for each NodeItem in objXMLDOMNodeList
set copyOfNode=NodeItem.cloneNode(true)
xmldoc.documentElement.appendChild(copyOfNode)
next
set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST",SendTargetUrl, False
'Response.Write xmldoc.xml
'Response.End
on error resume next
xmlhttp.send xmldoc.xml
if err.number<>0 then
Response.Write "<script>alert('服务器发现错误:" &  err.Description & ",请检查设定的ip地址或dns名称是否有效!'</script>"
else
xmldoc.loadXML xmlHttp.ResponseText
if xmldoc.xml<>"" then
'Response.ContentType="text/xml"
Response.Write "<script>if(parent!=null){ parent.location.reload(); } alert('委托信息发送成功!');//window.close()</script>"
'Response.write xmlHttp.responsetext
ds=obj.runsql("UPDATE tblgaaccept SET status='2',senddate=TO_DATE('" & date() & "','yyyy-mm-dd') WHERE autoid='" & autoid & "'")
else
Response.ContentType="text/html"
Response.Write "<script>parent.oDiv.innerHTML='<font color=red>发送失败,请稍后再试!</font>'</script>"
Response.write xmlHttp.responsetext
end if
end if
if fso.FileExists(MainXMLDocName) then
fso.DeleteFile(MainXMLDocName)
end if
if fso.FileExists(MatterXMLDocName) then
fso.DeleteFile(MatterXMLDocName)
end if
if fso.FileExists(PictureXMLDocName) then
fso.DeleteFile(PictureXMLDocName)
end if
end if
%>

Answer 8

接收方:
<%@ Language=VBScript CODEPAGE = 936%>
<%
'on error resume next
set fso=Server.CreateObject("Scripting.FileSystemObject")
dim XMLDocNameList(3)
XMLDocNameList(0)=Server.MapPath("1_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")
XMLDocNameList(1)=Server.MapPath("2_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")
XMLDocNameList(2)=Server.MapPath("3_" & Replace(Request.ServerVariables("REMOTE_ADDR"),".","") & Session.SessionID & ".XML")
Response.CharSet="gb2312"
for i=LBound(XMLDocNameList) to UBound(XMLDocNameList)
if fso.FileExists(XMLDocNameList(i)) then
fso.DeleteFile(XMLDocNameList(i))
end if
next
set xmldoc=Server.CreateObject("MSXML2.DOMDocument")
xmldoc.load Request
dim CopyOfNodes(6)
for i=5 to 0 step -1 
set CopyOfNodes(i)=xmldoc.documentElement.removeChild(xmldoc.documentElement.childNodes(i))
next
for i=0 to 2
set tmpNode1=xmldoc.documentElement.appendChild(CopyOfNodes(i*2))
set tmpNode2=xmldoc.documentElement.appendChild(CopyOfNodes(i*2+1))
xmldoc.save XMLDocNameList(i)
xmldoc.documentElement.removeChild(tmpNode1)
xmldoc.documentElement.removeChild(tmpNode2)
next
set rs11=Server.CreateObject("ADODB.Recordset")
set rs21=Server.CreateObject("ADODB.Recordset")
set rs31=Server.CreateObject("ADODB.Recordset")
set rs12=Server.CreateObject("ADODB.Recordset")
set rs22=Server.CreateObject("ADODB.Recordset")
set rs32=Server.CreateObject("ADODB.Recordset")
rs11.Open XMLDocNameList(0)
rs21.Open XMLDocNameList(1)
rs31.Open XMLDocNameList(2)
set obj=Server.CreateObject("GDCom.Database")
ConnString=obj.GetConnString
rs12.ActiveConnection=ConnString
rs12.Open "SELECT * FROM tblgaaccepta WHERE 1=0",,1,3
rs22.ActiveConnection=ConnString
rs22.Open "SELECT * FROM tblmatterbak WHERE 1=0",,1,3
rs32.ActiveConnection=ConnString
rs32.Open "SELECT * FROM samplepic WHERE 1=0",,1,3
if not rs11.EOF then
Response.Write "<RESULT>" & vbcrlf
while not rs11.EOF
rs12.AddNew
Response.Write "<ACCEPT_RECORD AUTOID='" & rs11("autoid") & "'>" & vbcrlf
for i=0 to rs11.Fields.count-1
rs12.Fields(i).Value=rs11.Fields(i).Value
next
rs21.Filter="(regtbl='J" & rs11("autoid") & "') OR (regtbl='S" & rs11("autoid") & "')"
while not rs21.EOF
rs22.AddNew
Response.Write chr(9) & "<ACCEPT_MATTER ORDERID='" & rs21("orderid") & "'>" & vbcrlf
for i=0 to rs21.Fields.count-1
if UCase(rs21.Fields(i).Name)="ORDERID" then
rs22.Fields(i).Value="U" & rs21.Fields(i).Value
else
rs22.Fields(i).Value=rs21.Fields(i).Value
end if
next
rs31.Filter="kch='" & rs21("orderid") & "'"
while not rs31.EOF
rs32.AddNew
Response.Write chr(9) & chr(9) & "<ACCEPT_PICTURE JLBH='" & rs31("jlbh") & "'>" & vbcrlf
for i=0 to rs31.Fields.count-1
if not IsNull(rs31.Fields(i).Value) then
if rs31.Fields(i).Type=205 then 'adLongVarBinary
'DataLength=rs32.Fields(i).DefinedSize
rs32.Fields(i).AppendChunk rs31.Fields(i).Value
else
if UCase(rs31.Fields(i).Name)="KCH" then
rs32.Fields(i).Value="U" & rs31.Fields(i).Value
else
rs32.Fields(i).Value=rs31.Fields(i).Value
end if
end if
end if
next
Response.Write chr(9) & chr(9) & "</ACCEPT_PICTURE>" & vbcrlf
rs31.MoveNext 
wend
Response.Write chr(9) & "</ACCEPT_MATTER>" & vbcrlf
rs21.MoveNext
wend
Response.Write "</ACCEPT_RECORD>" & vbcrlf
rs11.MoveNext
wend
Response.Write "</RESULT>" & vbcrlf
end if
rs12.UpdateBatch
rs22.UpdateBatch
rs32.UpdateBatch
rs11.Close
rs21.Close
rs31.Close
rs12.Close
rs22.Close
rs32.Close
set rs11=nothing
set rs21=nothing
set rs31=nothing
set rs12=nothing
set rs22=nothing
set rs32=nothing
for i=LBound(XMLDocNameList) to UBound(XMLDocNameList)
if fso.FileExists(XMLDocNameList(i)) then
fso.DeleteFile(XMLDocNameList(i))
end if
next
%>

Answer 9

你要是用lotus的话，有域名就可以直接发送

Answer 10

如果想实现一个专业、商业性的oa，excahnge是不能少的。我们不防多交流一下。

Answer 11

我用的是LOTUS/DOMINO可是发到外部网络上，可能还是要直接发送可能没用？

Answer 12

这些代码是：VBscript我看一懂，可否把它翻译成JavaScript

Answer 13

这些代码是：VBscript我没学过，可否把它翻译成JavaScript啊，那位会？