<% '================================================ == 'Send Mail Components:' Edit by yangzheng 'Write by rw January 24, 2005 Monday' ========================== ======================= DIM SMTPSYS (5) if Isarray (Application ("SMTPSYS")) THEN SMTPSYS (0) = Application ("SMTPSYS") (0) 'Mail Server SMTPSYS (1) = Application ("SMTPSYS") (3)' Email Address SMTPSYS (2) = Application ("SMTPSYS") (1) 'User name SMTPSYS (3) = Application ("SMTPSYS) ") (2) 'Password SMTPSYS (4) = Application (" SMTPSYS ") (4)' Send Components Else Response.clear () response.charset =" GB2312 "Response.write (" get the mail send parameters failed, please first Set good mail server parameters! ") Response.end end if SMTPSYS (5) = request.servervariables (" Server_name ")
Function Jmail (Email, Topic, Mailbody) On Error Resume Next Dim Mail Set Mail = Server.CreateObject ( "JMail.Message") Mail.silent = true Mail.Logging = True Mail.Charset = "gb2312" If Not (SmtpSys ( 2) = "" "OR SMTPSYS (3) =" "" "" "") Then mail.mailserverusername = SMTPSYS (2) 'Your mail server login name mail.mailserverpassword = SMTPSYS (3)' login password end if mail.contenttype = "Text / html "Mail.Priority = 1 mail.From = SmtpSys (1) Mail.FromName = SmtpSys (5) Mail.AddRecipient Email Mail.Subject = Topic Mail.Body = Mailbody Mail.Send (SmtpSys (0)) Set Mail = Nothing Jmail = true If Err Then Jmail = falseEnd Function Function Cdonts (Email, Topic, Mailbody) On Error Resume Next Dim ObjCDOMail Set ObjCDOMail = Server.CreateObject ( "CDONTS.NewMail") ObjCDOMail.From = SmtpSys (1) ObjCDOMail.To = Email ObjCDOMail.Subject = Topic ObjCDOMail.BodyFormat = 0 ObjCDOMail.MailFormat = 0 ObjCDOMail.Body = Mailbody ObjCDOMail.Send Set ObjCDOMail = Nothing Cdonts = true If Err Then Cdonts = falseEnd Function
Function Aspemail (Email, Topic, Mailbody) On Error Resume Next Dim Mailer Set Mailer = Server.CreateObject ( "Persits.MailSender") Mailer.Charset = "gb2312" Mailer.IsHTML = True Mailer.username = SmtpSys (2) 'server Uploaded user name mailer.password = SMTPSYS (3) 'server valid password mailer.priority = 1 mailer.host = SMTPSYS (0) MAILER.PORT = 25' This item is optional. Port 25 is the default value MAILER. From = SmtpSys (1) Mailer.FromName = SmtpSys (5) 'the optional Mailer.AddAddress Email, Email Mailer.Subject = Topic Mailer.Body = Mailbody Mailer.Send Aspemail = true If Err Then Aspemail = falseEnd FunctionFunction EasyMail ( Email, Topic, Mailbody) On Error Resume Next Dim mailsend Set mailsend = Server.CreateObject ( "easymail.MailSend") mailsend.CreateNew SmtpSys (1), SmtpSys (3) mailsend.MailName = SmtpSys (5) 'sender name MailSend .Em_to = email 'recipient email address' mailsend.em_backaddress = 'reply email address' mailsend.em_bcc 'secret' mailsend.em_cc 'Cc Mailsend.em_Subject = Topic' Mail Topic mailsend.EM_HTML_Text = Mailbody mailsend.useRichEditer = true 'mailsend.EM_ReadBack = true' read confirmation 'mailsend.EM_Priority =' priority mailsend.send set mailsend = nothing EasyMail = true If Err Then EasyMail = falseEnd Function%>
