高分求发送邮件和邮件群发例程。(200分)

TO EveryOne
本人正在做一软件，需要嵌入发送邮件和邮件群发的功能，
本人使用的是DEPHI 7 ,
不知各位有例子没有，若有，请发给小弟：
renshi@china.com.cn
本人不胜感激!并高分送上,分不够可以再加

UP

我记得delphi自己带的demo里面有这方面的例程！你可以参考一下！！

我记得大富公翁上有很多高手的？怎么现在这么少呢？

不是没有高手　而是这个问题以前有人问过很多次了　你只需要下载一个离线数据库搜索
一下就行了

To Cwmdelpher
你好！我刚才也搜了一下，没有看到好的，
你有DELPHI　7做的例子吗？

太多了，很多书上都有

我这里有个VB的　用的是winsock控件　
（1）协议的选择：
INTERNET是基于TCP/IP协议簇（注：TCP--Transfer Control Protocol，IP--In
ternet Protocol），而INTERNET上的邮件的发送则是基于TCP/IP协议簇的应用层
协议SMTP 或 IMAP（注：SMTP--Simple Mail Transfer Protocol，IMAP--Inter
net Mail Application Protocol），考虑到SMTP是传统的邮件协议，有更多的邮
件服务器兼容，因此，选用SMTP。
（2）下面给出本程序所用到的SMTP命令集：
HELO 域名
使得服务器能够识别你的域名；
MAIL FORM ：发信者的地址
确定发信者的地址（必须在服务器别你的域名之后）；
RCPT TO ：收件人的地址
确定收件人的地址（本命令可以多次使用从而达到“群发的目的”）；
DATA
让服务器将后面的数据认为是邮件内容
邮件的内容应该是ASCII，UNICODE应转换为ASCII，邮件用一个单行的‘.’表示
结束；
QUIT
退出，服务器开始发信。
（3）实现方式：
考虑到程序比较简单，因此使用VISUAL BASIC（TM）作为开发语言，使用WINSOC
K 控件作为远程连接工具，使用通用SMTP端口：25（十进制）。
（4）源程序：
Dim nreceived As Integer

Private Sub Command3_Click()‘断开按钮
nreceived = 1
Winsock1.Close
Text1.Text = ""
End Sub

Private Sub Command4_Click()‘清除地址按钮
For i = 0 To targetlist.ListCount - 1
targetlist.RemoveItem i
Next
End Sub

Private Sub Form_Load()
nreceived = 1
End Sub

Private Sub targetlist_KeyPress(KeyAscii As Integer)‘列表框事件
If KeyAscii = 13 And targetlist.Text <> "" Then targetlist.AddItem (ta
rgetlist.Text)
End Sub

Private Sub Command1_Click()‘发送按钮
Select Case nreceived
Case 1
Beep
Winsock1.SendData "helo " + yourmailfield.Text + Chr$(13) + Chr$(10)
nreceived = nreceived + 1
Case 2
Winsock1.SendData "mail from :" + youraddress.Text + Chr$(13) + Chr$(1
0)
nreceived = nreceived + 1
nreceived = nreceived + 1
Case 4
For i = 0 To targetlist.ListCount - 1
Winsock1.SendData "rcpt to :" + targetlist.List(i) + Chr$(13) + Ch
r$(10)
Next i
nreceived = nreceived + 1
Case 5
Winsock1.SendData "data" + Chr$(13) + Chr$(10)
nreceived = nreceived + 1
Case 6
Winsock1.SendData maintext.Text + Chr$(13) + Chr$(10)
nreceived = nreceived + 1
Winsock1.SendData "." + Chr$(13) + Chr$(10)
nreceived = nreceived + 1
Case 8
Winsock1.SendData "quit" + Chr$(13) + Chr$(10)
nreceived = nreceived + 1
End Select
End Sub

Private Sub Command2_Click()‘连接按钮
Winsock1.RemoteHost = smtp.Text
Winsock1.RemotePort = 25
For i = 1 To 1000
Next
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '数据到达时

Dim str As String
Winsock1.GetData str
Text1.Text = Text1.Text + Chr$(13) + str + Chr$(10)
Call Command1_Click
End Sub

给我信箱　我给你个delphi的

好，renshi@china.com.cn

您的信件已经成功发送到 renshi@china.com.cn

这是在D6下的

D6,没有D7的吗？不过我先看看，因为我这里也有几个D6的例子

D7下　的INDY控件组中有个smtp控件　是做这方面程序的　在D7下我也没有做过　只是在
D6下做过　

我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的
我呸！
制造垃圾的

楼上的兄弟是什么意思？

发垃圾邮件的
呵呵

学习

这东西还是少造的好，我那个邮箱，一天都要收到几封垃圾邮件哪。

评价一个软件，不能这样的，是用使用者用它来做什么？
比如说吧！我是想在节日的时候给我的客户发一些祝福之类的
内容，但是每次写比较麻烦，所以想群发啦！
不知各位还有没有DELPHI　7的例子？

我有D5的例子