繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> ASP基础 >> 自己开发的email组件及说明、源文件(一上午没说话,终于搞定)

自己开发的email组件及说明、源文件(一上午没说话,终于搞定)

2006-07-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:MyEmail 1.0版使用说明 MyEmial是我自己写的一个email组件,说实话,叫1.0版有点惭愧,因为有些 功能还未完善,现在的缺点是还不支持HTML格式,抄送及密送只能支持一个邮件 地址,不过我将在一两天内完成这些功能...

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

bigeagle@163.net

http://bigeagle.yeah.net

责任编辑:admin
相关文章