WEB邮件程序

开发平台：

Delphi

iNotesMail.asp：源码内容

							<HTML>
<HEAD>
<TITLE>ASP文件管理组件示例 </TITLE>
</HEAD>
<BODY>
<DIV align="center">
ASP邮件发送组件示例
<hr>
<%
if Request("BtnVal")="发 送" then
   mSMTPHost=Request("SMTPHost")
   mSMTPPort=CInt(Request("SMTPPort"))
   mSMTPTime=CInt(Request("SMTPTime"))
   mFromAddress=Request("FromAddress")
   mFromName=Request("FromName")
   mToAddress=Request("ToAddress")
   mToCC=Request("ToCC")
   mToBCC=Request("ToBcc")
   mSubject=Request("Subject")
   mBody=Request("Body")
   mAttachments=Request("Attachments")
   Set MailObj = Server.CreateObject("iNotes.Mail")
   MailObj.SMTPHost=mSMTPHost
   MailObj.SMTPPort=mSMTPPort
   MailObj.SMTPTime=MSMTPTime
   MailObj.FromAddress=mFromAddress
   MailObj.FromName=mFromName
   MailObj.ToAddress=mToAddress
   MailObj.ToCC=mToCC
   MailObj.ToBCC=mToBcc
   MailObj.Subject=mSubject
   MailObj.Body=mBody
   MailObj.Attachments=mAttachments
   Response.write "<br>邮件发送状态：" & MailObj.SendMail
   Response.write "<br>邮件发送信息：" & MailObj.Message
   Set MailObj = nothing
end if
%>
<hr>
<font color=#008080 >
    Copyright &copy; 2000 <a href="http://china-notes.com">China-Notes.com </a>, All Rights Reserved<br>
   『网际备忘 版权所有』<br>
</font>
</DIV>
</BODY>
</HTML>

						