新葡亰496net 新葡亰编程 CDONTS.NewMail 发邮件示例

CDONTS.NewMail 发邮件示例

CDONTS.NewMail 发邮件的简单示例,供大家参考,其中 From
参数对应的邮件服务器应该是不要求身份验证的才行。

有一种方法是通过微软自带的CDONTS组件发邮件,用这种方法经常会出现没有权限或是发不出去的问题。

1、JMAIL的版本是多少?
JMAIL 是免费的4.0版本

dim objNewMail
set objNewMail = server.CreateObject(“CDONTS.NewMail”)

这里给大家介绍另一种方法:

2、JMAIL 需要单独的发信服务器吗?
JMAIL 需要设置单独的发信服务器
如:set mail=server.CreateObject(“jmail.SMTPMail”)
mail.ServerAddress = “mail.domain.com”

objNewMail.From = “发送人的邮件地址”
objNewMail.To = “接收人的邮件地址”
objNewMail.Subject = “邮件主题”
objNewMail.Body = “邮件内容”
objNewMail.Send()    

图片 1<%
图片 2function SendMail(EmailAddress,Subject,Body)
图片 3    ‘参数说明:
图片 4    ‘EmailAddress    收信人地址
图片 5    ‘Subject        邮件标题
图片 6    ‘Body            邮件正文
图片 7    dim oMsg,oFields
图片 8    dim FromMail,SmtpServer,SmtpUsername,SmtpPassword
图片 9    FromMail = “” ‘发信地址
图片 10    SmtpServer = “”    ‘发信地址smtp服务器
图片 11    SmtpUsername = “”    ‘发信地址smtp服务器用户名
图片 12    SmtpPassword = “”    ‘发信地址smtp服务器密码
图片 13    on error resume next
图片 14    set oMsg = server.createobject(“CDO.Message”)
图片 15    oMsg.From = FromMail
图片 16    oMsg.To = EmailAddress
图片 17    oMsg.Subject = Subject
图片 18    oMsg.HTMLBody = Body
图片 19    set oFields = oMsg.Configuration.Fields
图片 20    oFields(” = 2
图片 21    oFields(” = SmtpServer
图片 22    oFields(” = SmtpUsername
图片 23    oFields(” = SmtpPassword
图片 24    oFields(” = 1
图片 25    oFields.Update()
图片 26    oMsg.HTMLBodyPart.Charset=”gb2312″
图片 27    oMsg.Send()
图片 28    if err.number<>0 then
图片 29        SendMail = err.Description
图片 30    else
图片 31        SendMail = “发送成功”
图片 32    end if
图片 33    set oMsg = nothing
图片 34end function
图片 35
图片 36‘使用示例:
图片 37‘SendMail “somebody@server.com”,”这里填写邮件标题”,”这里填写邮件内容”
图片 38%>

3、为什么使用jmail发信时发信失败?
最可能的原因是你指定的发信服务器需要发信认证,而你在程序中没有指定发信用户名和密码,具体的编码为:
set mail=CreateObject(“jmail.Message”)
mail.Charset =”gb2312″
mail.From =”from@hichina.com
mail.AddRecipient “to@hichina.com
mail.MailDomain=”mail.hichina.com”
mail.MailServerUserName = ” from @hichina.com”
mail.MailServerPassWord = “****”
mail.subject=”test”
mail.body= “欢迎”
‘On Error Resume Next
mail.Send(“mail.hichina.com”)
mail.close()
set mail=nothing

标签:

相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注

网站地图xml地图