大家来帮帮我呀，谢谢了。简单的JMAIL问题！

[yanweidong1030]

<%
on error resume next
dim JMail,sysmail
sele=Request.form("select")
cname=Request.form("name")
sex=Request.form("sex")
age=Request.form("age")
email=Request.form("email")
address=Request.form("address")
country=Request.form("country")
tel=Request.form("tel")
education=Request.form("education")
yeargra=Request.form("yeargra")
college=Request.form("college")
major=Request.form("major")
occupation=Request.form("occupation")
experience=Request.form("experience")
relatives=Request.form("relatives")
english_reading=Request.form("english_reading")
english_writing=Request.form("english_writing")
english_speaking=Request.form("english_speaking")
French_reading=Request.form("French_reading")
French_writing=Request.form("French_writing")
French_speaking=Request.form("French_speaking")
otherinfo=Request.form("otherinfo")
name2=Request.form("name2")
age2=Request.form("age2")
degree2=Request.form("degree2")
backg2=Request.form("backg2")


mailbody=sele&"<br>"&cname&"<br>"&sex&"<br>"&age&"<br>"&email&"<br>"&address&"<br>"&country&"<br>"&tel&"<br>"&education&"<br>"&yeargra&"<br>"&college&"<br>"&major&"<br>"&occpation&"<br>"&experience&"<br>"&relatives&"<br>"&english_reading&"<br>"&english_writing&"<br>"&english_speaking&"<br>"&french_reading&"<br>"&french_writing&"<br>"&french_speaking&"<br>"&otherinfo&"<br>"&name2&"<br>"&age2&"<br>"°ree2&"<br>"&backg2
sysmail="[e-mail]"

Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress="smtp.vip.sina.com"
JMail.Sender=email
JMail.Subject=sele
JMail.Body=mailbody
JMail.AddRecipient(sysmail)
JMail.Priority=1
JMail.MailServerUserName = "[e-mail]" '您的邮件服务器登录名
JMail.MailServerPassword = "weidong1030" '登录密码
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if

%><%=SendMail%>
————————————————————————————————————
提示“The message was undeliverable. All servers failed to receive the message”

[yanweidong1030]

SINA当然支持了呀。

[yanweidong1030]

将JMail.AddRecipient(sysmail)改为JMail.AddRecipient sysmail

还是有错误。

[xcgh]

Function emailsend(Email,Topic,MailBody)
Dim JMail
'on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = Email '改为你的邮箱
JMail.ReplyTo = Email '改为你的邮箱
JMail.SenderName = "主题"
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 1
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Close
Set JMail = Nothing
End Function
好使的函数

[xcgh]

Function SendEasyMail(Email,Topic,MailBody,TextBody)

'on error resume next
dim Mailsend
set Mailsend = Server.CreateObject("easymail.Mailsend")
Dim Tid,Un
Un = "[e-mail]" '您的邮件服务器登录名，不需要密码

Dim EI
Set EI = server.CreateObject("easymail.Users")
Tid = EI.Login(un)
Set EI = Nothing
Mailsend.createnew Un,Tid '邮箱账号,临时ID
Mailsend.CharSet = "gb2312" '编码
Mailsend.MailName = "LeadBBS" '发件人名

Mailsend.EM_BackAddress = "" '邮件回复地址
Mailsend.EM_Bcc = "" '暗送地址
Mailsend.EM_Cc = "" '抄送地址
Mailsend.EM_OrMailName = "" '原邮件名
Mailsend.EM_Priority = "Normal" '邮件重要度
Mailsend.EM_ReadBack = false '是否读取确认,挂号信(限本系统内用户)
Mailsend.EM_SignNo = -1 '使用签名的序号

Mailsend.EM_Subject = Topic '主题
Mailsend.EM_Text = TextBody '内容
Mailsend.EM_HTML_Text = MailBody 'HTML邮件内容
Mailsend.useRichEditer = true '发送的是否为HTML格式邮件

Mailsend.EM_TimerSend = "" '定时发送的时间
Mailsend.EM_To = Email '收件人地址
Mailsend.ForwardAttString = "" '转发邮件时的原附件

Mailsend.AddFromAttFileString = "" '添加自网络存储中的文件名

Mailsend.SystemMessage = false '是否是系统邮件

Mailsend.SendBackup = false '是否保存发送邮件

If Mailsend.Send() = false Then
SendEasyMail = 0
Else
SendEasyMail = 1
End If
Set Mailsend = nothing

End Function
奉送

[xcgh]

Function SendCDOMail(Email,Topic,TextBody)

dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="[e-mail]" '改为你的邮箱
objCDOMail.To = Email
objCDOMail.Subject = Topic

objCDOMail.Body = TextBody

objCDOMail.Send
Set objCDOMail = Nothing
SendCDOMail = 1

End Function
奉送

[tigerwen01]

你要发送的信息没有接受方的email地址，所以无法投递或你用的邮件服务器（smtp.vip.sina.com）不支持邮件发送服务。

[tigerwen01]

或将JMail.AddRecipient(sysmail)改为JMail.AddRecipient sysmail

[fffddd]

找到一个组件.比jmail简单得多.不用安装.

http://www.77tt.com/soft/show.asp?id=37