[firebase-br] Off-Topic - Imagens em Indy 9 e PageProducer

Seg Nov 14 01:45:41 -03 2005

Delphi 7 + IBX 7.08 + FB 1.5.2.4787

Eu fiz programinha que pega uma página html:
--------------------------------
<html>
<p>Caro <b><#NOME></b>,
<br><br>
<p align=center>Lista de Preços<br>
  <a href=http://www.teste.com.br>Lista de Produtos</a> </p>
<p align=center><img src="Produto1.jpg" width="512" height="147"></p>
<p align=center><img src="http://www.teste.com.br/testes/Produto1.jpg" 
width="512" height="147"></p>
</body>
</html>
--------------------------------

e a envia para os meus clientes:
--------------------------------
   // Configura o Cliente SMTP
  idSMTP1.Username:=edUsuario.Text;
  idSMTP1.Password:=edSenha.Text;
  idSMTP1.Host:=edHost.Text;
  idSMTP1.Port:=StrToInt(edPorta.Text);
  idSMTP1.AuthenticationType := atLogin;

  // Busca o conteúdo do arquivo html
  PageProducer1.HTMLFile := edtexto.Text;

  // Abre a Tabela de Emails
  Query1.Open;
  Query1.First;

  // Desconecta do Servidor
  idSMTP1.Disconnect;
  // Conecta ao Servidor
  idSMTP1.Connect;

  try
    // Atribui o conteudo do edAssunto ao IdMessage
    idMessage1.Subject:=edAssunto.Text;
    idMessage1.From.Text:=edConta.Text;

    // Neste caso, a imagem foi anexada,
    // mas ela não aparece durante a mensagem.
    // Ela é apenas mais um anexo
    // TIdAttachment.Create(IdMessage1.MessageParts, 'Produto1.jpg');

    while not(Query1.Eof) do
    begin
      // Atribui o conteudo do campo EMAIL ao IdMessage
      idMessage1.Recipients.EMailAddresses := 
Query1.FieldByName('email').Value;

      idMessage1.ReceiptRecipient.Address := 
Query1.FieldByName('email').Value;

      // Atribui o conteudo do pp1 ao IdMessage
      idMessage1.Body.Text := PageProducer1.Content;

      //Envia mensagem
      idSMTP1.Send(idMessage1);

      //Próximo Registro
      Query1.Next;
    end;
    Application.MessageBox(
        'Emails enviados com sucesso !',
        'Lista de Produtos',mb_ok);
   finally
     idSMTP1.Disconnect;
   end;
   idMessage1.Body.Text := PageProducer1.Content;
--------------------------------

O texto html é enviado corretamente para todos os clientes, mas não consigo 
fazer as imagens dos produtos aparecerem dentro do email, e, alguns clientes 
têm leitores de email que bloqueiam mensagens externas do tipo -->> img 
src="http://www.teste.com.br/testes/Produto1.jpg".

Alguém poderia me ajudar?

Um abraço,

Valdir Marcos