Enviar un mail - metodo eficaz

[Khronos]

Con este truco puedes enviar mails de manera facil y sin problemas. Añadir ComObj a los uses.

procedure TMailer.Button5Click(Sender: TObject);
var 
Mail: Variant;
ArchivoAdjunto: boolean;
begin
 Mail:= CreateOleObject('CDO.Message');// no esta en W xp
 Mail.From:= edit1.text; //mail remitente
 Mail.Subject:= edit3.text;  //asunto
 Mail.TextBody:= memo1.Text;  //contenido del mail
 Mail.To:= edit2.text;   //mail receptor
 If ArchivoAdjunto=true then begin
 Mail.AddAttachment(edit4.text);  //añadir un archivoadjunto
 end;
 Mail.Send;  //enviar
 Mail:= Unassigned;
end;

Espero que se entienda.

Salu2