Tem uma opção no OutLoco, desabilita a confirmação de envio por outros
programas,
passa um pente fino nas configurações do mesmo.
Em 07/02/06, prof. Reinaldo A. Pereira (yahoo account) <
[EMAIL PROTECTED]> escreveu:
>
> 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
>
>
>
>
>
>
>
>
[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
