JMail组件在线发信的使用

踏浪行歌

代码开始

Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Logging = False
JMail.silent = True
JMail.Charset = "gb2312"
JMail.From = "test@bigchina.com.cn" '发送者地址
JMail.FromName = "管理员" '发送者姓名
JMail.Subject = "注册成功信" '邮件主题
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.MailServerUserName = "test@bigchina.com.cn" '身份验证的用户名
JMail.MailServerPassword = "test" '身份验证的密码
JMail.AddRecipient("xuechu@tom.com") '加入收件人
'邮件内容 JMail.Body = "test"
SendMail = JMail.Send("218.16.120.145")'邮局服务器IP地址
JMail.Close()
Set JMail = Nothing


代码结束