[firebase-br] Off-Topic - Imagens em Indy 9 e PageProducer
Valdir Marcos
valdir.marcos em ig.com.br
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
Mais detalhes sobre a lista de discussão lista