Email

Question

Montei um folder em html agora preciso enviar por email, porem no corpo do email e nao como anexo, estou enviando via indy com delphi 7.Abs...

Massuda · Answer

[url=//forum.clubedelphi.net/viewtopic.php?t=71932]Este t�pico[/url] resolve seu problema?...

Felipeiw · Answer

Caro Massuda, neste artigo que vc me passou na epoca eu consegui enviar o email com um arquivo jpg, agora eu preciso enviar um arquivo com extensao html, esse arquivo � montado pelo delphi de acordo com algumas condi��es escolhidas pelo usuario, nesse html existe alem de textos fotos tb, resumindo eu gostaria de envial no corpo do email esse html, da maneira que ele � visto quando aberto.
Abs

Massuda · Answer

Talvez eu n�o tenha entendido seu problema, mas me parece que basta voc� seguir o item 3.4 do artigo, tomando cuidado de ajustar as tags <img src=...> do seu HTML com os Content-ID de cada anexo que contem a imagem a ser exibida no HTML.

Felipeiw · Answer

Obrigado Massuda, pela atencao.Ou sou eu que nao estou conseguindo entender sua explicacao, meu caso � o seguinte, tenho que gerar mala direta de aniversario, por exemplo, o pessoal de vendas montam um folder de promocao em jpg, seleciona os aniversariantes, e eu montei um modelo html com um cabe�alho padrao um local para colocar o nome do cliente, um local para o folder em jpg, um local para o rodape, ai conforme o delphi vai passando pelos clientes vou montando esse arquivo html, como segue abaixo, ai eu gostaria de colocar esse arquivo html gerado no corpo do email, eu imaginei que eu poderia passar o endereco de arquivo como fa�o quando � jpg ( lTextPart.Body.Text := �

�; ). Nao sei se consegui explicar.[code:1:d172692f0e] Writeln(Arquivo,��); Writeln(Arquivo,�

�); Writeln(Arquivo,�

�); Writeln(Arquivo,��); Writeln(Arquivo,��);[/code:1:d172692f0e]No final eu tenho o arquivo html gerado de acordo com um modelo criado no dreamweaver, simplesmente fui gravando linha a linha os codigos html gerados.Abs[/code]...

Massuda · Answer

Pegando o exemplo do gringo, na parte 3.4 do artigo dele...

var
  lMessage: TIdMessage;
  lTextPart: TIdText;
  lImagePart: TIdAttachment;
begin
  // ... some code here to initialize your SMTP server.
  // It could be done somewhere as well
  lMessage := TIdMessage.Create(Self);
  lMessage.From.Address := �myemail@mydomain.com�;
  lMessage.Subject := �My test email�;
  lMessage.Recipients.Add.Address := �someoneemail@somedomain.com�;
  lMessage.Body.Clear;

  lTextPart := TIdText.Create(lMessage.MessageParts);
  // costuma-se por aqui uma vers�o texto (n�o-HTML) do 
  // texto HTML que voc� pretende enviar
  lTextPart.Body.Text := �This is a plain text message�;
  lTextPart.ContentType := �text/plain�;

  lTextPart := TIdText.Create(lMessage.MessageParts);
  // aqui vai o seu HTML
  lTextPart.Body.Text := �<html><body>� +
    �<b>This is a HTML message with picture</b>� +
    // troque seus c:\suaimagem.jpg por um nome "simb�lico"
    �<img src="htmlbodyIMG0000.JPG" >� +
    �</body></html>�;
  lTextPart.ContentType := �text/html�;

  lImagePart := TIdAttachment.Create(lMessage.MessageParts,
    // aqui vai o nome de arquivo de sua imagem...
    �c:\suaimagem..JPG�);
  lImagePart.ContentType := �image/jpg�;
  // ...e isso associa sua imagem com o s�mbolo que usou no HTML
  lImagePart.Headers.Add(�Content-ID: <htmlbodyIMG0000.JPG>�);
  // ... A code to send a message
end;

� + ��; lTextPart.ContentType := �text/html�; lImagePart := TIdAttachment.Create(lMessage.MessageParts, // aqui vai o nome de arquivo de sua imagem... �c:suaimagem..JPG�); lImagePart.ContentType := �image/jpg�; // ...e isso associa sua imagem com o s�mbolo que usou no HTML lImagePart.Headers.Add(�Content-ID: �); // ... A code to send a messageend;[/code:1:2b9814453b]...

Felipeiw · Answer

Caro Massuda, ainda nao consegui, a linha lMessage.Body.Text := �<html><body>This is a HTML message</body></html>�; nessa propriedade como fa�o para criar varias linhas dessas ai poderei ir criando todo o codigo html dessa forma por exemplo:

      lTextPart.Body.Text := �<html><body><b>This is a HTML message</b></body></html>�+#1310+
                             �<html><body><b>This is a segundo linha HTML message</b></body></html>�;
//                           �<html><body><b>This is a quarto  linha HTML message</b></body></html>�+13;
//                           �<html><body><b>This is a quinto  linha HTML message</b></body></html>�+13;
//                           �<html><body><b>This is a sexto   linha HTML message</b></body></html>�;

Porem nao consigo fazer a quebra de linha, mesmo com #13+10, seria possivel isso?

Massuda · Answer

[quote:82923bf4e5]Porem nao consigo fazer a quebra de linha, mesmo com #13+10, seria possivel isso?[/quote:82923bf4e5]Quebra de linha em HTML n�o � 1310, pode ser
ou

...

. Por exemplo, usando
...[code:1:82923bf4e5]lTextPart.Body.Text := �� + �This is a HTML message
�+ �This is a segundo linha HTML message
� + �Outra linha HTML� + ��;[/code:1:82923bf4e5]...al�m disso, voc� s� pode ter um par ... e um para ...; esse tipo de coisa � o b�sico de HTML, d� uma olhada em alguma apostila de HTML....

Felipeiw · Answer

Massuda, mt obrigado pela paciencia e atencao, consegui o que eu queria fazendo o seguinte:

      lTextPart := TIdText.Create(idMsgSend.MessageParts);
      lTextPart.Body.LoadFromFile(�c:\aniversario.html�);
      lTextPart.ContentType := �text/html�;

Onde o arquivo aniversario eu gero a partir do delphi.

Abs

F�rum Email #316198