Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-09-2007
nfrfabian nfrfabian is offline
Miembro
 
Registrado: ago 2006
Posts: 55
Poder: 18
nfrfabian Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 19-09-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
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.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
En TADOQuery, con SELECT en algunas columnas da error. Me pide las otras Wonni Conexión con bases de datos 6 18-06-2007 15:23:34
Explicación de algunas propiedades de una conexion ADO. Wonni Conexión con bases de datos 3 24-05-2007 21:28:05
Yahoo y AOL cobrarán por enviar emails Sasuke_Cub Noticias 0 08-02-2006 06:27:34
enviar emails jmlifi Varios 9 25-11-2005 21:16:37
Cadenas de emails santana Humor 1 06-09-2004 16:38:00


La franja horaria es GMT +2. Ahora son las 01:22:16.


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
Copyright 1996-2007 Club Delphi