wilsonrosa

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

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; Alguém sabe me dizer como posso resolver isso ? Grato WillRos

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

Ok, Jhonas estou no aguardo e ainda tentando tb. Obrigado Abraço

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; Obrigado por enquanto WillRos

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 programa indesejado pode usar a mesma funcionalidade para se propagar. Essa mensagem aparece se um programa tenta acessar o Catálogo de Endereços. Em geral, não há como impedir a exibição desse aviso. Essa mensagem não é exibida quando o Outlook interage com software de sincronização confiável. http://www.techtips.com.br/programacao/out...aves_do_delphi/ possivel solução: http://www.rsoutlook.com/blog/2004/06/um-p...aceder-aos.html abraço Fala Jhonas beleza ? Agradeço se post, entendi sobre a msg do outlook. Porém, navegando na net achei alguma coisa em VB q poderia me ajudar e estou tentando passar para Delphi. O código está abaixo dentro de um timer. Em VB se declará algumas APIs do Windows, porém em Delphi o código abaixo roda sem as declarações. procedure TForm1.Timer1Timer(Sender: TObject); var Wnd : HWND; I: integer; begin Wnd := FindWindow(nil,'Aviso Sistema'); If Wnd <> 0 Then begin Wnd := FindWindowEx(Wnd, 0, 'button', 'Sim'); If Wnd <> 0 Then begin SendMessage (Wnd, WM_LBUTTONDOWN, 0, 0) ; SendMessage (Wnd, WM_LBUTTONUP, 0, 0 ) ; end; end ; end; O único problema é q não estou conseguindo chegar até o botão Sim da janela principal q está com o título "Aviso Sistema", q na realidade é outro projeto feito em Delphi no evento OnCreate do Form só para aparecer dois botões Sim e Não através do Application.Message. você poderia me ajudar como me referenciar a esse botão na linha do FindWindowEx ? Obrigado mais uma vez Abraço WillRos

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 clico em SIm e o email vai. Como posso fazer para essa msg não aparecer e o email ser enviado? Obrigado e Abraço WillRos

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

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

Valeu jhonas, vou testar e posto os resultados. Obrigado WillRos

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

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

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 registros gravados, mas o erro acontece quando clico no botão editar. Obrigado

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

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