Hola perdon...corregi el titulo, la aplicacion esta efectuada en delphi 7 e Indy10 - es un servidor propio de la empresa de mails, me dicen que no llegan a ver que se enviaron los mails.
Los mails que se usan son dentro de la empresa no hay Hotmail, gmail. El sistema manda un mail a un empleado que solicita algo, le envia una respuesta al mail de la empresa. Pero si 5 empleados de golpe mandan una solicitud envia el sistema 3 mails, hago un F8 veo que pasa por Connect() , smtp.Send( pero no llega nada) no da error tampoco. Pero si envio ujn mail solo y a los 10 minutos otro trabaja la aplicacion normalmente.
el codigo:
Cita:
try
// CONEXION CON EL SERVIDOR DE CORREO
smtp.Connect();
SMTP.Authenticate;
try
// ENVIO DEL MENSAJE
smtp.Send(mail);
except
on E: Exception do
unmail := '';
//ShowMessage('Fallo al enviar: ' + E.Message);
end;
//ShowMessage('Mensaje enviado satisfactoriamente');
finally
if SMTP.Connected then SMTP.Disconnect;
smtp.free;
mail.free;
|