如何利用ASP做出基于WEB页的电子邮件系统？有这方面的文档吗？(500分，分次给）

[bensula_java]

希望实现：
1、在WEB上实现邮件的收发等（如163、21CN等）；
2、与现有Windows2000域用户集成：比如域用户bensula_java的登录密码是abcxxx，那么在WEB上登录时用的也是同样的密码！而该用户的邮箱类似bensula_java@domain；
3、与现有的Exchange2000邮件服务器集成，就是用户登录以后，操作的都是在Exchange2000里的邮件数据库！（其实第3步实现了，基本也算实现了第2步，因为Exchange2000与Windows2000的AD是集成的）。
先解决以上问题吧！多谢了。

[bensula_java]

我等了一个下午，怎么就没人懂呢？

[馋嘴蜗牛]

第一个用 JMail 应该能实现

[ksy]

要有固定的IP

[theng]

下载webeasymail吧，支持asp对象调用，非常方便。其功能可以和绝大多数免费邮件媲美。
强烈推荐！

[julyclyde]

宁波点心局就是用WebEasyMail

[zhenhao]

下载一个，有很多的，你喜欢哪个用哪个：）

[newah]

强烈关注！！

[wanguohua]

你下载 JMail 组件装上, 程序代码如下:
if request.form("mail")<>"" then
name ="**公司"
senderEmail ="bensula_java@domain"
subject = "回复"
recipient =request.form("mail")
body = "内容"

' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )

' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

' Enter the sender data
msg.From = senderEmail
msg.FromName = name

' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

' The subject of the message
msg.Subject = subject

' And the body
msg.body = body

' Now send the message, using the indicated mailserver
if not msg.Send("邮件服务器地址") then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<center><br>邮件发送成功！</center><br><br>"
end if
else

end if
我们公司服务器就是这样弄的,没出现问题.

[xiaoyu]

webeasymail

[jobin]

gz

[alexander_lin]

jmail去哪下载呢

[ahead_lin]

呵呵，可以发给我一份吗？[e-mail] 谢了

[ksy]

search

[yyy_er]

邮件服务器一般都带了建web邮局的范例或说明

邮件服务器很多下载网站都有啊

[shan__le]

这些都是网络的，你可以用Exchange2000+ASP写邮件处理，都是自己的域名，自己建立邮件处理系统等等，不过开发很难，要是能写出来，也很值钱，百万以上应该是没有问题的：）

[tfming]

你可以下载一个ArGoSoft Mail Server,它也很好用提供了很多组件，而且如果你不想自已做，它本身就提供了网页方式的邮件处理。
很好用的啊！

[tfming]

如果想要你就发Email给我吧！我再发给你！[e-mail]
哈哈，包括注册码的啊！！
但你要给我加分啊！！！！

[tfming]

再给你看一看它的组件，它自己提供的哟！
dim Users, User
' First, create and initialize the User object
set User=WScript.CreateObject("MailServerX.User")
User.UserName="joe"
User.Password="secret"
' Now, create the Users object, and add new user
set Users=WScript.CreateObject("MailServerX.Users")
Users.Add User
MsgBox "Now your server has " & Users.Count & " users"



dim Users, User, i
set Users=WScript.CreateObject("MailServerX.Users")
i=Users.IndexOf("joe")
if i>-1 then
set User=Users.Items(i)
User.Password="newpassword"
Users.Items(i)=User
call MsgBox("Done")
else
call MsgBox("User not found")
end if


'First, prepare lists of recipients, message body, and list
'of attachments
dim Sender, Recipients, CC, Body, Attachments, MailMessage

'From header
set Sender=WSCript.CreateObject("MailServerX.AddressItem")
Sender.Name="John Doe"
Sender.Address="[e-mail]"

'To headers
set Recipients=WScript.CreateObject("MailServerX.AddressList")
Recipients.AddAddress "[e-mail]","Jane Doe"

'CC Headers
set CC=WScript.CreateObject("MailServerX.AddressList")
CC.AddAddress "[e-mail]","Jane Doe"

'Create message body
set Body=WScript.CreateObject("MailServerX.Lines")
Body.Add "Hi Jane"
Body.Add "I am sending test message. CC should go to your hotmail account"
Body.Add "Regards"
Body.Add "John"

'Attach files
set Attachments=WScript.CreateObject("MailServerX.Lines")
Attachments.Add "c:\temp\1.jpg"

'Now, create mail message itself, and assign values
set MailMessage=WScript.CreateObject("MailServerX.MailMessage")
MailMessage.From=Sender
MailMessage.ToRcpt=Recipients
MailMessage.CCRcpt=CC
MailMessage.Subject="Testing"
MailMessage.Body=Body
MailMessage.Attachments=Attachments

'Create SendMail object
dim SendMail
set SendMail=WScript.CreateObject("MailServerX.SendMail")

'Assign the message
SendMail.MailMessage=MailMessage

'and send it
SendMail.Send

call MsgBox("Mail has been sent")


。。。。。。。。。。。。。
还有很多！！就不在这里写了，想要自己发Email来，我认为好东东应该大家一起来用！

[jxzqsun]

到www.ntbar.com 去看看吧，有这样的组件。