asp里面的邮件组件

Posted on 2007-04-27 10:07  黄毅  阅读(315)  评论(0编辑  收藏  举报

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(Web_Const(64) = "" Or Web_Const(65) = "") Then
JMail.MailServerUserName = Web_Const(64)
JMail.MailServerPassword = Web_Const(65)
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = Web_Const(66)
JMail.FromName = Web_Const(67)
JMail.AddRecipient Email
JMail.subject = Topic
JMail.Body = Mailbody
JMail.Send (Web_Const(63))
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Sub Cdonts(Email,Topic,Mailbody)
On Error Resume Next
Dim ObjCDOMail
Set ObjCDOMail = Server.CreateObject("CDONTS.NewMail")
ObjCDOMail.From = Web_Const(66)
ObjCDOMail.To = Email
ObjCDOMail.subject = Topic
ObjCDOMail.BodyFormat = 0
ObjCDOMail.MailFormat = 0
ObjCDOMail.Body = Mailbody
ObjCDOMail.Send
Set ObjCDOMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
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 = Web_Const(64)
Mailer.password = Web_Const(65)
Mailer.Priority = 1
Mailer.Host = Web_Const(63)
Mailer.Port = 25
Mailer.From = Web_Const(66)
Mailer.FromName = Web_Const(67)
Mailer.AddAddress Email = Email
Mailer.subject = Topic
Mailer.Body = Mailbody
Mailer.Send
Set Mailer=Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Dim SendMail
Sub SendEmail(Mailto,subject,HtmlCode,SendMode)
IF SendMode="Jmail" THEN
Jmail MailTo,subject,HtmlCode
ElseIF SendMode="Cdonts" THEN
Cdonts MailTo,subject,HtmlCode
ElseIF SendMode="Aspemail" THEN
Aspemail MailTo,subject,HtmlCode
End IF
End Sub

Copyright © 2024 黄毅
Powered by .NET 8.0 on Kubernetes