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.