hx_checkemail.asp

来自「一个比较完整的oa系统」· ASP 代码 · 共 56 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><%
'--- 设置项
'-----------------------------------------------------------------------
'--- ServerLoginName	设置您的邮件服务器登录名
'--- ServerLoginPass	设置登录密码
'--- SendSMTP			设置SMTP邮件服务器地址
'--- SendFromEmail		设置发件人的E-MAIL地址
'--- SendFromName		设置发送人名称
'--- ContentType		设置邮件类型 默认：text/html
'--- CharsetType		设置编码类型 默认：gb2312
'-----------------------------------------------------------------------
'--- 属性
'-----------------------------------------------------------------------
'--- SendMail Email, Topic, MailBody	收件人地址，标题，邮件内容
'-----------------------------------------------------------------------
'--- 获取信息
'-----------------------------------------------------------------------
'--- ErrCode			信息编号 0=正常
'--- Description		相应操作信息
'--- Count				发送邮件数
'-----------------------------------------------------------------------
'程序编写及设计:徐勇
'QQ号码: 563097256(网络侠客)
'网址：http://www.wsoas.com
'E_mail(MSN):[e-mail] 
'电话:[phone]   0551-5168961
'以上信息不影响程序运行!
'在使用过程中请保留以上信息,以便出现问题时及时与我取得联系
'注意：免费版程序不得用于商业用途，否则后果自负！！！！
Class HX_SendMail
	Sub Sendmail()
	 ' On Error Resume Next
	  set jmail= server.CreateObject ("jmail.message")
      jmail.Silent = true
      jmail.Charset = "gb2312"
      JMail.ContentType = "text/html"    
      jmail.From = smtpemail
      jmail.FromName = sendname
      jmail.ReplyTo = myemail
      jmail.Subject = topic	
      jmail.AddRecipient "[e-mail]"
      jmail.Body = mailbody 
      jmail.MailServerUserName = smtpuser
      jmail.MailServerPassWord = smtppwd
      isgo = jmail.Send(smtpserver)
       if isgo then
        msg="您的邀请已成功发送"
       else
        msg = "您的邀请发送失败！可能是参数设置是错误，请与管理员联系！"
       end if
	   response.Write msg
      jmail.Close
      set jmail = nothing
   End Sub
End Class
%>