Jump to content
Fórum Script Brasil

wilsonrosa

Membros
  • Content Count

    36
  • Joined

  • Last visited

Community Reputation

0 Neutro

About wilsonrosa

  1. Ok, Jhonas estou no aguardo e ainda tentando tb. Obrigado Abraço Bom Dia!!! Jhonas, você conseguiu fazer alguns testes sobre o assunto acima ? Grato WillRos
  2. Pessoal Estou tentando fazer uma lógica para agilizar o envio de email através do Outlook.Application. Até ai td certinho envia perfeitamente, pra um. Porém, quando faço a lógica com while e next na segunda vez q passa pela instrução TO para pegar um novo endereço de email aparece a mensagem abaixo: "The item has been moved or deleted." Código: while not (FPrincipal.QCursoFunc.Eof) do begin vEmailSupFunc:= buscaEmailSupFunc(FPrincipal.QCursoFuncCODFUNC.Value); vMailItem.To := vEmailSupFunc; FPrincipal.QCursoFunc.Next; end;
  3. Ok, Jhonas estou no aguardo e ainda tentando tb. Obrigado Abraço Bom Dia!!! Jhonas, você conseguiu fazer alguns testes sobre o assunto acima ? Grato WillRos
  4. Ok, Jhonas estou no aguardo e ainda tentando tb. Obrigado Abraço
  5. Boa Tarde Jhonas. Exatamente isso, navegando na internet descobri esse Findwindow e FindWindowEx. Consigo achar a janela pelo título porém, não está encontrando o botão Yes, com esse código q fiz e coloquei em um timer. Não se se falta alguma coisa. Codigo: procedure TForm1.Timer1Timer(Sender: TObject); var Wnd : HWND; I: integer; begin Wnd := FindWindow(nil,'Microsoft Office Outlook'); If Wnd <> 0 Then begin Wnd := FindWindowEx(Wnd, 0, 'button', nil); If Wnd <> 0 Then begin SendMessage (Wnd, WM_LBUTTONDOWN, 0, 0) ; SendMessage (Wnd, WM_LBUTTONUP, 0, 0 ) ; end; end ; end; Obrig
  6. Você recebe a mensagem "Um programa está tentando acessar emails armazenados no Outlook" porque, por razões de segurança, o Catálogo de Endereços do Outlook é protegido por programação. Essa mensagem é útil para impedir que outro programa acesse automaticamente o seu Catálogo de Endereços ou a lista de Contatos ou que envie mensagens em seu nome sem a sua permissão. A mensagem serve para permitir que alguns programas, como o Microsoft ActiveSync® ou o Palm Desktop, acessem as informações de seus contatos de modo que você possa sincronizar seu PDA. Entretanto, um vírus ou outro arquivo de
  7. Fala Jhonas, Pode ser muita coincidência mas vasculhando a net achei um post seu falando sobre essa maneira de enviar email e já estava testando no meu sistema e iria postar algumas dúvidas. Realmente melhora muito a velocidade, parece instantânea, mas tenho alguns inconvenientes q gostaria q se possível você me ajudasse. Toda vez q tento enviar um email ele me apresenta uma msg de alerta: "Um programa está tentando acessar os endereços de email q você tem armazenado no outlook. você quer permitir ? Se for uma msg inexperada pode ser um virus e escolha Não." Ai aparece 1,3,5,10 minutos e cl
  8. Jhonas, Não tem arquivo algum. Só tem o texto escrito no corpo do email. Vou fazer uns testes com esse componente e te retorno os resultados. Obrigado WillRos Jhonas, Analisando passo a passo o sistema com (F8), a demora ocorre quando quando ele passa pela instrução Send, tanto no NMSMTP1 quanto no IdSMTP1. Quando ele está sobre o NMSMTP1.send ou IdSMTP.send e pressiono a tecla F8 o cursor desaparece por uns 30s e reaparece na próxima instrução. Agradeço qualquer dica. WillRos
  9. Jhonas, Não tem arquivo algum. Só tem o texto escrito no corpo do email. Vou fazer uns testes com esse componente e te retorno os resultados. Obrigado WillRos
  10. Valeu jhonas, vou testar e posto os resultados. Obrigado WillRos
  11. Pessoal, Bom Dia!!! Um outro sistema q tenho aqui usa o componente NMSMTP para enviar email. Pois bem, enquanto estava com o Microsoft Exchange Server 2003 td funcionava bem porém com um upgrade para o MS Exchange Server 2007 o sistema ficou muito lento pra enviar email. Tenho percebido q para enviar um email tem demorado cerca de 30s. Alguém tem o mesmo problema ou já passou por isso ? Alguém sabe se com outro componente pode funcionar melhor ? Obrigado WillRos
  12. mas o erro acontece quando clico no botão editar. voce não postou o código .. dificil ajudar pesquise o erro usando o debugger do delphi ... caso contrario reveja toda a estrutura de suas tabelas abraço O botão editar só tem o nome da Adoquery.edit; mais nada, só q abro 10 tabelas e edito as 10 ao mesmo tempo. O erro ocorre quando passa pelo botão gravar onde tenho as tabelas as Adoquery.post; Só isso, por isso não postei. Obrigado mesmo assim. WillRos
  13. TCustomADODataSet.CursorLocation OBS: como voce pode perceber usar server-side (clUserServer) só e vantajoso se for necessario retornar num grande numero de registros da sua SQL e não for necessario retornar o ponteiro do registro então no seu caso seria melhor utilizar o clUserClient e não o clUserServer. A influencia seria apenas na velocidade de retorno de suas consultas abraço Bom Dia!!! Entendo o q me disse, mas o problema volta a aparecer quando coloco clUserClient. Em todas as tabelas não há erro nenhum na gravação de qualquer registro, ou seja todas as tabelas possuem todos os re
  14. se em alguma tabela não existir o registro ( seguindo o seu exemplo ) de nº 1000 é esse o erro que vai ocorrer abraço Jhonas, Acredito ter resolvido o problema da seguinte forma: Em cada tabela envolvida mudei a propriedade CursorLocation para clUseServer e o problema não mais ocorreu. você saberia me dizer se isso pode influnciar em alguma outra coisa, qualquer coisa, acesso pelo usuário (gravação ou alteração) por exemplo ? Agradeço a atenção WillRos
  15. se em alguma tabela não existir o registro ( seguindo o seu exemplo ) de nº 1000 é esse o erro que vai ocorrer abraço Mas verifiquei todas as tabelas no banco e todas tem o registro de nº 1000. Alguma sugestão ? No Aguardo Agradeço WillRos
×
×
  • Create New...