自己開發的email組件及說明、源文件（一上午沒說話，終于搞定）

MyEmail 1.0版使用說明

    MyEmial是我自己寫的一個email組件，說實話，叫1.0版有點慚愧，因為有些

功能還未完善，現在的缺點是還不支持html格式，抄送及密送只能支持一個郵件

地址，不過我將在一兩天內完成這些功能。

這個組件包括以下屬性及方法：

屬性：
MailServer : 你的郵件服務器，也可以是IP形式。
To:          收件人
From:        發件人
CC:          抄送
BCC:         密送
Subject:     郵件標題
Body:        郵件內容
Attachment:  附件     （目前只能發送一個附件）
IsHtml    :  是否html格式（目前不支持)
IfSuclearcase/" target="_blank" >ccess :  是否成功
ErrText :    出錯原因

方法：
Send()   :   發送郵件

下面是一個在asp里使用這個組件的例子。
<%@ Language=VBScript %>
<%

   dim m_objMail    
   set m_objMail        = server.CreateObject ("MyEmail.Email")  
   m_objMail.MailServer = "server1.domain"                
   m_objMail.From       = "lyp@domain"
   m_objMail.To         = "lyp@domain"
   m_objMail.Subject    = "hello , just test my own email com "
   m_objMail.Body       = "just a text "
   m_objMail.Attachment = "d:/bizen/getcategory.sql"
   m_objMail.CC         = "lyp@domain"
   m_objMail.BCC        = "lyp@domain"

   //發送
   m_objMail.Send ()
   

   
   if m_objMail.IfSuccess  then
      Response.Write "發送成功！"
   else   
      Response.Write m_objMail.ErrText
   end if
   
   set m_objMail = nothing
%>         


下載地址：http://homepage.qdcatv.com.cn/bigeagle/myemail.zip

bigeagle

bigeagle@163.net
http://bigeagle.yeah.net

原文轉自：http://www.kjueaiud.com