Ir para conteúdo
  • Cadastre-se

dev botao

AcbrMail Como colocar uma imagem de assinatura


Pedro_Manoel
Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 2581 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores
15 minutos atrás, Pedro_Manoel disse:

Bom dia gostaria de saber se tem alguma opção para colocar uma imagem de assinatura de email.

Desde já agradeço.

Movido para local mais apropriado.

Veja o demo no diretorio ACBr\Exemplos\ACBrTCP\ACBrMail que lá tem exemplo de como enviar imagem em HTML.

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

Bom dia.

Obrigado por responder, eu segui o exemplo mas não enviou a assinatura testei dos dois modos.

      Arq := tstringlist.Create;
      Arq.Add('<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"></head><body text="#000000" bgcolor="#FFFFFF">'+
                    '<img src=D:\Assinatura.png></body></html>');

      ACBrMail.Body.Assign(Arq);

-----------------------------------------

      Arq := tstringlist.Create;
      Arq.Add('<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"></head>'+
                    '<img src='+quotedstr('D:\Assinatura.png')+'></body></html>');

      ACBrMail.Body.Assign(Arq);

 

 

 

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution
37 minutos atrás, Pedro_Manoel disse:

Obrigado por responder, eu segui o exemplo mas não enviou a assinatura testei dos dois modos.

Você tentou da forma como está no exemplo?

<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"></head>
<body text="#000000" bgcolor="#FFFFFF">
<h1>Texto em HTML.</h1><br>
<p>Teste de Envio ÁÉÍÓÚÇçáéíúó ÝÍÃãõÕ</p><br>
<img src='cid:LogoACBr'>
</body></html>

No código:

    // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body;
    if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then
      ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr');

 

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

Obrigado BigWings e Juliomar Marchetti  

e todos que trabalham no projeto.

Faltou este bloco eu não tinha visto esta parte no exemplo .

 

59 minutos atrás, BigWings disse:

Você tentou da forma como está no exemplo?


    // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body;
    if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then
      ACBrMail1.AddAttachment(Dir + 'acbr_logo2.png', 'LogoACBr');

 

 

Editado por Pedro_Manoel
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2581 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.