MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 111
    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 : 111
    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 : 6379
    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 : 111
    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 7 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    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 : 111
    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 : 6379
    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 : 111
    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 : 6379
    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 : 111
    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 : 6379
    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 : 111
    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 : 111
    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 : 6379
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/11/2019, 08:46