Fórum Autenticar e-mail #373336

 IdSMTP1.Connect();
    IdSMTP1.Authenticate;
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;

    showmessage(´E-mail enviado com sucesso...´);
    exit;
    except
     showmessage(´Erro ao enviar e-mail...´);
     abort;
    end;
    cds_log_movimento_email.FieldByName(´STATUS´).AsString := ´ENVIADO´;
    cds_log_movimento_email.Post;
    cds_log_movimento_email.ApplyUpdates(0);
   end;
   finally
   FreeAndNil(Q);
   end;