hx_checkemail.asp

精美OA网络办公系统,带PSD文件.可任意修改.

<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				发送邮件数
'-----------------------------------------------------------------------
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
      jmail.Close
      set jmail = nothing
	  response.Write "<script>alert('"&msg&"');window.close();</script>"	
	  response.end
   End Sub
End Class
%>