<%
'****************************************************************************************
'*声 明:如果使用此程序请保留此段信息
'*程 序 名:TevMail
'*功 能:发送邮件(服务器上必须装有JMail4.3版本)
'*开发日期:2005-01-13
'*优 点:如果自己写的JMail程序,设置很多值,如服务器地址,密码,用户名,等等,使用本类后,最短
'* 只需要三行语句便可以发送邮件.具体操作请看下面的示例.
'*示 例:
'* Set abc = New JMail
'* abc.to = "您的信箱地址"
'* abc.send
'* <!-- #include file="路径/TevMail.asp" -->
'* 大家可以测试一下,用以上四句语句建立一个ASP页面,然后运行一下,你的邮件就发出去了!
'* 但如果我需要设置邮件标题,发件人,内容等等怎么办呢?请自己参阅下列参数.
'*具体参数:
'* .ServerAddress = "smtp.126.com" '此处设置自己的邮件服务器
'* .username = "weili.cn" '邮件服务器用户名
'* .password = "*******" '邮件服务器密码
'* .from = "weili.cn" '发件人地址
'* .Fromname = "liwei" '发件人姓名
'* .to = "weili.cn@126.com" '收件人姓名
'* .Subject = "测试" '邮件主题
'* .Body = "test" '邮件内容
'*错误处理:
'* .number '发送后可以用此值来判断是否发送成功,值<=0时则发送成功
'* .error '发送后如果有错误,可以用此值来提取错误信息
'* .about '当前类的版权信息,为了尊重他人成果,请勿修改,谢谢!
'****************************************************************************************
Class TevMail
Private ObjMail
Private sUserName
Private sPassword
Private sFrom
Private sFromName
Private sSubject
Private sBody
Private sTo
Private sServer
Private iNumber
Private sError
Private sAbout
Private Sub Class_Initialize()
sAbout = "程序名:邮件发送类<br>" & _
"编 写:Tellov<br>" & _
"日 期:2005-01-13<br>" & _
"备 注:欢迎使用本类,如果需要帮助或者有好的建议,请联系我,谢谢!<br>" & _
" Q Q :40386978<br>"& _
"EMail:weili.cn@126.com<br>"
sUserName = ""
sPassword = ""
sFrom = ""
sFromName = ""
sSubject = ""
sBody = ""
sTo = ""
sServer = ""
iNumber = 0
sError = ""
