[delphi-br] Re: Jpeg, erro URW3950

2006-05-30 Por tôpico Reinaldo A Pereira



Amigos,

Pra qualquer projeto que eu coloque

uses Jpeg,

Obtenho o seguinte erro:
internal error:URW3950

Alguém tem idéia do que seja isso?
   

-
  Yahoo! doce lar. Faça do Yahoo! sua homepage.

    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  

PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.












[delphi-br] Jpeg, erro URW3950

2006-05-27 Por tôpico Reinaldo A Pereira



Amigos,

Pra qualquer projeto que eu coloque

uses Jpeg,

Obtenho o seguinte erro:
internal error:URW3950

Alguém tem idéia do que seja isso?

    
-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.












[delphi-br] Internal error: URW3950 - JEDI

2006-05-22 Por tôpico Reinaldo A Pereira



Amigos,

Alguém sabe que erro é esse? Estou tentando intalar a biblioteca JEDI. A instalação não termina e eu não consegui identificar o que se trata.

JclGraphics.pas(525) Fatal: Internal error: URW3950

Abraços

Reinaldo

    
-
 Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora.

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











[delphi-br] Componente Draw

2006-05-22 Por tôpico Reinaldo A. Pereira



Amigos, 
   
  Alguém conhece algum componenta para criar objetos gráfico como entidades relacionamentos.
  Estou trabalhando numa ferramenta de desenho de ER para interbase e a questão visual é problemática.
   
  Abraços,
   
  Reinaldo

    
-
 Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora.

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











[delphi-br] Relacionamentos gráficos

2006-05-19 Por tôpico Reinaldo A. Pereira



Amigos,
  
 Alguém conhece algum algoritmo que permita  desenhar linhas entre objetos? Como quando ligamos uma tabela na outra em  ferramentas case e aparece aquela linha com a ligação.
 Se tiver um exemplo melhor ainda.
  
 Abraços,
  
 Reinaldo

    
-
 Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











[delphi-br] Consulta página web

2006-04-25 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)



 Amigos,

 

Estou tentando o código:

 

s :=
'https://www.arinternet.pr.gov.br/LinkImprime.asp?ePagina=TRAMIPAF&eUser=&eP
AF=12548852’;

Memo1.Lines.Add(HTTP.Get(s));

 

E o programa me retorna o seguinte erro:

 

IOHandler value is not valid

 

Se eu copiar a linha e colocar no link do Browser funciona.

 

Alguém sabe do que se trata esse erro?

 

Abraços,

 

Reinaldo



[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 Termos do Serviço do Yahoo!.












[delphi-br] Como obter o tipo de um campo no TSimpleDataSet

2006-04-12 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

 

 

O código abaixo executa um filtro numa Dataset. Todavia, acontece um erro na
cláusula LIKE quando o campo selecionado é do tipo integer.

Pergunto: Como faço para descobrir através da aplicação o tipo de um campo
do Dataset?

Ou: Existe alguma forma de fazer um LIKE que funcione tanto para campos
texto como para campos inteigos?

 

Muito grato,

 

Reinaldo

 

  with sdsArtigos do

  begin

   Filtered := false;

   if Operando = ' Like ' then

Filter :=
dbGrade.Columns[cbFiltrar.ItemIndex+1].FieldName
+Operando+QuotedStr('%'+edFiltrar.Text+'%')

   else

Filter :=
dbGrade.Columns[cbFiltrar.ItemIndex+1].FieldName
+Operando+QuotedStr(edFiltrar.Text);

 //  Showmessage(Filter);

   Filtered := true;

   lbTotal.Caption :=  IntToStr(sdsArtigos.RecordCount);

  end;



[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

 




[delphi-br] E-mail - discussão importante

2006-04-03 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos, 

Prestem atenção em meu raciocínio.

- Mandar e-mail para o Outlook Express pelo Delphi não é uma boa solução
porque as mensagens vão para a Caixa Rascunho e precisam ser enviadas uma a
uma.

- Pelo Outlook a cada mensagem enviada o programa pede confirmação de envio.

Sendo assim, a melhor opção acaba sendo pelo Indy.

Todavia, estou notando alguns problemas com o Indy.

Primeiro: Como mando mensagens para mais de 1000 cooperados, estou enviando
e-mail pelo Delphi e lendo pelo Outook Express. Todavia o provedor as vez
encerra a conexão inesperadamente.

Segundo: E mais grave. As primeiras mensagens que mando funcionam
perfeitamente bem. Depois de um número grande de mensagens, não obtenho mais
respostas de envio nem mensagens de e-mail errados. Acredito que após um
número de mensagens o provedor simplesmente não aceita mais e-mail ou sei lá
o que.

Isso confere um grau de incerteza muito grande a aplicação.

Sendo assim, peço aos amigos que ajudem a exaurir a discussão de envio de
e-mail:

- como tratar mensagem de erros.

- como os provedores orientam sobre mensagem em massa.

- materiais sobre o assunto.

Espero conseguir informações importantes para mim e para outros que também
devem passar pelo mesmo problema.

Abraços.





[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

 




[delphi-br] dbtrid para mestres

2006-03-21 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

Colo colocar uma imagem no título de uma dbgrid. No corpo da dbgrid tem
vários exemplos, no título nem imagino como conseguir.

Abraços

Reinaldo 

 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/286 - Release Date: 20/03/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/286 - Release Date: 20/03/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

 




[delphi-br] Aspnet

2006-03-17 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

Alguém tem ou sabe onde tem exemplo de aplicação Aspnet com acesso a banco
de dados e menus para eu começar a me aventurar no ambiente Web?

Grato,

Reinaldo


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.4/283 - Release Date: 16/03/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.4/283 - Release Date: 16/03/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

 





[delphi-br] SMTP para mestres

2006-03-12 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

 

Vi num site de download um programa que enviava e-mail sem usar o servidor
FTP. É possível isso? Como implementar. Imagino que a aplicação fica muito
mais rápida. Olhem o texto do programa.

 

Suporta multi-threads, SMTP múltiplo, BCC e métodos de envio direto (DNS),
dispondo de alta velocidade de envio de mensagens de texto/html, também
suporta múltiplos assuntos/ replica de e-mails. Envie mensagens de e-mail
com este programa fácil de usar e poderoso.

 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 268.2.1/279 - Release Date: 10/03/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 268.2.1/279 - Release Date: 10/03/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

 




[delphi-br] Unknown Protocol

2006-03-03 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

 

Estou tentando o seguinte código:

 

MemoHtml.Text := Http.Get('www.cade.com.br');

 

Estou usando o Delphi 2006 que baixei da Borland para teste. No Delphi 7
funciona perfeitamente, nessa versão aparece o seguinte erro:

 

UNKNOWN PROTOCOL

 

Alguém sabe como resolvo isso?

 

Abraços,

 

Reinaldo 


--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 268.1.1/273 - Release Date: 02/03/2006



-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 268.1.1/273 - Release Date: 02/03/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

 





[delphi-br] OutLook

2006-02-07 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
Amigos,

 

Alguém sabe onde posso encontrar material sobre o Outlook da versão 2000 em
diante. Estou interessado em desenvolver um add-in e ta muito difícil
encontrar exemplos e materiais.

 

Grato

 


-- 
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

 




RES: [delphi-br] Envio pelo Outlook - cabeluda!!!!

2006-02-07 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
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

 




[delphi-br] Envio pelo Outlook - cabeluda!!!!

2006-02-07 Por tôpico prof. Reinaldo A. Pereira \(yahoo account\)
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 >

<*> 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