最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp各种发送邮件功能代码
时间:2008-07-07 编辑:简简单单 来源:一聚教程网
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
-
上一个: asp使用jmail 发邮件代码
-
下一个: 批量处理网站文件挂马方法与程序
相关文章
- ASP邮件发送插件Jmail全部方法属性的介绍 05-22
- asp 利用cdonts组件发送邮件 02-22
- asp 发送邮件代码,支持外国主机 01-05
- asp发送邮件代码 08-01
- 如何在ASP+中发送邮件 01-12
- ASP用JMail、CDO发送邮件 01-12