MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Envio de email com imagem

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    [Resolvido]Envio de email com imagem Empty [Resolvido]Envio de email com imagem

    Mensagem  fazerbem 15/7/2018, 16:25

    Ola, tenho esta linha de comando no meu envio de email, em que é enviado o Email com uma imagem no corpo do email.

    Código:


    .HTMLBody = Replace(Me.txtMensagem, vbCrLf, "<br>") & "<br><br><br><br>Atenciosamente.<br><br>André Luiz<br><br>Fone:(21)xxxxx<br><br>Zap:(21)xxxxxxxxx<br><br>www.xxxxxxxx" & "<br>" _
                   & "<img src='C:\Gerencia\SysVendas\Email\Banner1.jpg'>"



    Porem a imagem Banner1 poderia ser outra imagem qualquer.
    Para isso eu quero por no formulario de envio uma Caixa de Texto onde irei escrever nela o nome da imagem desejada.
    Quando fizer o envio entao quero algo semelhante a isso:

    Código:


    & "<img src='C:\Gerencia\SysVendas\Email\ & IMAGEM & .jpg'>"



    Onde IMAGEM = caixa de texto do formulario

    Como psso fazer esta adaptacao ?

    Grato

    Andre
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    [Resolvido]Envio de email com imagem Empty Re: [Resolvido]Envio de email com imagem

    Mensagem  fazerbem 17/7/2018, 16:38

    Consegui aqui

    Código:
    .HTMLBody = Replace(Me.txtMensagem, vbCrLf, "<br>") & "<br><br><br><br>Atenciosamente.<br><br>André Luiz<br><br>Fone:xxxxxxxx<br><br>Zap:xxxxxxxxxxxx<br><br>www.fazerbem.com.br<br><br>Instagran:Suplementos_FazerBem" & "<br>" _
                   & txtAssinatura.Value
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Envio de email com imagem Empty Re: [Resolvido]Envio de email com imagem

    Mensagem  Alvaro Teixeira 17/7/2018, 16:43

    Olá Andre Luiz,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Envio de email com imagem Empty Re: [Resolvido]Envio de email com imagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2024, 20:37