[Resolvido]Inserir Assinatura em E-mail

Boa tarde, Pessoal ! Eu peguei um banco com um formulário de envio de e-mails e adaptei um pouco a minha necessidade dentro de minhas limitações de conhecimento em acess e VBA para o meu trabalho. Peço a ajuda de vocês pois estou precisando inserir após o texto da Mensagem do E-mail (txtMensagem) ou seja no corpo do e-mail a minha assinatura digital que seria uma foto.jpg e não sei como fazer isso.

Segue o banco em anexo para poderem verificar

Desde já, Obrigado !

Alguém saberia como me ajudar ?

Desde já, obrigado !

Olá Leonardo,

O código que partilhou apresenta erros, para corrigir:

ALT+F11 -> DEBUG -> COMPILE e verifique

Quanto à dúvida verifico que o código já tem em baixo do lado esquerdo previto assinatura em imagem.

Se pretende adicionar "em texto" no código onde tem:

Código:

.HTMLBody = strCorpoTexto

altere por:

Código:

.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & "Enviado por código by MaximoAccess"

e teste.

Pode utilizar um campo (strAssinatura) para assinatura, por exemplo:

Código:

.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & strAssinatura

Abraço

Olá Obrigado, mas desculpe minha ignorância, pois meus conhecimentos são limitados, Não entendi como faria para adicionar no código a assinatura carregada ao lado pelo botão "Inserir Assinatura" e que é visualizada no campo Me.AssinaturaDigital ? No caso como inserir a imagem deste caminho, abaixo do texto do campo txtMensagem  ?

Eu tentei adicionar da forma que você falou, provavelmente fiz algo errado, mas ai ele só está enviando o caminho da Imagem, não estou conseguindo enviar a imagem mesmo em ".jpg"

Segue o banco atualizado.

Obrigado por enquanto !

Olá Leonardo,

O exemplo que partilhou (atualizado), continua apresentar erros, para corrigir:

ALT+F11 -> DEBUG -> COMPILE e verifique é nos IFs

Fiquei foi na dúvida se pretende colocar assinatura em texto ou foto, entretanto vou verificar melhor o código.

Tem o código original (onde foi busca o exemplo), pode partilhar?

Abraço

Oi desculpe sim ele ainda está com erro que na verdade extrai foi apenas esse formulário do meu banco original que é muito grande para compartilhar, então peço a gentileza de desconsiderar. Quanto ao código estou querendo enviar em foto.. no caso a foto (imagem em JPG) da assinatura, mas ele está enviando tipo somente o caminho tipo "C:\\imagem.jpg" e não a imagem propriamente dito.

Obs. o código ele está funcionando quanto ao envio etc dos e-mails, somente essa parte da assinatura que não consegui fazer funcionar.
Aguardo abraço.

Olá Leonardo,

Colocar uma imagem local como imagem de assinatura desconheço.

No entanto, se o corpo do email está no formato HTML e tendo uma imagem "Online" conseguimos fazer isso.
Coloquei esta imagem Online na seguinte url:

Código:

https://i84.servimg.com/u/f84/19/61/75/43/fotoas10.jpg

Para testar no seu código onde tem:

Código:

'CORPO DO TEXTO
.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & strAssinatura


altere por:

Código:

'CORPO DO TEXTO
.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & "<br></br><img src="https://i84.servimg.com/u/f84/19/61/75/43/fotoas10.jpg">"


e teste

Abraço

Ah sim justamente ela a principio é algo local interna a ser carregada, mas ai desculpe minha ignorância não seria basicamente a mesma logica do anexo ? Porém no corpo do E-mail ? Ou não rola assim ? Isso em tese não saberia como fazer dai..

Obrigado de qualquer forma !

Olá,

Testou com a dica da mensagem n. 7, funcionou?

Abraço

Sim testei mas não funcionou copiando o código ele acusa erro tinha "aspas" a mais :
Você passou assim:

Código:

.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & "<br></br><img src="https://i84.servimg.com/u/f84/19/61/75/43/fotoas10.jpg">"

Corrigi assim:

Código:

.HTMLBody = strCorpoTexto & Chr(13) & Chr(10) & "<br></br><img src=https://i84.servimg.com/u/f84/19/61/75/43/fotoas10.jpg>"

Ai blz funcionou ele enviou a imagem.

Mas ai para isso eu precisaria ter uma imagem online para enviar e no meu caso gostaria de carrega-la conforme esse banco, ou seja carrega-la e envia-la no caminho que encontra a imagem tipo:

strImagens = Application.CurrentProject.path & "\Imagens\AssinaturaDigital.jpg

será que é possível ?

Aguardo abraço !

Olá Leonardo,

Foi uma sugestão não, testada, obrigado pelo retorno.
Quando acontece essa situação usamos o Chr(34) ficando algo assim:

Código:

.HTMLBody = strCorpoTexto & "<br></br><img src=" & Chr(34) & "https://i.servimg.com/u/f84/19/61/75/43/fotoas10.jpg" & Chr(34) & ">"

Pelo menos já tem uma forma de enviar a "assinatura" em imagem (foto).
Como referi na mensagem nº 7 desconheço, no entanto fiz uma busca e encontrei este exemplo que não testei.

Verifico que a origem do código que utiliza, estava previsto enviar como pretende, mas o código não está completo.
O ideal seria partilhar o exemplo original antes de alterar para o seu projeto.

Abraço

Pior é que não tenho mais o exemplo original.... não lembro da onde consegui peguei por ai e adaptei ao meu projeto, como primeiramente era a funcionalidade do E-mail apenas estava ok, mas ai vi a necessidade e a praticidade que teria se conseguisse já acrescentar a assinatura entende ?

Mas lhe agradeço de qualquer forma.. ainda deixarei em aberto para ver se alguém saberia solucionar essa questão sem ser com a imagem online, caso não tentarei ver outra forma ou mudarei a assinatura para texto sem o logo da empresa (que seria necessário ter).

Abraço e obrigado por enquanto !

Estou encerrando este tópico porque acabei resolvendo com a imagem online, cfe. msgs anteriores mesmo, ao invés da minha ideia inicial !

Obrigado de qualquer forma a todos !

Olá Leonardo,

Obrigado pelo retorno, o fórum agradece.

Abraço