Veja do endereço abaixo:
HYPERLINK
http://delphi.about.com/od/kbcontrolole/l/aa110403a.htmhttp://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 i10 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.brhttp://www.nod32.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
http://br.groups.yahoo.com/group/delphi-br/messageshttp://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.htmlTermos 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