再问发电子邮件！急！(200分)

请问谁能给发送电子邮件的原码，或控件，200分想送！

如果控件就可以的话你可以看delphi自带的demo啊，在delphi安装目录下的demo/internet
/pop目录下就有，告诉你TPOP3控件的用法。

同意 terry_lzs

我只需要发邮件，用NMSMTP应该可以，但是不知如何设属性，比如
HOST，USERID，在进行身份验证的时候总是通不过，我要详细说明
请各位帮忙，如果答得好，还可以再加分！

DFW原来也是浪得虚名！

to cold-tiger:
什么意思呢？

host是你要用于发信的smtp服务器的地址
userid是你用于登录smtp服务器的用户名，不过现在有些smtp服务器不需要，如smtp.21cn.com
验证失败的原因应该是你用的那个smtp服务器需要验证用户，而你填的userid不是它的用户。

NMSMTP1.Host := Edit1.Text;
//host属性为smtp地址，像新浪smtp.sina.com.cn,163.net的smtp.163.net
//如有代理需设代理的地址
NMSMTP1.Port := StrToInt(Edit2.Text);
// port属性25，smtp端口
NMSMTP1.UserID := Edit4.Text;
//Userid属性是email的用户名，
NMSMTP1.Connect;
//连接

NMSMTP1.PostMessage.FromAddress := Edit6.Text;
//发件人地址
NMSMTP1.PostMessage.FromName := Edit5.Text;
//发件人姓名
NMSMTP1.PostMessage.Subject := Edit10.Text;
//邮件主题
NMSMTP1.PostMessage.ToAddress.Add(Edit7.Text);
//收件人地址
NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(Edit9.Text);
//密抄
NMSMTP1.PostMessage.ToCarbonCopy.Add(Edit8.Text);
//抄送
NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);
//附件
NMSMTP1.PostMessage.Body.Assign(Memo1.Lines);
//正文
NMSMTP1.SendMail;
//发送

够具体了吧，给分吧。

国外有一个INDY组件，非常有名，可以使用，另外还有一个ICS组件，也非常不错，
这两个组件内都包含有收发信的单元，都能够满足你的需求。下载网网址

你可以自已搜搜，不要什么都等着别人。

1）不要那么说
2）据说indy将是d6的标准控件了，它的功能比较全，如支持esmtp (rfc2554的认证)
,而且有自带的pop3 smtp的例子，当然你还要根据自己的smtp server做基本的调整。

多人接受答案了。