Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Emails, error de conexion en algunas PC (https://www.clubdelphi.com/foros/showthread.php?t=48229)

nfrfabian 19-09-2007 03:39:26

Emails, error de conexion en algunas PC
 
Hola, tengo el siguiente problema: Utilizo componentes INDI para enviar emails. Pense que funcionaba bien porque en mi computadora el envio se realizaba sin ningun problema. Pero cuando lo probe en otras 2 computadoras no funciona. Aparece un mensaje de que no se puede establecer la conexion, que se paso el tiempo para establecer la conexion. Primero pense que en las computadoras tendra que instalar algun software para que los componentes funcionen, pero despues probe la aplicacion en otras 3 computadoras y funciona bien.
Las computadoras donde funciona bien tienen las siguientes caracteristicas:
computadora 1: windows 2000 con delphi instalado.
computadora 2: windows 2000
computadora 3: windows xp
computadora 4: windows 98
todas las computadoras conextadas en red por medio de un router con conexion a internet. La red es hogareña.

las computadoras en donde no funciona tienen las siguientes caracteristicas:
computadora 1: windows 2000
computadora 2: windows xp

las dos computadoras son parte de una red mas grande con niveles de seguridad, dominio, etc.
Las dos computadoras tiene conexion a internet por medio de la red. Internet funciona bien con una velocidad de 2mb, el envio de email funciona usando el outlook.
Tengo la impresion que el problema pasa porque a las computadoras le falta algun componente, o de seguridad, quizas mi aplicacion no tiene permiso para enviar emails. Yo me inclino por la cuestion de seguridad, en estos momentos el administrador de la red no es encuentra, y yo sinceramente no tengo idea como se configura eso (si ese es el problema).
Realmente nose como resolverlo porque en las computadoras que yo tengo funciona bien.
Si el problema es que mi aplicacion no tiene permisos para realizar esa operacion, quisiera estar seguro que eso puede solucionar todo para decirles a los dueños de la empresa que busquen a una persona para que configure todo. Pero quiero estar seguro, para no quedar mal parado yo. El codigo que utilizo para probar la conexion es este:

Código Delphi [-]
procedure TSDIAppForm.Button1Click(Sender: TObject);
var lmessage: tidmessage;
  lTextPart: tidtext;
begin
         lMessage := TIdMessage.Create(Self);
      try
        lMessage.From.Name := 'nombre';
        lMessage.From.Address := 'micorreo@yahoo.com';
        with lMessage.Recipients.Add do begin
          Name := edit2.text;
          Address := edit2.text;
        end;
        //Aqui agrego las copias
        {with lMessage.CCList.Add do begin
          Name := 'Cliente';
          Address := 'emails@servidor.xx';
        end;}
        lMessage.Subject := 'ASUNTO  CUALQUIERA';
        lMessage.Body.Text := '';
        {Creo el cuerpo en TXT}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        lTextPart.Body.Text := 'Sistemas';
        lTextPart.ContentType := 'text/plain';
        {Aqui creo el cuerpo en HTML}
        lTextPart := TIdText.Create(lMessage.MessageParts);
        //lTextPart.Body.Text := ' Aqui se pone el código en HTMLPuede poner, cualquier objetoO puede incluir archivos HTML';
        lTextPart.Body.Assign(Memo1.Lines);
        lTextPart.ContentType := 'text/html';
        lMessage.Priority := mpNormal;
        {Creo el archivo adjunto}
        {Creo el archivo adjunto}
        //lAttachPart := TIdAttachment.Create(lMessage.MessageParts, sArchivoPDF);

        SMTP.Host := 'smtp.mail.servido.xx';
        SMTP.Port:= 25;
        SMTP.AuthType := atDefault;
        SMTP.Username:= 'xxx';
        SMTP.Password:= 'xxx';
        SMTP.Connect;
        SMTP.Send(lMessage);
      finally
        lMessage.Free;
        SMTP.Disconnect;
      end;

end;

Si me pueden dar una consejo. Se los voy a agradecer.

jhonny 19-09-2007 17:03:29

Al igual que tu, creo que el problema es de seguridad o que el puerto del servidor SMTP y POP3 de dicha red, es diferente a los puertos convencionales (25 y 110 respectivamente), averiguate con ellos cuales son los puertos que manejan y si necesitan validación, si es asi, entonces tendras que cambiar los puerto de los componentes de tu aplicación, a dicha configuración... en caso contrario ellos deberian colaborarte con la cuestión de la seguridad.


La franja horaria es GMT +2. Ahora son las 01:41:00.

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