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

Seg Nov 14 16:22:28 -03 2005

bom, anexe a imagem ao e-mail.

Mas isto é off-topic, se desejar maiores informações, sugiro procurar uma 
lista de delphi.

Sucesso,

=========================
Eduardo Jedliczka
Membro do TeamFB - FireBase
Apucarana - Pr
=========================
----- Original Message ----- 
From: "Valdir Marcos" <valdir.marcos em ig.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, November 14, 2005 1:45 AM
Subject: [firebase-br] Off-Topic - Imagens em Indy 9 e PageProducer

> 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
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa 