请问，有谁编过例如EMILE收发器之类的东西？

Question

用NMSMTP和NMPOP3控件，很简单的。具体用法请查看Delphi的帮助和Demo。

Answer 1

用NMSMTP和NMPOP3控件procedure TForm1.Button2Click(Sender: TObject);
begin
  NMSMTP1.Host:=edit2.Text;//发邮件服务器地址
  NMSMTP1.Connect;//建立连接
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('给谁发呀？');
exit;
end;
if NMSMTP1.Connected then
  begin
    NMSMTP1.PostMessage.FromAddress := '[email protected]';//发邮件人的邮箱地址
    NMSMTP1.PostMessage.FromName := 'god';//发件人
    NMSMTP1.PostMessage.ToAddress.Text := Edit1.Text;//收件人
    NMSMTP1.PostMessage.Body.Text := Memo1.Text;//邮件内容
    NMSMTP1.PostMessage.LocalProgram := 'server';
    button1.Enabled:=false;
    NMSMTP1.SendMail;//发邮件
  end;
end;收邮件和此差不多，有用户名和密码的设置，你自己研究一下就可以搞定。
建议你自己装一个mail服务器软件，网上有许多免费的，这样不用上网就可以调试。

Answer 2

zanhc(重氢):你的代码没有通过 smtp身份验证,是发不出去邮件的:)

Answer 3

wzzsoft(上帝身边的男孩):
是否需要smtp身份验证因smtp服务器而定，如果需要就加上用户名和密码，建议找个不用验证的。会快一点。
另，delphi控件中有mail服务器的控件，如果有时间可以自己做个smtp服务器，这样自由度更大，在局域网就可以玩，不依赖其他软件。