Veja do endereço abaixo:
HYPERLINK "http://delphi.about.com/od/kbcontrolole/l/aa110403a.htm"http://delphi.about .com/od/kbcontrolole/l/aa110403a.htm Ainda não conseguir enviar os e-mails sem o pedido de confirmação de Outlook. []s _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ® Enviada em: terça-feira, 7 de fevereiro de 2006 14:36 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Envio pelo Outlook - cabeluda!!!! Amigo, como vc esta pegando os endereços de e-mail do outlook? Eu tinha uma função (que eu perdi) que pegava os endereços de e-mail do outlook, mas se dentro do catálogo de endereços existisse algum grupo, ela dava erro. Pergunto: alguém tem uma função que pegue o catálogo de endereços, mesmo com o grupo? -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de prof. Reinaldo A. Pereira (yahoo account) Enviada em: terça-feira, 7 de fevereiro de 2006 10:34 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Envio pelo Outlook - cabeluda!!!! Amigos, Preciso enviar e-mail pelo Outlook para todos os professores de nossa instituição. Usei o seguinte código: i := 0; while i<10 do begin try Outlook := GetActiveOleObject('Outlook.Application'); except Outlook := CreateOleObject('Outlook.Application'); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add([EMAIL PROTECTED]'); vMailItem.Subject := 'teste de email '+inttostr(i); vMailItem.Body := 'Este é um teste'; // Corpo do vMailItem.Send; i := i+1; VarClear(Outlook); end; Acontece que a cada mensagem, o Outlook apresenta uma mensagem de autorização de envio. Aí pensei, em vez de enviar dentro do Delphi pelo Outlook, vou enviar todas para a caixa de saída do Outlook. Fiz isso apenas trocando: vMailItem.Save; Todas as mensagens foram para a caixa de rascunhos. Daí, movi todas as mensagens (180) para a caixa de saída. Acontece que na caixa de saída, quando executo enviar/receber o Outlook não envia as mensagens que eu movi. Daí, tenho mandar uma a uma. O que não resolve meu problema. Amigos, como resolvo esse problema? -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 267.14.23/242 - Release Date: 26/01/2006 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 267.15.2/252 - Release Date: 06/02/2006 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos __________ Informação do NOD32 1.1397 (20060207) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus HYPERLINK "http://www.nod32.com.br"http://www.nod32.com.br -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> "http://br.groups.yahoo.com/group/delphi-br/messages"http://br.groups.yahoo. com/group/delphi-br/messages Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE HYPERLINK "http://br.ard.yahoo.com/SIG=12f5omm6t/M=393477.7870451.8719931.2369893/D=br clubs/S=2137111264:HM/Y=BR/EXP=1139337393/A=3254979/R=0/id=noscript/SIG=12k5 j3olb/*http:/www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E 87847EEEBE_3" \n _____ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: HYPERLINK "http://br.groups.yahoo.com/group/delphi-br/"http://br.groups.yahoo.com/grou p/delphi-br/ * Para sair deste grupo, envie um e-mail para: HYPERLINK "mailto:[EMAIL PROTECTED]"delphi- [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos HYPERLINK "http://br.yahoo.com/info/utos.html"Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 267.15.2/252 - Release Date: 06/02/2006 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.375 / Virus Database: 267.15.2/252 - Release Date: 06/02/2006 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html