Problema Gmail
 

Hola a todos, hice una aplicación la cual envía un mail(gmail ssl) al finalizar el proceso. El mismo desde mi casa funciona perfectamente, pero cuando lo quiero ejecutar en el trabajo, no funciona, no emite ningún error pero tampoco llega el mail. Alguien me puede dar una mano, muchisimas gracias!

Código Delphi [-]
Form1.IdMessage1.From.Address   := '[email protected]';
Form1.IdMessage1.From.Name     :=  'x';
Form1.IdMessage1.Body.text          :=  form1.label4.caption + #13 + '   ' 
  + Form1.label2.caption + '   ' + Form1.lblmuestra.caption;
Form1.lblmuestra.caption:= 'Calculando....';
Form1.lblmuestra.refresh;
Form1.IdMessage1.Subject       :=  nombrepc + '   ' + DateTimeToStr(Now);
Form1.IdMessage1.Recipients.EMailAddresses := '[email protected]';
Form1.idsmtp1.Connect;

¿Has descartado problemas de conexión? Firewalls, Antivirus, Proxy's,...
¿El Connect no devuelve nada?

¿Que no falta el idsmtp1.Send(IdMessage1);?

// Saludos