MyEmail 1.0版使用說(shuō)明

MyEmial是我自己寫(xiě)的一個(gè)email組件，說(shuō)實(shí)話(huà)，叫1.0版有點(diǎn)慚愧，因?yàn)橛行?

功能還未完善，現(xiàn)在的缺點(diǎn)是還不支持html格式，抄送及密送只能支持一個(gè)郵件

地址，不過(guò)我將在一兩天內(nèi)完成這些功能。

這個(gè)組件包括以下屬性及方法：

屬性：
MailServer : 你的郵件服務(wù)器，也可以是IP形式。
To: 收件人
From: 發(fā)件人
CC: 抄送
BCC: 密送
Subject: 郵件標(biāo)題
Body: 郵件內(nèi)容
Attachment: 附件 （目前只能發(fā)送一個(gè)附件）
IsHtml : 是否html格式（目前不支持)
IfSuccess : 是否成功
ErrText : 出錯(cuò)原因

方法：
Send() : 發(fā)送郵件

下面是一個(gè)在asp里使用這個(gè)組件的例子。
<%@ 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"

//發(fā)送
m_objMail.Send ()



if m_objMail.IfSuccess then
Response.Write "發(fā)送成功！"
else
Response.Write m_objMail.ErrText
end if

set m_objMail = nothing
%>


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

bigeagle

（出處：熱點(diǎn)網(wǎng)絡(luò)）