asp 发送邮件

 

  
<%
dim jmail
mailserver = " mail.163.com "      ' 邮局服务器地址（smtp服务器地址）
receive = request( " email " )               ' 接受反馈信息的email地址（可以是您的任何有效信箱）
mailFROM = " [email protected] "      ' 发邮件地址
username = " [email protected] "      ' 发件人邮箱地址
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组件哦..