邮件发送程序,我想跳楼...... - 编程论坛

#2

multiple19022007-09-23 12:18

msg.Send ("http://mail.dgemail.com") ''smtp服务器地址（企业邮局地址）

我很怀疑这个写法。
按理说smtp和http应该无关的。

#3

madpbpl2007-09-23 12:58

楼主换用sohu的邮箱试试，其他的邮箱我试过，好象不能把邮件发出去，可能是有些功能给禁用的原因。
企业邮箱没有测试过，我用过126、163、tom、gmail、hotmail等等，楼主可以多测试一些其他邮箱，看看哪个合适。

#4

sdgjsddd2007-09-23 13:46

是不是指定哪个邮件服务器,就必须用哪个邮箱???
如:我的邮件服务器指定的是mail.163.com
而发件人的邮箱地址是sdgjsddd@sohu.com
收件人的邮箱地址是sdgjsddd@126.com
是不是这样不行?

#5

purana2007-09-23 13:56

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

#6

hmhz2007-09-23 14:07

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

#7

天涯听雨2007-09-24 14:31

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编辑过]