很遗憾,该服务器不支持 jmail 组件!,Jmail组件不支持SSL，ASPEmail组件来搞定

Dim objMail

'初始化aspEmail组件

Set objMail = Server.CreateObject("Persits.MailSender")

'设定SMTP模式为SSL，端口号为465

objMail.SSL=True

objMail.Port=465

'设置邮件编码格式为UTF-8，MIME编码为Quoted-Prontable，必须有，否则中文乱码

objMail.CharSet="UTF-8"

objMail.ContentTransferEncoding="Quoted-Prontable"

'设定邮箱的smtp服务器地址，如smtp.abc.com，使用时要替换为自己的地址

objMail.Host = "smtp.abc.com"

'设定发送者的邮箱地址

objMail.From = "sender@abc.com"

'设定发送者显示的名称，如不设置，则显示发送者邮箱地址，要编码为utf-8，否则中文乱码

objMail.FromName = objMail.EncodeHeader(Sender,"utf-8")

'添加接收者的地址

objMail.AddAddress "receiver@abc.com"

'邮件抄送地址，可选

objMail.AddCC "cc@abc.com"

'邮件密送地址，可选

objMail.AddBcc "bcc@abc.com"

'添加回复地址，可选

objMail.AddReplyTo "reply@abc.com"

'设置邮件标题，要编码为utf-8，否则中文乱码

objMail.Subject = objMail.EncodeHeader(Subject,"utf-8")

'邮件内容为html，根据实际情况设置，默认false

objMail.IsHTML = true

'邮件内容

objMail.Body = "

'smtp身份认证信息

objMail.Username="sender@abc.com"

objMail.Password="发送者的密码"

'发送邮件

objMail.Send

'完成后释放资源

Set objMail=nothing