果凍 的 程式備忘簿

有一天客戶突然來電說收不到信，

這時就馬上想到應該是因為Web Server移機的關係，

作業系統從Windows Server 2000升級到Windows Server2003，

因此，原先所使用的郵件元件CDONTS這時要改成CDO元件了，

以下是CDO元件的用法：

如果要寄出一封文字信件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="這邊輸入此封mail的主旨"
myMail.From="這邊輸入寄件人的mail"
myMail.To="這邊輸入收件者的mail"
myMail.TextBody="mail的文字內容"
myMail.Send
set myMail=nothing
%>

如果要寄出一封文字信件並且要副本給收件人及密件副本給收件人
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="這邊輸入此封mail的主旨"
myMail.From="這邊輸入寄件人的mail"
myMail.To="這邊輸入收件者的mail "
myMail.Cc="這邊輸入要副本收件人的mail"
myMail.Bcc="這邊輸入要密件副本收件人的mail"
myMail.TextBody="mail的文字內容"
myMail.Send
set myMail=nothing
%>

如果要寄出一封HTML信件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="這邊輸入此封mail的主旨 "
myMail.From="這邊輸入寄件人的mail "
myMail.To="這邊輸入收件者的mail "
myMail.HTMLBody = "這邊輸入Html的格式內容"
myMail.Send
set myMail=nothing
%>

如果要寄出一封文字信件並且包含附件
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="這邊輸入此封mail的主旨"
myMail.From="這邊輸入寄件人的mail "
myMail.To="這邊輸入收件者的mail "
myMail.TextBody="mail的文字內容"
myMail.AddAttachment "這邊輸入檔案的位置(C:\Users\Jelly\Documents\Test.txt)"
myMail.Send
set myMail=nothing
%>

 

當把程式改修改好了之後，會發現有

>>> 無法建立'CDO.Message' 的錯誤訊息 <<<

可以參考下面的網址微軟的疑難排解來解決此問題。

http://support.microsoft.com/kb/910360/zh-tw

 

 

 

參考或是複製語法時，別忘了留個言喔 ^ ^ ~