Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Error en el envío de correo. (https://www.clubdelphi.com/foros/showthread.php?t=57936)

Cecilio 02-07-2008 17:28:20

Error en el envío de correo.
 
Hola.

Tengo un problema, intento enviar un mensaje a una cuenta de hotmail y me da un error que NO da cuando es a una cuanta de mi propio dominio.

El error es: "...class EIdSMTPReplyError with message 'Relay from non-local domains is not allowed'

Que según mi escaso ingles querrá decir que no se puede enviar desde un dominio no local. ¿ no ? Quiere decir que algo NO estoy poniendo bien.

Os pongo el procedimiento:
Código Delphi [-]
procedure TForm1.enviaMail(sdes: string; sub: string; l: TStringList);
begin

 with IdMessage1 do
  begin
    Body.Clear();
    Recipients.Clear();
    Subject := sub;
    Body.AddStrings(l);
    Sender.Address := 'mimail@mi_dominio.com';
    Sender.Name:='Mi nombre';
    Sender.Domain:='mi_dominio.com'; // esto lo he puesto despues
    Sender.User:='mimail@mi_dominio.com';
    Recipients.Add.Address := sdes;
  end;
//  idsmtp1.Username
  with IdSMTP1 do
  begin
    Host := 'mail.mi_dominio.com';
    Username := 'mimail@mi_dominio.com';
    Password := 'mipass';
    Connect();

    try
      Send(IdMessage1);
    finally

    end;
    if Connected then
      Disconnect();
  end;
end;

¿ que me está faltando poner ?

Saludos.


La franja horaria es GMT +2. Ahora son las 02:35:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi