我要做一个网站，要实现自动给网站用户发信的功能，请问该
如何实现？是租用一个邮件服务器还是asp中可用编程实现还是
用我自己的邮箱（如新浪、163等的邮箱）发送？
---------------------------------------------------------------

应该自己编程可以实现的,不过我不太懂
我知道你可以使用 javascript的定时器+XMLHTTP对象来实现定时发送HTTP请求,你可以定时向这个叶面来发送请求,发送EMAIL用这个叶面来实现
---------------------------------------------------------------

可以用编程实现。要一个发送email的组件。
然后：
sub send_jmail()
dim jmail
set jmail=server.createobject("jmail.smtpmail")
jmail.serveraddress="2002.66.102.1" 'ip地址
jmail.sender=senderemail '你的emial
jmail.subject=subject '标题
jmail.addrecipient recipient '收件人
jmail.addrecipientcc strcc '副本
jmail.body=body '内容
jmail.execute
set jmail=nothing
end sub

---------------------------------------------------------------

1 ``` @language=vbscript

12 ```
2option explicit

 1<html>   
 24 <head>   
 35 <title>发邮件</title>   
 46 </head>   
 57 <body bgcolor="#ffffff">   
 68 ```
 7   
 89 dim strname,strsubject,strquery,strsender,strfile   
 910 strname=trim(request.form("recivename"))   
1011 strsubject=trim(request.form("subject"))   
1112 strquery=trim(request.form("message"))   
1213 strsender=trim(request.form("sender"))   
1314 strfile=trim(request.form("file"))   
1415 if (strname&amp;lt;&amp;gt;""and strsubject&amp;lt;&amp;gt;"" and strquery&amp;lt;&amp;gt;"" and strsender&amp;lt;&amp;gt;"") then   
1516 dim objmail   
1617 set objmail=server.createobject("cdonts.newmail")   
1718 objmail.from=strsender   
1819 objmail.to=strname   
1920 objmail.subject=strsubject   
2021 objmail.body=strquery   
2122 if strfile&amp;lt;&amp;gt;"" then   
2223 objmail.attachfile strfile   
2324 end if   
2425 objmail.send   
2526 response.write "successful, thank you!"   
2627 set objmail=nothing   
2728 else   
2829

发邮件

31 <form 32="" "="" action=" =request.servervariables(" method="post" script_name")="">
33
34
36
38
40
42
44

收件人	<input 35="" name="recivename" size="40" type="text" value=""/>
主题	<input 37="" name="subject" size="40" type="text" value=""/>
邮件	<textarea 39="" cols="40" name="message" rows="10">
发件人	<input 41="" name="sender" size="40" type="text" value=""/>
附件	<input 43="" name="file" size="40" type="file" value=""/>

45
46
47
48 ``` end if

149 </body>   
250 </html>

该程序可以发送

第10-14行将从表单获得的数据赋给变量。

第30-47行是发邮件填写的表单

第15行语句判断表单是否填写。如果没填写，则执行30-47行语句。

第17行创建一个对象newmail，它允许用send方法发送电子邮件。接受如下参数： objmail.send fromaddress , toaddress , subject , body , importance

含义为fromaddress表示发件人地址，toaddress表示收件人地址，subject表示主题，body表示邮件内容，importance表示重要性（0为不重要，1为正常，2为重要）。

第18-21行将发件人，收件人，主题，邮件内容的值赋给newmail对象的各个属性。

第22判断是否有附件，若有，则赋给newmail的attachfile属性。

第25行发送邮件。

第27行销毁objmail对象。设置为nothing 。

newmail还有bodyformat和mailformat属性。Bodyformat用来指明邮件正文是纯文本（值为1）还是包含HTML（值为0）。Mailformat指明是文本消息（值1）还是MIME格式消息（值0），可在HTML格式邮件中使用图象。

---------------------------------------------------------------

ADO里面自己带的有一个

你不用去下载，看看里面的帮助

我以前做过类似的

如何实现给用户自动发送Email?

发邮件