none
Link com variavel no .HTMLBody ao enviar email. RRS feed

  • Pergunta

  • Boa noite amigos.

    Tenho uma rotina que envia emails através do VBA com o Objeto CDO.

    Gostaria de no corpo do email colocar um link, porém este link teria uma variavel ao final do mesmo.

    Ficaria mais ou menos assim:

    .HTMLBody = "Acesse o site:<a href =""http://www.link.com/id=&id"">www.link.com</a>" & _
    "</font></body></html>"

    O problema é que não estou conseguindo que a variavél seja incorporada ao link, o link é inserido normalmente ao HTMLBody, mas a variavél do id não.

    Gostaria de saber se no vba tem como colocar uma variavel no link?


    Douglas Godoy goodoy@yahoo.com.br

    terça-feira, 7 de maio de 2013 03:22

Respostas

  • Bom dia a todos.

    Consegui resolver o problema.

    Solução:

    Declarei a variavel, que buscaria o id em uma célula e mudei a estrutura do link colocando aspas conforme exemplo abaixo.

    Ao invés de montar o link com o endereço e colocar a Id a variável já traz o link pronto.

    'Declarando variavel
    Dim link_afiliado As String
    
    'Atribuindo valor a variavel
    link_afiliado = Sheets("Config").Range("D13").Value
    
    'Variavel no link
    .HTMLBody = "Acesse o site:<a href =""" & link_afiliado & """>" & link_afiliado & "</a>" & _ "</font></body></html>"

    Lembrando que para que de certo a célula que contém o link tem de estar com o endereço correto e com o ID.

    Abraços


    Douglas Godoy goodoy@yahoo.com.br

    • Marcado como Resposta Douglas Godoy terça-feira, 7 de maio de 2013 11:34
    terça-feira, 7 de maio de 2013 11:34

Todas as Respostas

  • Bom dia a todos.

    Consegui resolver o problema.

    Solução:

    Declarei a variavel, que buscaria o id em uma célula e mudei a estrutura do link colocando aspas conforme exemplo abaixo.

    Ao invés de montar o link com o endereço e colocar a Id a variável já traz o link pronto.

    'Declarando variavel
    Dim link_afiliado As String
    
    'Atribuindo valor a variavel
    link_afiliado = Sheets("Config").Range("D13").Value
    
    'Variavel no link
    .HTMLBody = "Acesse o site:<a href =""" & link_afiliado & """>" & link_afiliado & "</a>" & _ "</font></body></html>"

    Lembrando que para que de certo a célula que contém o link tem de estar com o endereço correto e com o ID.

    Abraços


    Douglas Godoy goodoy@yahoo.com.br

    • Marcado como Resposta Douglas Godoy terça-feira, 7 de maio de 2013 11:34
    terça-feira, 7 de maio de 2013 11:34
  • Olá, preciso declarar alguma variável? Não estou conseguindo inserir o link...
    terça-feira, 21 de março de 2017 12:03