用Delphi做个自动发邮件的Demo

Question

用Delphi做个自动发邮件的Demo，在网上找资料说是用Tidsmtp这个控件，但不知道怎么使用？谁有这方便的实例给参考一下！谢谢！

Answer 1

TidSmtp、TidPoP3、TidMessage 知道关于这几个控件的属性的也可以！

Answer 2

IdSMTP1,IdMessage1 用这两个控件就行
procedure TForm1.SendMail;
var
  mailaddress:TIdEMailAddressItem;
  i:integer;
begin
  try
    if IdSMTP1.Connected then
      IdSMTP1.Disconnect;
    IdMessage1.charset:='GB2312_CHARSET';
    IdMessage1.ContentType:='text/html';
    IdSMTP1.Host :='邮件服务器';
    IdSMTP1.Connect;
    //发信人
    IdMessage1.From.Address :='邮箱';
    IdMessage1.From.Name :='用户名';
    IdMessage1.Recipients.Clear;
    mailaddress := IdMessage1.Recipients.Add;
    mailaddress.Address := '邮箱';
    IdMessage1.ReplyTo.Clear;
    mailaddress := IdMessage1.ReplyTo.Add;
    mailaddress.Address := '邮箱';
    //主题
    IdMessage1.subject:='合同后台计算日志信息';
    //信件内容
    with IdMessage1.Body do
    begin
      Clear;
      Add('test');
    end;
    //发送
    IdSMTP1.Send(IdMessage1);
  finally
    if IdSMTP1.Connected then
      IdSMTP1.Disconnect;
  end;
end;

Answer 3

3楼的很详细了 补偿下
是163的 对INDY是有过滤的 
会报d sequence of commands '. 
需要procedure  TIdSMTP.Send(AMsg:  TIdMessage);这个函数里  
  将SendCmd('RSET');        {Do  not  Localize}这行注释掉