用cdont組件發郵件

來源:互聯網
上載者:User
發郵件 最近看到充許多網友要用自動發郵件的討論, 這個東東我以前也研究過現在把它發布到這兒,希望能給大家帶來用處:
<%
fromwho=request("fromwho")
frommail=request("frommail")
towho=request("towho")
tomail=request("tomail")
subject=request("subject")
content=request("content")
title=request("title")
%>
<%
'建立一個CDONTS.NEWMAIL對象

set objmail=server.createobject("cdonts.newmail")
'設定寄件人
objmail.from=fromwho
objmail.from=frommail
'設定收件者
objmail.to=towho
objmail.to=tomail
'設定郵件主題
objmail.subject=subject
'設定郵件內容
objmail.body=content&title&towho&fromwho
'將郵件格式設成HTML,若沒有這兩行,則預設的是txt格式
'objmail.bodyformat=0
'objmail.mailformat=0
objmail.send
%>
<%
response.write"<script language=javascript>alert('你已經成功寄出了!!!');</script>"
response.write"<script language=javascript>window.location.href='vbscript:history.back'</script>"

%>

這個程式已經測試通過的



--------------------------------------------------------------------------------
關於這篇文章的評論 [注意:這裡僅僅是給大家提供了一個發表對文章本身看法的地方,如果有疑問,請到論壇提出] 我要提問!
hyijiao 2003-10-14 11:33:00

請問如何把下面的JMAIL改成用MS.Cdonts 發郵件?謝謝
--------------------------------------------------------------------------------
您好!

  請問如何把下面的JMAIL改成用MS.Cdonts 發郵件?謝謝!

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.powercord911.com:25"
JMail.Sender = "mis@powercord911.com"
JMail.Subject = "您的登入密碼"
JMail.AddRecipient(rsuserinfo.Fields.Item("useremail").Value)
JMail.Body = "尊敬的使用者您好,首先感謝您使用我們的服務!." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的使用者名稱是:" &(rsuserinfo.Fields.Item("user_name").Value) & vbCrLf
JMail.Body = JMail.Body & "您的註冊郵箱是:" &(rsuserinfo.Fields.Item("useremail").Value) & vbCrLf
JMail.Body = JMail.Body & "您的登入密碼是:" &(rsuserinfo.Fields.Item("fpassword").Value) & vbCrLf
JMail.Body = JMail.Body & "請妥善保管您的密碼,如再次遺忘密碼,請登入至本站取回您的密碼,謝謝您使用本系統。" & vbCrLf
JMail.Body = JMail.Body & "順祝商祺!" & vbCrLf
JMail.Body = JMail.Body & "××××××有限公司"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute

在以上代碼中兩句代碼:
JMail.ServerAddress = "mail.powercord911.com:25"
JMail.Sender = "mis@powercord911.com"

mail.powercord911.com:25是你的發送郵件伺服器,25是連接埠號碼




相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。