Con este truco puedes enviar mails de manera facil y sin problemas. Añadir ComObj a los uses.
Código:
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