怎么做一个邮件直发软件 自己的smtp服务器(100分)

有好多发送垃圾邮件的软件
可以不通过smtp服务器
而自己直接发信
有人知道这是怎么做的吗？

自己做一个邮件服务器吧!如果做不了，干脆去DownLoad一个，反正网上多，还带源码!

procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'smtp.vip.sina.com';
NMSMTP1.UserID := '';
NMSMTP1.Connect;
if NMSMTP1.Verify('') then
showmessage('success');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
NMSMTP1.PostMessage.FromAddress := '';
NMSMTP1.PostMessage.FromName := '';
NMSMTP1.PostMessage.ToAddress.Text := '';
NMSMTP1.PostMessage.ToCarbonCopy.Text := '';
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '';
NMSMTP1.PostMessage.Body.Text := 'safafdafdsaf';

NMSMTP1.PostMessage.Attachments.Text := '';
NMSMTP1.PostMessage.Subject := 'fafssafsaf';
NMSMTP1.PostMessage.LocalProgram := '';
NMSMTP1.PostMessage.Date := '20020202';
NMSMTP1.PostMessage.ReplyTo := '';
NMSMTP1.SendMail;


end;

我看看我的貼子

to ego, 能给个下载地址?

to CrazyIdea: 你给的这个代码能用吗? 我没有验证
还有 为什么发到我的信箱的代码和这个上面显示的代码不一样?
注意一下 上面的代码 好多没有显示出来 如你的信箱地址

用特快专递嘛！很简单的，而且根本不用smtp服务器，所有群发软件都是用的这个。
FoxMail中有这个功能。

SMTP服务器，可以用INDY开发

对于smtp服务器，delphi源码不多
http://sourceforge.net/projects/smtpsvr/
你可以用这个

to zqw0117
我的意思就是做个像foxmail那样的特快专递!

to wolfsong
你给的这个是? 可以用做单机的发信服务器?
我有些看不懂

用Google搜索Indy关键字，下载Indy控件，里面有完整的例子。

this? http://www.nevrona.com/indy/

给分了 新年快乐