Mudar Fonte em Email (Indy)

Question

Ol� amigos,Gostaria de saber como posso mudar a fonte utilizada no corpo do email enviado pelo par de componentes IdMessage e IdSMTP.Obrigado....

Massuda · Answer

Se a sua mensagem est� formatada em HTML, use o recurso apropriado do HTML para ajuste do fonte.

Se sua mensagem � texto simples, n�o tem como ajustar o fonte; quem controla isso � o programa usado por quem recebe o email.

Ramms · Answer

Massuda, enquanto n�o obtive resposta continuei pesquisando, estou tentando em HTML, mas n�o obtenho exito, vou postar o c�digo:


procedure Tfrmexportadados.BitBtn4Click(Sender: TObject);
var
  assunto:string;
  filename:string;
  mensagem:string;
  lTextPart: TIdText;
begin
filename := �Remessa_� + FormatDateTime(�ddMMyyyyhhmm�, Now);
  IdMessage.Sender.Name := �Servi�o de Envio de Arquivos de Remessa�;
  IdMessage.Recipients.EMailAddresses := �xxx@xxxx.xxx.xx�;
  assunto := �Arquivo de Remessa: � + FormatDateTime(�dd/MM/yyyy - hh:mm�, Now);
  IdMessage.Subject := assunto;
  IdMessage.Body.Clear;
mensagem := �<html><body><font face=verdana>Arquivo Enviado em � + FormatDateTime(�dd/MM/yyyy - hh:mm�, Now) + #13 +
�Por: � + frmprincipal.edit1.text + 13 +
�Nome do Arquivo: � + filename + �</font></body></html>�;
  lTextPart := TIdText.Create(idmessage.MessageParts);
  lTextPart.Body.Text := mensagem;
  lTextPart.ContentType := �text/html�;

  TIdAttachment.create(idmessage.MessageParts, TFileName(filename+�.xls�));
  IdSMTP.Connect;
  IdSMTP.Send(IdMessage);
  IdSMTP.Disconnect;
  Application.MessageBox(�Email enviado com sucesso!�, �Confirma��o�, MB_ICONINFORMATION + MB_OK);

Ele envia o email, mas n�o aparece nada no corpo da mensagem, se eu enviar IdMessage.Body.Text := �ehuiaheuia�; ele vai mas n�o aceita tags, ele imprime as tags...

Obrigado

Massuda · Answer

D� uma olhada no artigo [url=//www.dragonsoftru.com/?html=indy-email.html]EMAIL MESSAGES FROM DELPHI. USING INDY TO SEND E-MAILS[/url] (de Serge Dosyukov da Dragon Software, em ingl�s). O artigo explica como gerar diversos tipos de mensagens (texto simples, texto simples com anexos, HTML e HTML com anexos); a parte 3.3 explica como gerar uma mensagem formatada em HTML. Mesmo que voc� n�o leia ingl�s, o c�digo exemplo deve te ajudar....

Ramms · Answer

Massuda eu montei meu bloco de comandos em cima desse artigo, mas n�o consigo entender pq simplesmente n�o envia nada no corpo da mensagem =/Eu li e re-li akilo e n�o achei o problema...

Massuda · Answer

Qual erro est� ocorrendo?...

Ramms · Answer

N�o ocorre erro, ele simplesmente ignora isso

mensagem := �<html><body><font face=verdana>Arquivo Enviado em � + FormatDateTime(�dd/MM/yyyy - hh:mm�, Now) + #13 +
�Por: � + frmprincipal.edit1.text + 13 +
�Nome do Arquivo: � + filename + �</font></body></html>�;
  lTextPart := TIdText.Create(idmessage.MessageParts);
  lTextPart.Body.Text := mensagem;
  lTextPart.ContentType := �text/html�;

� como se isso n�o existisse, ele n�o envia nada na mensagem ela vai com meu anexo vai tudo certinho mas sem o corpo da mensagem.

se eu fizer assim ele envia

IdMessage.Body.Text := mensagem;

Mas ele printa as tags html tbm =/

Massuda · Answer

Mostre seu c�digo....

Ramms · Answer

ele est� ali em cima massuda, no terceiro post....

mas vou postar de novo

procedure Tfrmexportadados.BitBtn4Click(Sender: TObject);
var
  assunto:string;
  filename:string;
  mensagem:string;
  lTextPart: TIdText;
begin
filename := �Remessa_� + FormatDateTime(�ddMMyyyyhhmm�, Now);
  IdMessage.Sender.Name := �Servi�o de Envio de Arquivos de Remessa�;
  IdMessage.Recipients.EMailAddresses := �xxx@xxxx.xxx.xx�;
  assunto := �Arquivo de Remessa: � + FormatDateTime(�dd/MM/yyyy - hh:mm�, Now);
  IdMessage.Subject := assunto;
  IdMessage.Body.Clear;
mensagem := �<html><body><font face=verdana>Arquivo Enviado em � + FormatDateTime(�dd/MM/yyyy - hh:mm�, Now) + #13 +
�Por: � + frmprincipal.edit1.text + 13 +
�Nome do Arquivo: � + filename + �</font></body></html>�;
  lTextPart := TIdText.Create(idmessage.MessageParts);
  lTextPart.Body.Text := mensagem;
  lTextPart.ContentType := �text/html�;

  TIdAttachment.create(idmessage.MessageParts, TFileName(filename+�.xls�));
  IdSMTP.Connect;
  IdSMTP.Send(IdMessage);
  IdSMTP.Disconnect;
  Application.MessageBox(�Email enviado com sucesso!�, �Confirma��o�, MB_ICONINFORMATION + MB_OK);

Massuda · Answer

Desculpe por pedir para mostrar o c�digo, pensei que seu c�digo j� estivesse diferente do que voc� j� tinha postado.

Aparentemente o c�digo est� OK.

O que chega no destino? Tem certeza que o email n�o est� sendo classificado como spam?

Ramms · Answer

ele chega com o assunto, remetente e anexo certinho, s� que na mensagem vem em branco... sem texto nenhum......

Massuda · Answer

S� agora que percebi que voc� est� mandando um arquivo anexo na mensagem.

Pode parecer estranho, mas inclua no seu c�digo...

...
  IdMessage.Body.Clear; 

  lTextPart := TIdText.Create(idmessage.MessageParts); 
  lTextPart.Body.Text := ��; 
  lTextPart.ContentType := �text/plain�; 

  mensagem := ...
...

Existe um bug no Indy que causa a perda da parte da mensagem em HTML se n�o existir uma parte em texto e houver anexos.

Ramms · Answer

Finalmente funcionou, obrigado Massuda.Na vers�o 10 esse bug foi corrigido?...

Massuda · Answer

[quote:b64df37fdf=�Ramms�]Na vers�o 10 esse bug foi corrigido?[/quote:b64df37fdf]N�o uso a vers�o 10....

F�rum Mudar Fonte em Email (Indy) #331456