MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Inserir Assinatura em E-mail

    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 2/5/2019, 19:46

    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 !
    Anexos
    [Resolvido]Inserir Assinatura em E-mail Attachmenttesteemail.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (279 Kb) Baixado 17 vez(es)
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 21/5/2019, 15:30

    Alguém saberia como me ajudar ?

    Desde já, obrigado !
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 21/5/2019, 15:51

    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
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 21/5/2019, 18:15

    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 !
    Anexos
    [Resolvido]Inserir Assinatura em E-mail Attachmenttesteemail.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (248 Kb) Baixado 10 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 23/5/2019, 09:46

    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
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 27/5/2019, 13:13

    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 27/5/2019, 15:57

    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
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 27/5/2019, 18:21

    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 !
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 27/5/2019, 22:59

    Olá,

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

    Abraço
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 28/5/2019, 14:02

    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 !

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 28/5/2019, 16:19

    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
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 28/5/2019, 17:49

    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 !
    Leonardo Favale
    Leonardo Favale
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 116
    Registrado : 05/04/2018

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  Leonardo Favale em 3/6/2019, 17:05

    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 !
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6747
    Registrado : 15/03/2013

    [Resolvido]Inserir Assinatura em E-mail Empty Re: [Resolvido]Inserir Assinatura em E-mail

    Mensagem  ahteixeira em 3/6/2019, 17:29

    Olá Leonardo,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 2/7/2020, 07:52