在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)

2016-01-29 20:20 6 1 收藏

在ASP中用EasyMailObject组件处理Exchange邮件源代码(6),在ASP中用EasyMailObject组件处理Exchange邮件源代码(6)

【 tulaoshi.com - ASP 】

发送邮件的界面(sendmail1.asp)
<%@ LANGUAGE="VBSCRIPT" %
<%
'*************************************

'这个文件是发送邮件或回复邮件的界面
'作者:awayeah
'邮箱:awayeah@163.net

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

'*************************************


'取得回信地址
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/asp/)

来源:http://www.tulaoshi.com/n/20160129/1511020.html

延伸阅读
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---删除邮件时调用的文件(mail_prc.asp) <%@ Language=VBScript % <% '************************************* '这个文件是删除邮件时调用的 '作者:awayeah '邮箱:awayeah@163.net '************************************* dim cc,cc1,sep,dd '取得邮件总数 msgcount = s...
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sendmail.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来发送邮件 '作者:awayeah '邮箱:awayeah@163.net '************************************* if session("straccount")="" or session(&...
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---保存附件(saveatt.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来下载附件 '作者:awayeah '邮箱:awayeah@163.net '************************************* Dim fso, tempfile Set fso = CreateObject("Scripting.FileS...
标签: ASP
  在ASP中用EasyMailObject处理Exchange邮件源代码---补充说明 这些代码是针对Microsoft Exchange Server 5.5开发的,对服务器不一定可用,我在Imail 7.04上就用不了,可能是因为两个服务器对邮件的处理有点不同,譬如在Exchange上每个邮件都有一个唯一的ID,是不变的。但在Imail上就不一样了,它的邮件ID是可变的,譬如你有20封邮件,它...
标签: ASP
  从网上兴致冲冲地下载了ASP源代码,准备学习研究的时候.一打开文件,天书般的加密代码.很让人郁闷吧 :( 在网上是找到了解密的方法,得一个文件挨一个文件地打开,复制,粘贴,解密,再复制,再粘贴,再保存...... 如果一个ASP程序有几百个文件??? 解决办法来了.. decode.asp <% @Language="JavaScript" % <% /*  *-----------...

经验教程

861

收藏

92
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部