Enviar un mail - metodo eficaz

[Khronos]

Haber, os voy a poner el codigo entero porque a mi me funciona perfectamente.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Mail: Variant;
begin
 Mail:= CreateOleObject('CDO.Message');
 Mail.From:= edit1.text;
 Mail.Subject:= edit2.text;
 Mail.TextBody:= richedit1.lines.text;
 Mail.To:= edit3.text;
 Mail.Send;
 Mail:= Unassigned;

end;

end.

Este es el codigo basico, para enviar un mail sin archivo adjunto.
Si quereis enviar un archivo adjunto, tendreis ke añadir el metodo

Mail.AddAttachment('Direccion del archivo');

Funciona perfectamente, no hay ningun motivo para que no funcione y no uso ningun tipo de componentes especial.

Salu2