用Jmail实现ASP程序自动发送邮件和邮件群发

<%

mailserver="smtp.sina.com.vn" 'smtp服务器地址

mailname="111111@sina.com" '发信邮箱

mailpassword="这里填写密码" '发信邮箱密码

dim msg

CLStr=Chr(13) & Chr(10)

Set msg = Server.CreateObject("JMail.Message")

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312"

msg.MailServerUserName = mailname

msg.MailServerPassword = mailpassword  

msg.From = mailname

msg.FromName = mailname

msg.AddRecipient (UserMail)                      'usermail为网站会员注册时填写的ID

msg.Subject = "您在“"&sitename&"”注册成功"

msg.Body = UserName&",您好!"&CLStr&CLStr

msg.Body = msg.Body&"恭喜您注册会员成功,会员ID:"&userid&",登陆密码:"&user_password&CLStr&CLStr

msg.Body = msg.Body&sitename&"("&siteurl&")欢迎您多多光临!谢谢!"&CLStr

msg.Send (mailserver)

msg.close

set msg = nothing

%>

这个测试过,ok

ASP实现邮件群发

<%  

function   SendMail(subject,msg)  

dim   JMail  

'on   error   resume   next  

Set   JMail   =   Server.CreateObject("JMail.SMTPMail")  

JMail.LazySend   =   true  

JMail.silent   =   true  

JMail.Charset   =   "gb2312"  

JMail.ContentType   =   "text/html"  

JMail.Sender   =   "1111@sina.com"  

JMail.ReplyTo   =   "1111@sina.com"  

JMail.SenderName   =   "sina"  

JMail.Subject   =   subject  

JMail.SimpleLayout   =   true  

JMail.Body   =   msg  

JMail.Priority   =   1  



        aryEmail   =   split(textemail1,   ";")  

for   i=0   to   UBound(aryEmail)  

    JMail.AddRecipient   Trim(aryEmail(i))  

next    



JMail.AddHeader   "Originating-IP",   Request.ServerVariables("REMOTE_ADDR")  

SendMail   =   JMail.Execute()  

JMail.Close  

set   JMail=nothing  

end   function  

%>



评论: 0 | 引用: 0 | 查看次数: 2859
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭