Email con delphi??

[LordBits]

este es utilizando las componente TWinshoeSMTP.

 procedure SendMail;
 var
  sToo  : TStringList;
  sText : TStringList;
  i	 : integer;
 begin
 
   sToo  := TStringList.Create;
   sText := TStringList.Create;
   try
    sToo.Add('[email protected]')
    SMTP.Host   := '10.10.10.11';
    sToo.Append('[email protected]');
    msg.Too	 := sToo;
    msg.Subject := 'JIBM';
    sText.Append('este es desde mi programa sin thread por el momento');
    msg.Text	:= sText;
    msg.From	:= '[email protected]';
    msg.Attachments.AddAttachment('c:\cursocpp.pdf');
    SMTP.Send(msg);
    except
     
   end;
 end;

[roman]

Empezado por LordBits

utilizando las componente TWinshoeSMTP.

Si no recuerdo mal las componentes WinShoes son las ahora conocidas como Indy. En los foros hay varios ejemplos de envio de correo con Indy, por ejemplo, éste:

http://www.clubdelphi.com/foros/show...ghlight=idsmtp

// Saludos