compadre, lamento mucho molestalo, es q persiste el error.
Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
mail : TIDMessage;
smtp : TIdSMTP;
begin
smtp := TIdSMTP.Create(self);
smtp.Name := 'Smtp';
with smtp do begin
AuthenticationType := atLogin;
Host :='INGENIERO_ABRAHAM@HOTMAIL.COM'; port := 25;
Username :='INGENIERO_ABRAHAM@HOTMAIL.COM'; Password := 'XXXX' end;
mail := TIdMessage.Create(Self);
with mail do begin
From.Address := 'INGENIERO_ABRAHAM@HOTMAIL.COM'; Recipients.EMailAddresses := 'INGENIERO_ABRAHAM@HOTMAIL.COM'; Subject := 'hola' body.Text := 'delphi' end;
try
smtp.Connect(10000);
try
smtp.Send(mail);
except
on E: Exception do
ShowMessage('Fallo al enviar: ' + E.Message);
end;
ShowMessage('Mensaje enviado satisfactoriamente');
finally
if SMTP.Connected then SMTP.Disconnect;
smtp.free;
mail.free;
end;
end;
este:
undeclared identifier: 'Username'
q sera.?
Última edición por dec fecha: 01-08-2007 a las 16:55:20.
|