Jmail4.4问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 23:11:43
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtp.sina.com.cn"
JMail.Sender = "yiyayoo1021@sina.com"
JMail.Subject = "您的登录密码"
JMail.AddRecipient(Rt.Fields.Item("email").Value)
JMail.Body = "尊敬的用户您好，首先感谢您使用我们的服务！." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的用户名是：" &(Rt.Fields.Item("name").Value) & vbCrLf
JMail.Body = JMail.Body & "您的注册邮箱是：" &(Rt.Fields.Item("email").Value) & vbCrLf
JMail.Body = JMail.Body & "您的登录密码是：" &(Rt.Fields.Item("password").Value) & vbCrLf
JMail.Body = JMail.Body & "请妥善保管您的密码,谢谢您使用本系统。" & vbCrLf
JMail.Body = JMail.Body & "祝您天天愉悦" & vbCrLf
JMail.Body = JMail.Body & "楼友网站"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute()
这段代码，我写的有问题

4.4??
set Jmail= Server.CreateObject("JMAIL.Message")
应该是这个了。
再给你一个我自己用的代码吧：
sub SendMail(title,content,mfrom,mto,username,password,fromname,smtp)
set Jmail= Server.CreateObject("JMAIL.Message")
Jmail.silent = true
Jmail.logging = true
Jmail.Charset = "UTF-8"
Jmail.ContentType = "text/html"
mtoArr=split(mto,";")
mtoMax=Ubound(mtoArr)
if mtoArr(mtoMax)="" then
mtoMax=mtoMax-1
end if
for i=0 to mtoMax
jmail.AddRecipient mtoArr(i)
next
Jmail.From = mfrom
Jmail.FromName=fromname
Jmail.MailServerUserName = username
Jmail.MailServerPassword = password
Jmail.Subject = title
Jmail.Body = content
Jmail.Priority = 1
Jmail.Send(smtp)
Jmail.Close()
end sub
百分百能用的。
调试的时候要一步一步来，只使用这个函数来进行试发，没有问题后再加入数据库数据的调用。