凡人網(wǎng)絡(luò)購物系統(tǒng)-asp發(fā)送郵件代碼

導(dǎo)航：返回上一頁

凡人網(wǎng)絡(luò)購物系統(tǒng)-asp發(fā)送郵件代碼

如下：

<% 
E_Server = "mail.1488.com" ''發(fā)件服務(wù)器 
E_ServerUser = "joy@1488.com" ''登錄用戶名 
E_ServerPass = "123456" ''登錄密碼 
E_SendManMail = "joy@1488.com" ''發(fā)件人郵件地址 
E_SendManName = "系統(tǒng)管理員" ''發(fā)件人姓名 

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(E_ServerUser = "" Or E_ServerPass = "") Then 
JMail.MailServerUserName = E_ServerUser 
JMail.MailServerPassword = E_ServerPass 
End If 
JMail.ContentType = "text/html" 
JMail.Priority = 1 
JMail.From = E_SendManMail 
JMail.FromName = E_SendManName 
JMail.AddRecipient Email 
JMail.Subject = Topic 
JMail.Body = Mailbody 
JMail.Send (E_Server) 
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 = E_SendManMail 
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 = E_ServerUser 
Mailer.password = E_ServerPass 
Mailer.Priority = 1 
Mailer.Host = E_Server 
Mailer.Port = 25 
Mailer.From = E_SendManMail 
Mailer.FromName = E_SendManName 
Mailer.AddAddress Email,Email 
Mailer.Subject = Topic 
Mailer.Body = Mailbody 
Mailer.Send 
SendMail = "OK" 
If Err Then SendMail = "False" 
End Sub 
dim SendMail 
Sub SendEmail(Mailto,Subject,HtmlCode,SendMode) 
if SendMode="" then SendMode="Jmail" 
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 
SendEmail "收件人hjc73@126.com","主題","正文","Jmail" 
%> 

需要修改的地方：

• smtp服務(wù)器設(shè)置
• 最后一行分別修改為：收件人，主題，正文，發(fā)送組建

參考來源

• 參考來源