使用方法 ASP
<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'### 創建對象
cm.From="from@test.com"
'### 設置發信人的郵箱
cm.To="to@test.com"
'### 設置收信人的郵箱
cm.Subject="郵件主題。"
'### 設定郵件的主題
'### cm.TextBody="我在測試郵件唷!"
'### 上面是使用普通的文本格式發送郵件,只能使用文字
cm.HtmlBody="Online RSS Feeds Reader 是一個在線的RSS新聞閱讀系統。"&_
"無需下載安裝,隻要註冊了之後你就可以擁有和軟體一樣強大功能的RSS在線訂閱聚合新聞的系統了。"&_
"不管你在任何地方,隻要你能上網,你就能閱讀你喜歡的訂閱。"&_
"快去註冊吧:<a href=http://www.gbmad.net/rss/>http://www.gbmad.net/rss/</a>"
cm.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'### 設定寄件模式:1為內部,2為外部
cm.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="127.0.0.1"
'### 設定SMTP SERVER
cm.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
=25
'### 設定SMTP PORT
cm.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
'### 設定SMTP等候時間
cm.Configuration.Fields.Update
'上面就是你構建的html正文,這樣發齣的郵件就比隻有文字的好看多了。不要說你不會html吧
'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要發送附件的話就用上面的方法把文件附加進去。
cm.Send
'最後當然是執行發送了
Set cm=Nothing
'發送成功後即時釋放對象
Response.Write("發送郵件成功。")
%>
重要作法:
Windows SERVER 2003 只有cdosys.dll,必須下載CDONTS.DLL,放在SYSTEM32內,然後註冊regsvr32
cdonts.dll |