日期:2014-05-17  浏览次数:20846 次

代理服务器上网,如何实现发邮件呢?不是高手不要紧,找了很多帖子都没有,难道就没高手?
我有个项目是发邮件的,客户哪里是通过notes连美国代理服务器上外网的,现在要做一个发邮件的程序,从内网发邮件通过代理出去,如果不用smtp认证可以发出去的,但是很多油箱是收不到邮件的,连163都收不到(我这里用的是cdo.message),现在要求只要能通过代码方式成功把邮件发出去就行,贴出代码,运行通过,就给分!100分全给!

------解决方案--------------------
<%
dim jmail
set jmail=server.createobject( "Jmail.message ")
jmail.contenttype= "text/html " '邮件支持HTML格式
jmail.silent=true
jmail.charset= "gb2312 "
jmail.fromname= "发件人名称 " '这里是发件人名称,可以从数据库或表单中取值
jmail.from= " " '这里是发件人邮箱,可以从数据库或表单中取值,但格式一定要正确
jmail.addrecipient "收件人地址 ", "收件人姓名 "
jmail.subject= "发送邮件标题 " '该值可以从数据库或表单中取值
jmail.body= " <font color= '#ff0000 '> 邮件内容 </font> " '邮件内容
jmail.mailserverusername= " " '邮件发送服务器登录名称
jmail.mailserverpassword= "***** " '邮件发送服务器登录密码
sendok=jmail.send( "smtp.163.com ") 'smtp服务器名称
if sendok then
response.write "恭喜您,邮件发送成功 "
else
response.write "对不起,邮件发送失败,可能由于服务器登录设置配置不当造成或填写的信息有误,请确认正确后再进行发送! "
end if
%>
Jmail组件
------解决方案--------------------
如果不用smtp认证可以发出去的,但是很多油箱是收不到邮件的
--------

你改成要通过smtp认证的试试