sendone.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->

<%
	Dim objDB,objRS,strSQL
	Dim MessageID
	MessageID	=	Request.QueryString("IntID")
	
	Dim Message
	Dim objRSAttach
	Dim AccountID	
	AccountID	=	Session("AccountID")
	Dim FromAddr,FromName,ToAddr,Subject,Body,Attach,Path,BaseFold
	BaseFold	=	server.MapPath("..\..\Upload\OA\Mail\")	
	
	Set objDB = server.CreateObject("ADODB.Connection")
	OpenDB objDB
	Set objRS	= server.CreateObject("ADODB.Recordset")
		
	Set Message		= server.CreateObject("JMail.Message")
	
	
	strSQL = "select * from t_OA_Message Where ID=" & MessageID
	objRS.Open strSQL,objDB,1,3
	If	Not objrs.EOF  Then
		FromAddr = objrs.Fields("FromAddr")
		FromName = objrs.Fields("FromName")
		ToAddr	 = objrs.Fields("ToAddr")
		Subject	 = objrs.Fields("Subject")
		Body	 = objrs.Fields("Body")
		
		strSQL = "Select ID,ExtName,BasePath From t_OA_Message_Attach Where IsValid=1 And MessageID=" & objrs.Fields("ID")
		Set objRSAttach	=	objDB.Execute(strSQL)	'---------------------------------加附件
		Do While Not objRSAttach.EOF
			path	=	BaseFold	& "\"	& AccountID	&	"\"
			Attach	=	path	&	objRSAttach.Fields("BasePath") & "\"	& objRSAttach.Fields("ID") & "." & objRSAttach.Fields("ExtName")
			Call Message.AddAttachment(Attach,True,"text/plain")
			objRSAttach.MoveNext()
		Loop	

	'	Message.ContentType = "text/html"
		Message.From			=	FromAddr
		Message.FromName		=	"FromName"
		Message.AddRecipient ToAddr
		Message.Subject			=	Subject
		Message.Body			=	Body

		Message.Send("192.168.100.101")
		strSQL = "Update t_OA_Message Set BoxID=4,BoxIDBak=4,SendTime='"& now() & "' Where ID=" & objrs.Fields("ID")
		objDB.Execute(strSQL)
	End If
%>