用EasyMailObject组件处理Exchange邮件源代码(6)
2016-01-29 17:41
用EasyMailObject组件处理Exchange邮件源代码(6),用EasyMailObject组件处理Exchange邮件源代码(6)
<%@ LANGUAGE="VBSCRIPT" %
<%
'*************************************
'这个文件是发送邮件或回复邮件的界面
'作者：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" heigh
