在delphi中怎么发送email

[conduit2000]

[conduit2000]

这么简单的问题我怎么实现不了阿，能不能发个简单的实类过来啊谢谢。[e-mail]

[conduit2000]

user ID应该设置为什么啊同志们

[linzi]

http://www.csdn.net/expert/topic/99/99801.shtm

[jtsy]

在 FastNet 页面有 NMSMTP 组件，利用他可已发送邮件，
在delphi 的 NMSMTP 组件帮助文件中有它的例子:看SendMail方法，有例子
发信速度很快。

[foolishcat]

NMSMTP好象毛病多多，不过一般的发信还是没问题的，设置一下相关属性就行了

[conduit2000]

怎么设置属性啊

[guoyuzhang]

设置用户名、口令等，看看例子吧！

[conduit2000]

只有email地址，[e-mail]怎么通过TnmSmtp发送email能不能提供一些程序。

[piaoyes]

NmSTMP的属性和方法不多，关键的属性是Host（STMP服务器名称）和PostMessage（包含邮件信息），正确设置了Host属性和PostMessage属性后，就可以用Connect方法（连接服务器）和SendMail方法发送E－mail了。
STMP服务器名称应是不用认证的服务器，如smtp.21cn.com



　　procedure TForm1.Button1Click(Sender: TObject);
begin
　　 with Nmsmtp1 do
　　 begin
　　 Host:=服务器名称;
　　PostMessage.ToAddress.Add(收件人地址);
　　PostMessage.FromAddress:=发件人地址;
　　PostMessage.FromName:=发件人名称;
　　PostMessage.Subject:=邮件主题;
　　 PostMessage.Attachments.Add(附件文件名);
　　 Connect;
　　 Sendmail;
　　 DisConnect;
　　 end;
　　 end;



别忘了给分！！我快没分了