| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 804 人关注过本帖
标题:ASP+XMLHTTP跨主机调用Jmail发送邮件
只看楼主 加入收藏
redice
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:902
专家分:0
注 册:2006-12-11
结帖率:72.73%
收藏
已结贴  问题点数:20 回复次数:1 
ASP+XMLHTTP跨主机调用Jmail发送邮件
// by redice 2009.8.24
// http://www.

“ASP+XMLHTTP跨主机调用Jmail发送邮件” 所要解决的问题是在不支持Jmail组件的服务器上实现邮件的发送。
(国内大多IDC主机都是支持Jmail组件的)


实现原理其实也很简单:

(1)我们需要一台支持Jmail组件的主机,在其Web目录放置我们的“Jmail远程调用接口文件 MailApi.asp”(后附源代码), 该文件的功能是接收参数(接收者邮箱,邮件主题,邮件内容,发送者名称等信息),并调用Jmail发送邮件。 假如这个地址是:http://www.

(2)在需要发送邮件但不支持Jmail的主机上,通过XMLHTTP向“接口文件 MailApi.asp”POST邮件参数。将SendMail.asp放置于该主机的Web目录,在需要发邮件的位置调用SendMail函数即可。

存在的问题:
没有加入身份认证,在得知接口文件地址后任何人都能调用该接口发送邮件,增加了主机的压力。

附源代码:

程序代码:
<%
ASP+XMLHTTP跨主机调用Jmail发送邮件
by redice 2009.8.24
http://www. Jmail远程调用接口文件

response.Charset="gb2312"

dim receiver
dim subject
dim content
dim sendername

receiver=filter(request("receiver"))
subject=filter(request("subject"))
content=filter(request("content"))
sendername=filter(request("sendername"))
response.write receiver & "," & subject & "," & content & "," & sendername & "<br>"
if receiver="" or subject="" or content="" or sendername="" then
   response.write "邮件信息不完整!"
   response.end
end if

SendMail receiver,subject,content,sendername

---------------------------------Jmail发送电子邮件函数----------------------------
SMTP等相关信息设置

Const SenderEmail="发送者邮箱"
Const Smtp="SMTP服务器地址"
Const UserName="SMTP用户名"
Const Password="SMTP密码"

Public Function SendMail(Receiver,Subject,Content,SenderName)
dim msg
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = UserName 
msg.MailServerPassword = Password 
msg.From = SenderEmail 
msg.FromName = SenderName 
msg.AddRecipient Receiver 
msg.Subject = Subject 
msg.Body = Content 
msg.Send (Smtp) 
msg.close()
set msg = nothing
End Function

Function filter(str)
filter=replace(str,"","")
End Function

response.write "发送邮件成功!"
%>


<%
ASP+XMLHTTP跨主机调用Jmail发送邮件
by redice 2009.8.24
http://www. 邮件发送函数所在文件

response.Charset="gb2312"

Jmail远程接口文件(MailApi.asp)地址
Const MailApiUrl="根据实际情况修改"

邮件发送调用函数
function SendMail(Receiver,Subject,Content,SenderName)
  dim querystring
  querystring="receiver=" & receiver
  querystring=querystring & "&subject=" & server.urlencode(subject)
  querystring=querystring & "&content=" & server.urlencode(content)
  querystring=querystring & "&sendername=" & server.urlencode(sendername)

  response.write querystring & "<br>"
  dim xmlHttp
  set xmlHttp=Server.CreateObject("Micro"&"soft"&"."&"XML"&"HTTP")
  xmlHttp.open "post",MailApiUrl,false
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
  xmlHttp.send querystring & vbcrlf & vbcrlf
  response.write xmlHttp.responseText
end function

测试示例
SendMail "redice@,"主题","内容","redice"
%>


PS:代码中的西文单引号被过滤了,下面是打包的

http://www.

[ 本帖最后由 redice 于 2009-8-26 20:38 编辑 ]
搜索更多相关主题的帖子: Jmail XMLHTTP 
2009-08-26 20:36
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:20 
不错,Ajax确实可以这样做,不过如果发送带有附件的邮件估计不好办了。
2009-08-27 13:17
快速回复:ASP+XMLHTTP跨主机调用Jmail发送邮件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038403 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved