asp 发送邮件

  
<%
dim jmail
mailserver="mail.163.com"    '邮局服务器地址（smtp服务器地址）
receive=request("email")              '接受反馈信息的email地址（可以是您的任何有效信箱）
mailFROM="mail@163.com"    '发邮件地址
username="mail@163.com"    '发件人邮箱地址
password="888888"    '发邮件密码

subject="主题"
body="邮件内容" '修改结束

'调用邮件发送
'群发就是 循环
'需要在web服务器上注册组件 w3JMail4Free.exe
call SendMail (subject, body, mailserver, receive, mailFROM, username,password)


Sub SendMail(subject, body, mailserver, receive, mailFROM, username,password) 
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j 
jmail.logging = true '启用邮件日志 
jmail.Charset = "GB2312" '邮件的文字编码为国标 
jmail.ContentType = "text/html" '邮件的格式为HTML格式 
jmail.AddRecipient receive '邮件收件人的地址 
jmail.From = mailFROM '发件人的E-MAIL地址 
jmail.MailServerUserName = username '登录邮件服务器所需的用户名 
jmail.MailServerPassword = password '登录邮件服务器所需的密码 
jmail.Subject = subject '邮件的标题 
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 

jmail.Body = body

flag=jmail.Send(mailserver) '执行邮件发送（通过邮件服务器地址）

if flag=true then
response.write"发送成功"
else
response.write"发送失败"
end if 

jmail.Close '关闭邮件对象 
set jmail=nothing
end sub
%>


使用前,必须安装Jmail4.5组件哦..