' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
End Function
Function Send_Mail(Send_From,Send_To,Send_Subject,Send_Body)
'调用Windows自带NewMail组件
'发送E-mail函数
'參數：
'Send_From-發送者信箱
'Send_To-接受者信箱
'Send_Subject-郵件主題
'Send_Body-郵件内容
Dim mailObject
Set mailObject = Server.CreateObject("CDONTS.NewMail")
mailObject.BodyFormat = 0
mailObject.MailFormat = 0
mailObject.From = Send_From
mailObject.To = Send_To
mailObject.Subject = Send_Subject
mailObject.Body = Send_Body
mailObject.Send()
Set mailObject = Nothing
If Err Then
Response.Write "<script language=javascript>alert('Error:"& Err.Number & Err.Description &"對不起，郵件發送失敗！：（');</script>"
Else
Response.Write "<script language=javascript>alert('恭喜，郵件發送成功！^_^');</script>"
End If
End Function %>
设为主页
收藏本站
相关文章: