ASP通过Jmail发送电子邮件

原创 作者:老李 2021-04-01 46

ASP通过Jmail发送电子邮件,


使用之前,服务器必须安装Jmail组件。


<%
    Function Jmail(tomail,mailtitle,mailbody)
    'Jmail 发送邮件(收邮件地址,主题,内容)
     dim  email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,isgo
     '发送邮件参数设置,发件者
     smtpserver =  "smtp.163.com"               '//邮件服务器smtp.163.com
     smtpuser =  ""                             '//用户名
     smtppwd  =  ""                          '//密码
    
     '发送邮件
     Set jmail=Server.CreateObject("JMail.Message")
     jmail.Silent =  true
     jmail.Charset =  "gb2312"
     jMail.ContentType  =  "text/html"
     jmail.From =  smtpuser                   '//发信人地址
     jmail.FromName  =  smtpuser           '//发信人姓名
    
     jmail.AddRecipient  tomail               '//地址
     jmail.Subject   =  mailtitle          '//标题
     jmail.Body   =  mailbody            '//内容
    
     jmail.MailServerUserName  =  smtpuser
     jmail.MailServerPassWord  =  smtppwd
     isgo  =  jmail.Send(smtpserver)
     
     jmail.Close
     set  jmail  =  nothing
     Jmail = isgo
    End Function
%>


本文为原创文章,转载请注明出处。