jmail.Close()
由于采用邮件服务器的不同，发送邮件接收人的不同，以及邮件标题和内容的不同，综合这些经常需要变化的值，自定义如下的函数用来完成Jmail发送邮件的功能。
Jmail邮件发送的函数
<% Function Send_Email(smtpHost,smtpUser,smtpPass,mailTo,FromName,subject,content) Set jmail = Server.CreateObject("JMAIL.Message") jmail.silent = true jmail.logging = true jmail.Charset = "gb2312" jmail.ContentType = "text/html" jmail.AddRecipient mailTo jmail.From = smtpUser jmail.FromName = FromName jmail.Subject = subject jmail.Body = content jmail.Priority = 1 jmail.MailServerUserName = smtpUser jmail.MailServerPassword = smtpPass jmail.Send(smtpHost) jmail.Close() response.write("邮件发送成功") End Function %> |
其中Send_Email表示自定义的函数名称
参数smtpHost表示邮件服务器地址
参数smtpUser表示发信验证所需的登录帐户
参数smtpPass表示发信验证所需的登录密码
参数mailTo表示邮件收件人的E-Mail地址
参数FromName表示邮件发件人的名称
而参数subject和content则分别表示邮件的标题和正文内容
通过如下方法可应用该函数：
Call Send_EMail("smtp.126.com","dw8asp@126.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")
或者有个人邮局的可使用
Call Send_EMail("mail.cnbruce.com","root@cnbruce.com","******","cnbruce@msn.com","cnbruce","标题","邮件正文内容")
jmail组件下载地址：//www.jb51.net/softs/26125.html