想用asp写一个收发接收电子邮件的程序， 如何实现？very emergency!!!
我已经从网上下了一个easyMail作为我的邮件服务器，我希望写一个web页面来实现邮件的收发 功能和一般的网站的邮件功高能差不多
如何实现 我再网上看了一些代码
<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.TO = "abc@xxx.com"
mail.From = "yourmail@xxx.com"
mail.Subject = "主题"
mail.Body = "E-Mail内容"
mail.Send
%>
但需要安装WINDOWS NT OPTON PACK 的SMTP SERVICE， 我的操作系统是win2000server 我看到iis5里面有smtp虚拟服务器 我想它已经提供了smtp 服务功能 就不需再安装windows nt option pack 的smtp service吧（再说nt的包根本在win2000下安装不上去）？
可是win2000下server的iis的smtp虚拟服务器启动不起来 不知道什么原因 出错信息如下：
iis提示信息：
服务并没有及时响应启动或控制请求
在事件查看器中提示：服务无法绑定实例 2。数据是错误代码。
有关此消息的详细信息，请访问 Microsoft 联机支持站点:
除了我以上的代码 还有没有别的方法来发送邮件
对了 我还没有找到asp接收邮件的代码 如何做 ？？？
问题点数：0、回复次数：9Top
1 楼inelm（木野狐）回复于 2003-05-01 08:24:14 得分 0
不用安装smtp service,你要去找一个收发电子邮件的组件，然后看看他的说明文档，一般都有简单的示例代码。可以用aspemail这个组件，其他还有很多。Top
2 楼eafin（风风+兔子）回复于 2003-05-01 18:22:55 得分 0
可以使用jmail组件，
提供下载：
http://www.zycity.com/down_me/jmail43.rarTop
3 楼wuhuxia（古仔）回复于 2003-05-01 19:17:26 得分 0
要么你重新安装一些你的windows组件
一般情况下都是可以重新启动smtp的Top
4 楼whtech（小楼一夜听春雨，深巷明朝卖杏花）回复于 2003-05-01 20:49:03 得分 0
webeasymail已经有现成的程序了啊。Top
5 楼zsx12（机器猫）回复于 2003-05-01 21:09:15 得分 0
重装iss
试试Top
6 楼kwiner（ak.net）回复于 2003-05-02 09:47:40 得分 0
例:Jmail用pop3收信
<% Set pop3 = Server.CreateObject( "JMail.POP3" )
'pop3的连接用户名，密码，pop3地址
pop3.Connect "username", "password", "mail.mydomain.com"
Response.Write( "你有" & pop3.count & " 封邮件。<br><br>" )
if pop3.count > 0 then
Set msg = pop3.Messages.item(1)
ReTo = ""
ReCC = ""
Set Recipients = msg.Recipients
separator = ", "
' 现在得到所有的收件人，并且存储
For i = 0 To Recipients.Count - 1
If i = Recipients.Count - 1 Then
separator = ""
End If
Set re = Recipients.item(i)
If re.ReType = 0 Then
ReTo = ReTo & re.Name & " (<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
else
ReCC = ReTo & re.Name & " (<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator
End If
Next
'这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接
Function getAttachments()
Set Attachments = msg.Attachments
separator = ", "
For i = 0 To Attachments.Count - 1
If i = Attachments.Count - 1 Then
separator = ""
End If
Set at = Attachments(i)
at.SaveToFile( "c:EMailattachments\" & at.Filename )
getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Filename &""">" &_
at.FileName & "(" & at.Size & " bytes)" & "</a>" & separator
Next
End Function
%>
<html>
<body>
<TABLE>
<tr>
<td>邮件标题</td>
<td><%= msg.Subject %></td>
</tr>
<tr>
<td>发件人</td>
<td><%= msg.FromName %></td>
</tr>
<tr>
<td>收件人</td>
<td><%= ReTO %></td>
</tr>
<tr>
<td>抄送</td>
<td><%= ReCC %></td>
</tr>
<tr>
<td>附件</td>
<td><%= getAttachments %></td>
</tr>
<tr>
<td>内容</td>
<td><pre><%= msg.Body %></pre></td>
</tr>
</TABLE>
</body>
</html>
<% end if
pop3.Disconnect
%>
Jmail的主要参数列表
--------------------------------------------------------------------------------
2001-3-8 13:26:08
（1）Body（信件正文） : 字符串
如：JMail.Body = "这里可以是用户填写的表单内容，可以取自From。"
（2）Charset（字符集，缺省为"US-ASCII"） : 字符串
如：JMail.Charset = "US-ASCII"
（3）ContentTransferEncoding : 字符串
指定内容传送时的编码方式，缺省是"Quoted-Printable"
如：JMail.ContentTransferEncoding = "base64"
（4）ContentType（信件的contentype. 缺省是"text/plain"） : 字符串
如果你以HTML格式发送邮件, 改为"text/html"即可。
如：JMail.ContentType = "text/html"
（5）Encoding : 字符串
设置附件编码方式（缺省是"base64）。 可以选择使用的是"base64", "uuencode" or "quoted-printable"
如：JMail.Encoding = "base64"
（6）Log（Jmail创建的日志，前提loging属性设置为true，见下面） : 字符串
如：使用Response.Write( JMail.Log )语句列出日志信息。
（7）Logging（是否使用日志） : 布尔型
如：JMail.Logging = true
（8）Recipients : 字符串
只读属性，返回所有收件人
如：Response.Write( "" + JMail.Recipients + "" );
（9）ReplyTo（指定别的回信地址） : 字符串
如：JMail.ReplyTo = "anyother@mailhost.com"
（10）Sender（ 发件人的邮件地址） : 字符串
如：JMail.Sender = "sender@mailhost.com"
（11）SenderName（发件人的姓名） : 字符串
如：JMail.SenderName = "一克"
（12）ServerAddress（邮件服务器的地址） : 字符串
你可以指定多个服务器，用分号点开。可以指定端口号。
如果serverAddress保持空白，JMail会尝试远程邮件服务器，然后直接发送到服务器上去。
如：JMail.ServerAddress = "mail.263.net.cn"
（13）Subject（设定邮件的标题，可以取自From。）：字符串
如：JMail.Subject = "客户反馈表单"
（14）添加文件附件到邮件
如：JMail.AddAttachment( "c:anyfile.zip" )
（15）AddCustomAttachment( FileName, Data )
添加自定义附件.
如：JMail.AddCustomAttachment( "anyfile.txt", "Contents of file" );
（16）AddHeader( Header, Value )
添加用户定义的信件标头。
如：JMail.AddHeader( "Originating-IP","192.168.10.10" );
（17）AddRecipient（收件人）：字符串
如：JMail.AddRecipient( "info@dimac.net" );
（18）AddRecipientBCC( Email )，密件收件人：
如：JMail.AddRecipientBCC( "anyone@mailhost.com" );
（19）AddRecipientCC( Email ) ，抄送收件人：
如：JMail.AddRecipientCC( "anyone@mailhost.com" )
（20）AddURLAttachment( URL, 文档名)
下载并添加一个来自url的附件. 第二个参数"文档名", 用来指定信件收到后的文件名。
如：JMail.AddURLAttachment( "http://java2000.wol.com.cn/perl/files/jmail.zip", "jmail" )
（21）AppendBodyFromFile( 文件名) ，将文件作为信件正文：
如：JMail.AppendBodyFromFile( "c:anyfile.txt" )
(22)AppendText( Text )
追加信件的正文内容，比如增加问候语或者其它信息。
如：JMail.AppendText( "欢迎访问本站！" )
（23）Close() ，强制JMail关闭缓冲的与邮件服务器的连接：
如：JMail.Close()
（24）Execute() ，执行邮件的发送
如：JMail.Execute()
Top
7 楼kwiner（ak.net）回复于 2003-05-02 09:51:07 得分 0
JMail（4.3版本）发送代码
----------------------------------------------------
2002-8-9 江都资讯网 阅读：116次
该段代码涉及到JMail v4.3的大部分常用方法。
包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用，也可以改成函数或过程。
<%
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
' 发送者信息（可用变量方式赋值）
JMail.From = "jiaz@21cn.com" ' 发送者地址
JMail.FromName = "D.J." ' 发送者姓名
JMail.Subject = "您在炫网资讯的歌词快递（请将编码设为简体中文(gb2312)）" ' 邮件主题
' 身份验证
JMail.MailServerUserName = "user" ' 身份验证的用户名
JMail.MailServerPassword = "password" ' 身份验证的密码
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(email)
' 加入附件【变量filename：附件文件的绝对地址，确保用户IUSR_????有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
contentId = JMail.AddAttachment (filename, True)
' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body bgcolor=""#FFFFFF"" text=""#666666"" leftmargin=""0"" topmargin=""30"" link=""#FF9900""><center>点击这里<a href=' cid:" & contentId & "' >[附件文件]</a>将文件保存</center></body></html>"
' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。您可以访问以下地址来查看：http://music.liuxuan.com"
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("user:password@smtp.21cn.com")
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
%>
Top
8 楼kwiner（ak.net）回复于 2003-05-02 09:55:41 得分 0
其中，JMail下载
http://www.zycity.com/down_me/jmail43.rar
JMail(4.3)中文手册
http://www.ajiang.net
Top
9 楼dingmickey（丁米奇）回复于 2003-05-02 21:27:11 得分 0
谢谢各位 我先试试Top
