用EasyMailObject组件处理Exchange邮件源代码(6)
2018-09-06 11:01
在ASP中用EasyMailObject处理Exchange邮件源代码---发送邮件的界面(sendmail1.asp)
<%@ LANGUAGE=VBSCRIPT %>
<%
*************************************
这个文件是发送邮件或回复邮件的界面
作者：awayeah
*************************************
取得回信地址
replyaddr=Request.QueryString(addr)
取得要回邮件的主题
replysubj=replace(Request.QueryString(subject),_,space(1))
%>
<script language=vbscript>
sub CmdSubmit_onClick()
if trim(frmsendmail.receive1.value)= then
alert (尚未输入收件人地址，请输入!)
frmsendmail.receive1.focus
else
frmsendmail.submit
end if
end sub
</script>
<html>
<head>
<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>发邮件</title>
</head>
<body bgcolor=#008080 text=#00FFFF>
<p 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=92>
<p align=right><b>发 件 人</b></p>
</td>
<td width=347><input type=text name=from size=40></td>
</tr>
<tr>
<td width=92><b>发件人邮箱</b></td>
<td width=347><input type=text name=fromaddr size=40></td>
</tr>
</table>
<table border=1 width=455 height=56 bgcolor=#000080>
<tr>
<td width=52 height=23>
<p align=center><b>收件人</b></p>
</td>
<td width=387 height=23>
<p align=left><input type=text name=receive1 value=<%=replyaddr%> size=40></p>
</td>
</tr>
<tr>
<td width=52 height=23>
<p align=center><b>主 题</b></p>
</td>
<td width=387 height=23>
<p align=left><input type=text name=subject value=<%=replysubj%> size=40></p>
</td>
</tr>
文章标题：用EasyMailObject组件处理Exchange邮件源代码(6)
文章链接：http://soscw.com/essay/8949.html