最近看到充許多網(wǎng)友要用自動(dòng)發(fā)郵件的討論, 這個(gè)東東我以前也研究過現(xiàn)在把它發(fā)布到這兒,希望能給大家?guī)�來用�?
<%
fromwho=request("fromwho")
frommail=request("frommail")
towho=request("towho")
tomail=request("tomail")
subject=request("subject")
content=request("content")
title=request("title")
%>
<%
'建立一個(gè)CDONTS.NEWMAIL對(duì)象

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

%>

這個(gè)程序已經(jīng)測(cè)試通過的



--------------------------------------------------------------------------------
關(guān)于這篇文章的評(píng)論 [注意：這里僅僅是給大家提供了一個(gè)發(fā)表對(duì)文章本身看法的地方，如果有疑問，請(qǐng)到論壇提出] 我要提問!
hyijiao 2003-10-14 11:33:00

請(qǐng)問如何把下面的JMAIL改成用MS.Cdonts 發(fā)郵件？謝謝
--------------------------------------------------------------------------------
您好！

　　請(qǐng)問如何把下面的JMAIL改成用MS.Cdonts 發(fā)郵件？謝謝！

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 = "尊敬的用戶您好，首先感謝您使用我們的服務(wù)！." & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "您的用戶名是：" &(rsuserinfo.Fields.Item("user_name").Value) & vbCrLf
JMail.Body = JMail.Body & "您的注冊(cè)郵箱是：" &(rsuserinfo.Fields.Item("useremail").Value) & vbCrLf
JMail.Body = JMail.Body & "您的登錄密碼是：" &(rsuserinfo.Fields.Item("fpassword").Value) & vbCrLf
JMail.Body = JMail.Body & "請(qǐng)妥善保管您的密碼，如再次遺忘密碼，請(qǐng)登錄至本站取回您的密碼，謝謝您使用本系統(tǒng)。" & 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是你的發(fā)送郵件服務(wù)器，25是端口號(hào)