Socket error # 10060 connection time out (cuando adjunto archivos de mas de 500 kb)

[Avellas]

Hola buenas tardes, tengo un aplicativo que envia correos con archivo adjunto desde delphi con una cuenta de gmail, el problema se presenta cuando adjunto un archivo de mas de 500kb.

uso delphi 2010 y los componentes indy

se que este error se encuentra en varios post, pero resulta que solo me lo genera el aplicativo cuand adjunto un archivo de mas de 500kb, con archivos pequeños no se presenta y no he encontrado nada en internet que me de una luz de lo que puede estar pasando.

Agradezco si alguien me puede ayudar. de antemano gracias

[Casimiro Notevi]

¿Qué código usas?

[Avellas]

Código Delphi [-]
Procedure TFrmEnviar.EnviarCorreo;
var
  Password: String;
  ledAttachment: String;
Begin
  IdMessage.Clear;
  Password := TRIM(QryCorreoOrigenCLAVE.AsString);
  IdMessage.FromList.EMailAddresses := TRIM(QryCorreoOrigenEMAILORIGEN.AsString);   //correo desde el que envia
    IdMessage.Recipients.EMailAddresses := Trim(EdtDestino.Text); 

  IdMessage.Subject := Trim(EdtAsunto.Text);
  IdMessage.Body.AddStrings(Memo1.Lines);
  ledAttachment := (ExtractFilePath(ParamStr(0)) + 'BROCHURE' + '.PDF');
//  ledAttachment := Trim(EdtAdjunto.Text);
  if ledAttachment <> '' then
  Begin
     TIdAttachmentfile.Create(IdMessage.MessageParts, ledAttachment);
   end
   else
     ledAttachment := '';

  IdSMTP.Username := Trim(QryCorreoOrigenEMAILORIGEN.AsString); // ;
  IdSMTP.Password := Password;

  try
    if not IdSMTP.Connected then
      IdSMTP.Connect;


    Try
       IdSMTP.Send(IdMessage);

      except

       On E: Exception do
         ShowMessage(E.Message);
       End;

  finally
      IdSMTP.Disconnect(True);

  end;
End;

[ecfisa]

Hola Avellas.

Por favor cuando incluyas código usa las etiquetas de este modo:


Le dá mas legibilidad y seguramente recibas mas respuestas. (Ya las agregué a tu mensaje)

Saludos