Handling Exchange Message Source code---the interface for sending mail in ASP easymailobject (sendmail1.asp)
<%@ language= "VBSCRIPT"%>
<%
'*************************************
' This file is the interface for sending or replying to messages
' Author: Awayeah
' E-mail: awayeah@163.net
'*************************************
' Get the return address
Replyaddr=request.querystring ("addr")
' Get the subject of the message you want to return
Replysubj=replace (Request.QueryString ("subject"), "_", Space (1))
%>
<script language= "VBScript" >
Sub Cmdsubmit_onclick ()
If trim (frmsendmail.receive1.value) = "" Then
Alert ("You have not entered the recipient address, please enter!")
Frmsendmail.receive1.focus
Else
Frmsendmail.submit
End If
End Sub
</script>
<meta http-equiv= "Content-language" content= "ZH-CN" >
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<meta name= "generator" content= "Microsoft FrontPage 4.0" >
<meta name= "ProgId" content= "FrontPage.Editor.Document" >
<title> Email </title>
<body bgcolor= "#008080" text= "#00FFFF" >
<div span=1 align=center>
<form method= "POST" action= "p_sendmail.asp" name= "Frmsendmail" >
<table border= "1" width= "455" cellspacing= "1" bgcolor= "#800080" >
<tr>
<TD width= ">"
<p align= "right" ><b> sender </b></p>
</td>
<TD width= "347" ><input type= "text" Name= "from" size= "></td>"
</tr>
<tr>
<TD width= ><b> Sender's mailbox </b></td>
<TD width= "347" ><input type= "text" name= "fromaddr" size= "></td>"
</tr>
</table>
<table border= "1" width= "455" height= "a" bgcolor= "#000080" >
<tr>
<TD width= "height=" >
<p align= "Center" ><b> recipient </b></p>
</td>
<TD width= "387" height= ">"
<p align= "left" ><input type= "text" name= "receive1" value= "<%=replyaddr%>" size= "></p>"
</td>
</tr>
<tr>
<TD width= "height=" >
<p align= "center" ><b> Theme </b></p>
</td>
<TD width= "387" height= ">"
<p align= "left" ><input type= "text" name= "subject" value= "<%=replysubj%>" size= "></p>"
</td>
</tr>
<tr>
<TD width= "445" colspan= "2" height= "1" >
<table border= "0" width= "100%" height= "184" cellspacing= "0" cellpadding= "0" >
<tr>
<TD width= "8%" height= "178" >
<p align= "center" ><b> </b>
<p align= "center" >
<p align= "center" ><b> Rong </b>
<p> </td>
<TD width= "92%" height= "178" ><textarea rows= "ten" name= "BodyText" value= "<%=bodytext%>" cols= ">" </textarea></td>
</tr>
</table>
</td>
<tr> <td width= ">"
<p align= "center" ><b> Accessories </b></p>
</td> <td width= "387" ><input type= "file" Name= "att" size= "></td></tr>"
</table>
<p align= "center" ><input type= "button" value= "Send" Name= "Cmdsubmit" > <input type= "reset" value= "Rewrite All" Name= "B2" ></p>
</form>
</div>
</body>
