[delphi-br] Imagens em Indy 9 e PageProducer

Sun, 13 Nov 2005 18:49:07 -0800 

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


[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

Responder a