www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/inc/email.asp
<% Dim SendMail,cdoConfig Sub Jmail(email,topic,mailbody) On Error Resume Next Dim JMail Set JMail=Server.CreateObject("JMail.Message") JMail.silent=True JMail.Logging=True JMail.Charset="gb2312" If Not(Newasp.MailUserName = "" Or Newasp.MailPassword = "") Then JMail.MailServerUserName = Newasp.MailUserName '您的邮件服务器登录名 JMail.MailServerPassword = Newasp.MailPassword '登录密码 End If JMail.ContentType = "text/html" JMail.Priority = 1 JMail.MailDomain = "govery.cn" JMail.From = Newasp.MailFrom '邮件地址 JMail.FromName = Newasp.SiteName '网站名称 JMail.AddRecipient email JMail.Subject = topic JMail.Body = mailbody If Err <> 0 Then SendMail="False" Else JMail.Send (Newasp.MailServer) '发邮件服务器地址 JMail.ClearRecipients() If Err <> 0 Then SendMail="False" Else SendMail="OK" End If End If Set JMail=nothing End Sub Sub Cdonts(email,topic,mailbody) On Error Resume Next Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Newasp.MailFrom '邮件地址 objCDOMail.To = email objCDOMail.Subject = topic objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Body = mailbody If Err <> 0 Then SendMail="False" Else objCDOMail.Send If Err <> 0 Then SendMail="False" Else SendMail="OK" End If End If Set objCDOMail = Nothing End Sub Sub aspemail(email,topic,mailbody) On Error Resume Next Dim Mailer Set Mailer=Server.CreateObject("Persits.MailSender") Mailer.Charset = "gb2312" Mailer.IsHTML = True Mailer.username = Newasp.MailUserName '服务器上有效的用户名 Mailer.password = Newasp.MailPassword '服务器上有效的密码 Mailer.Priority = 1 Mailer.Host = Newasp.setting(9) Mailer.Port = 25 ' 该项可选.端口25是默认值 Mailer.From = Newasp.MailFrom '邮件地址 Mailer.FromName = Newasp.SiteName ' 该项可选 Mailer.AddAddress email,email Mailer.Subject = topic Mailer.Body = mailbody If Err <> 0 Then SendMail="False" Else Mailer.Send If Err <> 0 Then SendMail="False" Else SendMail="OK" End If End If Set Mailer = Nothing End Sub Sub CDOMessage(Email,Topic,Mailbody) On Error Resume Next If Not IsObject(cdoConfig) Then Call CreatCDOConfig() End If Dim Obj Set Obj = Server.CreateObject("CDO.Message") With Obj Set .Configuration = cdoConfig '.From = Newasp.MailFrom .To = Email .Subject = Topic .TextBody = Mailbody .Send End With Set Obj = Nothing Set cdoConfig = Nothing If Err<>0 Then SendMail="False" Else SendMail="OK" End If End Sub Sub CreatCDOConfig() On Error Resume Next Dim Sch sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "smtpserver") = Newasp.MailServer '--SMTP 服务器 '.Item(sch & "smtpserverport") = 25 .Item(sch & "sendusing") = 2 .Item(sch & "smtpaccountname") = Newasp.SiteName .Item(sch & "sendemailaddress") = Newasp.MailFrom .Item(sch & "smtpuserreplyemailaddress") = 25 '.Item(sch & "smtpauthenticate") = cdoBasic .Item(sch & "sendusername") = Newasp.MailUserName .Item(sch & "sendpassword") = Newasp.MailPassword .update End With If Err<>0 Then SendMail="False" End If End Sub %>