如何发送邮件呀？？？？？

Question

如何发送邮件呀，希望能找到一个最简单，最稳定的发送方法。

Answer 1

用Indy SMTP控件，有附事的demo.基本上可以满足一般的发mail需求。收也可以用Indy Pop3控件

Answer 2

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
　StatusMemo.Clear; 
　//设置SMTP
　SMTP.Host := ledHost.Text; //具体使用的SMTP，可以到你申请的邮箱所在的网站中去找
　SMTP.Port := 25;　//设置邮件内容
　MailMessage.From.Address := ledFrom.Text;
　MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;　MailMessage.Subject := ledSubject.Text;
　MailMessage.Body.Text := Body.Text;　if FileExists(ledAttachment.Text) then
　　TIdAttachment.Create(MailMessage.MessageParts, 
　　ledAttachment.Text);　　//发送邮件
　　try
　　　try
　　　　SMTP.Connect(1000);
　　　　SMTP.Send(MailMessage);
　　　except on E:Exception do
　　　　StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
　　　end;
　　finally
　　　if SMTP.Connected then 
　　　SMTP.Disconnect;
　end;end;