标题:邮件发送程序,我想跳楼......
只看楼主
sdgjsddd
Rank: 1
等 级:新手上路
帖 子:199
专家分:0
注 册:2007-6-14
 问题点数:0 回复次数:6 
邮件发送程序,我想跳楼......
请看代码:
<%
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "yb@dgemail.com" ''输入smtp服务器验证登陆名 (邮局中任何一个用户的Email地址)
msg.MailServerPassword = "" ''输入smtp服务器验证密码 (用户Email帐号对应的密码)
msg.From ="yb@dgemail.com"' Request.Form("email") ''发件人Email
msg.FromName = "11"'Request.Form("name") ''发件人姓名
msg.AddRecipient "yb@dgemail.com" ''收件人Email
msg.Subject = "信件主题"'Request.Form("subject") ''信件主题
msg.Body = "正文"'Request.Form("body") ''正文
'msg.addattachment(server.mappath("new.txt"))
msg.Send ("http://mail.dgemail.com") ''smtp服务器地址(企业邮局地址)
set msg = nothing
response.write("发送成功!")
%>
我下载了一个jmail.dll组件,并注册了
可运行这段代码,邮件怎么都发不出去,对这个问题,我真的想发疯,我想请问一下,对于邮件发送和接收,除了安装iis的SMTP和注册jmail组件外,还需要哪些处理,才能让上面的代码生效,将邮件正常发出???或是代码有问题????还请一定指教指教
搜索更多相关主题的帖子: msg 跳楼 服务器 邮件 
2007-09-23 11:53
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
msg.Send ("http://mail.dgemail.com") ''smtp服务器地址(企业邮局地址)

我很怀疑这个写法。
按理说smtp和http应该无关的。
2007-09-23 12:18
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
得分:0 
楼主换用sohu的邮箱试试,其他的邮箱我试过,好象不能把邮件发出去,可能是有些功能给禁用的原因。
企业邮箱没有测试过,我用过126、163、tom、gmail、hotmail等等,楼主可以多测试一些其他邮箱,看看哪个合适。
2007-09-23 12:58
sdgjsddd
Rank: 1
等 级:新手上路
帖 子:199
专家分:0
注 册:2007-6-14
得分:0 
是不是指定哪个邮件服务器,就必须用哪个邮箱???
如:我的邮件服务器指定的是mail.163.com
而发件人的邮箱地址是sdgjsddd@sohu.com
收件人的邮箱地址是sdgjsddd@126.com
是不是这样不行?
2007-09-23 13:46
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 

VB的.可以参考参考..

Private Sub Form_Load()
Dim JMail As New JMail.Message

Dim i As Long, j As Long

Dim strHtml As String

JMail.Charset = "gb2312"

'来自
JMail.From = "purana@126.com"
JMail.FromName = "purana"
'主题
JMail.Subject = "test"
'验证用户名
JMail.MailServerUserName = "purana@126.com"
'验证密码
JMail.MailServerPassWord = "xxxxx"
JMail.Priority = 3

strHtml = "<html><head></head><body>test</body></html>"

JMail.HTMLBody = strHtml

'JMail.AddAttachment ("e:\test.xls") '添加附件

'发送到
JMail.AddRecipient ("purana@163.com")

'服务器主机
JMail.Send ("smtp.126.com")
JMail.Close
Set JMail = Nothing
End Sub


我的msn: myfend@
2007-09-23 13:56
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
得分:0 

163邮箱连接服务器名 smtp.163.com
一般Jmail发送的邮箱服务器地址都是以 smtp 做二级域名的


[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2007-09-23 14:07
天涯听雨
Rank: 2
来 自:东莞
等 级:论坛游民
威 望:4
帖 子:497
专家分:64
注 册:2007-8-25
得分:0 

smtpmail="qcfy2005@163.com" '邮件发送地址
mailaddress="qcfy2005@163.com" '接收用户邮件地址
mailtopic="用户名注册成功" '邮件标题

body="邮件发送成功" '邮件内容

smtp="smtp.163.com" '邮件发送服务器
MailServerUserName="qcfy2005" '邮件发送服务器用户名
MailServerPassword="*********" '邮件发送服务器密码

'进行上面的参数赋值就可以,下面的不用动

on error resume next

Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.AddRecipient mailaddress
JMail.Subject = mailtopic
JMail.Body = body
JMail.From = smtpmail
JMail.MailServerUserName = MailServerUserName
JMail.MailServerPassword = MailServerPassword
JMail.Send smtp
Set JMail=nothing

if Err then
response.write"邮件发送失败,出错原因如下:<br>"&Err.Description&""
else
response.write"注册成功<br>用户信息已经发送到您的邮箱"
end if

[此贴子已经被作者于2007-9-24 14:32:26编辑过]


从明天起做幸福的人,喂马劈柴周游世界!
2007-09-24 14:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-172252-1-1.html




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

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