急，邮件发送的小问题！！！

Question

急！！！
小弟想编一个简单的电子邮件程序，只需要实现发送不带附件的邮件，因为对这块不熟，特来求助，请问需要那些控件，源码是什么？还望写写详细些，谢谢了！！！

Answer 1

如果是简单的用用的话，你可参照delphi本身 demo里自带的例子
应付简单发送没问题的啦

Answer 2

这怎么错了？告诉我550 is not authorized（wrong sender mailaddr）
procedure TForm1.btnSendClick(Sender: TObject);
begin
with IdMsgSend do
  begin
    Body.Assign(Membody.Lines);
Recipients.EMailAddresses := edtsendTo.Text; { To: header }
    Subject := edtSubject.Text; { Subject: header }
    Sender.Text := '21@12';end;
  SmtpServerName:=edit1.Text;
  SmtpServerPort:=25;
  SMTP.Host := SmtpServerName;
  SMTP.Port := SmtpServerPort;
  SMTP.Connect;
  try
    SMTP.Send(IdMsgSend);
  finally
    SMTP.Disconnect;
  end;
end;

Answer 3

D:\Borland\Delphi6\Demos\Indy\MailClient
delphi自带的例子，功能强大