ASP線上發E-mail的2個函數(使用JMail和NewMail組件)

來源:互聯網
上載者:User
jmail|mail組件|函數|線上 <%'By Dicky QQ:25941
Function JMail(Send_From,Send_To,Send_Subject,Send_Body)
'調用JMail組件
'發送E-mail函數
'參數:
'Send_From-發送者信箱
'Send_To-接受者信箱
'Send_Subject-郵件主題
'Send_Body-郵件內容
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312" ' 郵件字元集,預設為"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否進行ISO編碼,預設為True

' 寄件者資訊(可用變數方式賦值)
JMail.From = Send_From ' 寄件者郵箱
JMail.FromName = "管理員" ' 寄件者姓名
JMail.Subject = Send_Subject ' 郵件主題

' 身分識別驗證
'JMail.MailServerUserName = "user" ' 身分識別驗證的使用者名稱
'JMail.MailServerPassword = "password" ' 身分識別驗證的密碼

' 設定優先權,範圍從1到5,越大的優先順序越高,3為普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' 加入一個收件者【變數Send_From:收件者地址】可以同一語句重複加入多個
JMail.AddRecipient(Send_From)

' 郵件主體(HTML(注意信件內連結附件的方式))
JMail.HTMLBody = UBBCode(Send_Body)
JMail.Body = HTMLDecode(UBBCode(Send_Body))

' 發送【調用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
'JMail.Send("user:password@smtp.21cn.com")
SendInfo=JMail.Send(Send_To)

' 關閉並清除對象
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 %>




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。