自己開發的email組件及說明、源文件
發表時間:2024-01-02 來源:明輝站整理相關軟件相關文章人氣:
[摘要]MyEmail 1.0版使用說明 MyEmial是我自己寫的一個email組件,說實話,叫1.0版有點慚愧,因為有些 功能還未完善,現在的缺點是還不支持html格式,抄送及密送只能支持一個郵件 地址,不過我將在一兩天內完成這些功能。 這個組件包括以下屬性及方法: 屬性: MailServer : ...
MyEmail 1.0版使用說明
MyEmial是我自己寫的一個email組件,說實話,叫1.0版有點慚愧,因為有些
功能還未完善,現在的缺點是還不支持html格式,抄送及密送只能支持一個郵件
地址,不過我將在一兩天內完成這些功能。
這個組件包括以下屬性及方法:
屬性:
MailServer : 你的郵件服務器,也可以是IP形式。
To: 收件人
From: 發件人
CC: 抄送
BCC: 密送
Subject: 郵件標題
Body: 郵件內容
Attachment: 附件 (目前只能發送一個附件)
IsHtml : 是否html格式(目前不支持)
IfSuccess : 是否成功
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
(出處:熱點網絡)