nfrfabian
19-09-2007, 03:39:26
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:
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 := '<html> 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.
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:
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 := '<html> 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.