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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-02-2005
pampitasnowman pampitasnowman is offline
Miembro
 
Registrado: Aug 2003
Ubicación: La Plata, Argentina
Posts: 41
Poder: 0
pampitasnowman Va por buen camino
Unhappy Problemas con el envio de mails

Buenas! Tengo el siguiente algoritmo para enviar mails desde usuarios hasta mi casilla:

Código Delphi [-]
SMTP.Host := 'smtp.ciudad.com.ar';
SMTP.Port := 25;
SMTP.Password := 'xxxxxx';
SMTP.Username := 'pepito@ciudad.com.ar';
Mail.ClearBody;
Mail.From.Name := 'Pedido Fotográfico';
Mail.Subject := 'Cliente: ' + LabeledEdit1.Text;
Mail.Recipients.EMailAddresses := 'pepito@ciudad.com.ar';
Mail.Body.AddStrings(Memo1.Lines);
TidAttachment.Create(Mail.MessageParts, Edit1.Text);
try
   try
      SMTP.Connect();
      SMTP.Send(Mail);
      MessageDlg('Los pedidos se enviaron con éxito.', mtInformation, [mbOk], 0);
   except on E:Exception do
      MessageDlg('No se pudo conectar con el servidor. Chequee su conexión...', mtError, [mbOk], 0);
   end;
finally
   if SMTP.Connected then
      SMTP.Disconnect;

El problema es el siguiente: cuando lo ejecuto en mi PC, el mail se envia correctamente a mi casilla, pero lo ejecuto en cualquier otra PCs y salta el except donde esta el mensaje "No se pudo conectar con el servidor. Chequee su conexión...". Tengo Windows XP Professional, Delphi 7, SP2, Indy 9 y Sygate Personal Firewall. En las otras PCs que probé tenían firewall y tampoco e podían enviar. Leí y releí el algoritmo, lo comparé con el ejemplo que traen las Indy y en teoría tendría que funcionar, pero no, solo funciona en mi PC. Muchas gracias.
__________________
Tome Pin y haga Pum!
Responder Con Cita
  #2  
Antiguo 21-02-2005
pampitasnowman pampitasnowman is offline
Miembro
 
Registrado: Aug 2003
Ubicación: La Plata, Argentina
Posts: 41
Poder: 0
pampitasnowman Va por buen camino
Por lo que estube averiguando el algoritmo funciona perfecto y el error está en el SMTP. Cuando yo ejecuto el algoritmo en otra PC que tiene mi mismo ISP (Internet Server Provider, en este caso ciudad internet, argentina) el mail se envia perfectamente, pero si lo hago desde otra PC con otro ISP, el mail no sale porque el SMTP es de otro ISP. Probé usando alguno mail POP gratuito como Gmail o HotPOP, pero tampoco salían los mails (ni siquiera de mi conección). ¿Hay alguna forma de solucionar esto desde Delphi? Muchas gracias.
__________________
Tome Pin y haga Pum!
Responder Con Cita
  #3  
Antiguo 22-02-2005
Urano Urano is offline
Miembro
 
Registrado: Sep 2004
Ubicación: Ciudad de México
Posts: 34
Poder: 0
Urano Va por buen camino
Hola
Lei tu mensaje privado.
Te puedo comentar que si tus usarios están conectados a internet y el firewall permite enviar mails, debe funcionar. Aunque es poco probable que tu ISP tenga un filtro antispam para que si el IP no pertenece a este ISP no procese el correo. Lo mejor es que lo aclares con tu ISP, creo que tiene la obligación de dejar bien claros puntos como este.

Lo que te sugiero es que si esto lo usas como parte de tu negocio, consigas un hosting, donde no tendrás problemas como este.
Si quieres te recomiendo uno muy bueno (el mío, ja ja ja). Los precios son desde 50 dólares por año. Chécalo, tiene muchas ventajas pero este no es el lugar para hacerme promoción, mejor mándame otro private mail

Saludos.
__________________
Urano González
Software Craftsman
www.HospedamosTuSitio.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


La franja horaria es GMT +2. Ahora son las 12:53:54.


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