Haber, os voy a poner el codigo entero porque a mi me funciona perfectamente.
Código:
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
Código:
Mail.AddAttachment('Direccion del archivo');
Funciona perfectamente, no hay ningun motivo para que no funcione y no uso ningun tipo de componentes especial.
Salu2