<% Sub Jmail (email) Dim JMail, SendMail Set JMail = Server.CreateObject ( "JMail.SMTPMail") JMail.Logging = True JMail.Charset = "gb2312" JMail.ContentType = "text / html" JMail.ServerAddress = SMTPServer JMail.Sender = SystemEmail JMail.Subject = topic JMail.Body = mailbody JMail.AddRecipient email JMail.Priority = 3 JMail.Execute Set JMail = nothing if err then SendMail = err.description err.clear else SendMail = "OK" end if End Sub
sub Cdonts (email) dim objCDOMail Set objCDOMail = Server.CreateObject ( "CDONTS.NewMail") objCDOMail.From = SystemEmail objCDOMail.To = email objCDOMail.Subject = topic objCDOMail.Body = mailbody objCDOMail.Send Set objCDOMail = Nothing if err then Sendmail = err.description Err.Clear else sendmail = "ok" end if End Sub
sub aspemail (email) Set mailer = Server.CreateObject ( "ASPMAIL.ASPMailCtrl.1") recipient = email sender = SystemEmail subject = topic message = mailbody mailserver = SMTPServer result = mailer.SendMail (mailserver, recipient, sender, subject, message ) If err dam, err.description Err.Clear else sendmail = "OK" end if End sub%>
