Aprendiendo
22-07-2003, 02:24:33
Hola a tod@s.
Mi duda es la siguiente:
A la hora de realizar un pedido, si la opción email, está marcada se mandará un correo con un fichero añadido a la dirección de correo que tenga ese proveedor. Hasta aquí todo bien. Lo único que ocurre que me da este error '501. Invalid login'
El código que escribo es este, decirme si es correcto o no. (Coloco dos componentes de las Indy, idMessage e idSMTP).
with idMessage1 do
begin
Memo1.Lines.Add('Configurando cuerpo del email...');
{ Cuerpo del mensaje. }
Body.Clear;
Body.Add('Se envía fichero en formato PDF, el cual debe de ser visto con');
Body.Add('el programa Adobe Acrobat.');
{ Cuenta origen. }
From.Text := 'Cuenta desde la cual se manda.';
{ Cuenta destino. }
Recipients.EMailAddresses := FNvPedido.EMail.Text;
{ Asunto del email. }
Subject := 'Petición de pedido por parte de ???????? ';
{ Prioridad del mensaje, ALTA. }
Priority := TidMessagePriority(mpHighest);
{ Coloco archivo adjunto el cual enviar. }
TidAttachment.Create(idMessage1.MessageParts,'Ruta del fichero a mandar');
end;
{ Configuro autentificación. }
idSMTP1.AuthenticationType := atLogin;
idSMTP1.UserId := 'id del usuario'; ejemplo: pepito.perez.hola
idSMTP1.Password := 'Clave del usuario';
{ Configuro servidor SMTP. }
idSMTP1.Host := 'mailhost.terra.es';
idSMTP1.Port := 25;
try
Memo1.Lines.Add('Conectando con servidor SMTP...');
idSMTP1.Connect;
{ Envio el mensaje. }
idSMTP1.Send(idMessage1);
Memo1.Lines.Add('Email enviado.');
idSMTP1.Disconnect;
Memo1.Lines.Add('Desconectado.');
except
Memo1.Lines.Add('Fallo en la conexión con el servidor SMTP...');
Exit;
end;
{ Cierro la form. }
Close;
Esperando una pronta respuesta por vuestra parte, reciban un cordial saludo.
Mi duda es la siguiente:
A la hora de realizar un pedido, si la opción email, está marcada se mandará un correo con un fichero añadido a la dirección de correo que tenga ese proveedor. Hasta aquí todo bien. Lo único que ocurre que me da este error '501. Invalid login'
El código que escribo es este, decirme si es correcto o no. (Coloco dos componentes de las Indy, idMessage e idSMTP).
with idMessage1 do
begin
Memo1.Lines.Add('Configurando cuerpo del email...');
{ Cuerpo del mensaje. }
Body.Clear;
Body.Add('Se envía fichero en formato PDF, el cual debe de ser visto con');
Body.Add('el programa Adobe Acrobat.');
{ Cuenta origen. }
From.Text := 'Cuenta desde la cual se manda.';
{ Cuenta destino. }
Recipients.EMailAddresses := FNvPedido.EMail.Text;
{ Asunto del email. }
Subject := 'Petición de pedido por parte de ???????? ';
{ Prioridad del mensaje, ALTA. }
Priority := TidMessagePriority(mpHighest);
{ Coloco archivo adjunto el cual enviar. }
TidAttachment.Create(idMessage1.MessageParts,'Ruta del fichero a mandar');
end;
{ Configuro autentificación. }
idSMTP1.AuthenticationType := atLogin;
idSMTP1.UserId := 'id del usuario'; ejemplo: pepito.perez.hola
idSMTP1.Password := 'Clave del usuario';
{ Configuro servidor SMTP. }
idSMTP1.Host := 'mailhost.terra.es';
idSMTP1.Port := 25;
try
Memo1.Lines.Add('Conectando con servidor SMTP...');
idSMTP1.Connect;
{ Envio el mensaje. }
idSMTP1.Send(idMessage1);
Memo1.Lines.Add('Email enviado.');
idSMTP1.Disconnect;
Memo1.Lines.Add('Desconectado.');
except
Memo1.Lines.Add('Fallo en la conexión con el servidor SMTP...');
Exit;
end;
{ Cierro la form. }
Close;
Esperando una pronta respuesta por vuestra parte, reciban un cordial saludo.