在ASP中用EasyMailObject组件处理Exchange邮件源代码(6),在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)
【 tulaoshi.com - ASP 】
发送邮件的界面(sendmail1.asp)'这个文件是发送邮件或回复邮件的界面
'作者:awayeah
'邮箱:awayeah@163.net
'*************************************
'取得回信地址
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"
<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="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
<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容</b
<p </td
<td width="92%" height="178"<textarea rows="10" name="bodytext" value="<%=bodytext%" cols="55"</textarea</td
</tr
</table
</td
<tr <td width="52"
<p align="center"<b附 件</b</p
</td <td width="387"<input type="file" name="att" size="20"</td</tr
</table
<p align="center"<input type="button" value="发送" name="cmdSubmit" <input type="reset" value="全部重写" name="B2"</p
</form
</div
</body
</html
来源:http://www.tulaoshi.com/n/20160129/1511020.html
看过《在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)》的人还看了以下文章 更多>>