Texto formatado pelo whatsapp

Olá meus amigos, algum amigo já passou pela dificuldade de fazer um texto para enviar pelo zap no access, e esse teste chegar no destino todo sem formatação ?

Boa noite.
Sua intenção é chegar formatado?
Se for tenho todo o código pronto.
Você formata da forma que precisar.

Montagem da mensagem:

Código:


        Mensagem = "_*Espetacular SteakHouse*_" & "%0A" _
        & "(Entrega Própria)" & "%0A" _
        & "----------------------------------------------------- " & "%0A" _
        & "*" & [lbl_saudacao] & "*" & " " & StrConv([cliente_txt], 3) & "%0A" _
        & "Seu Pedido está a caminho: " & vbCrLf & "%0A" _
        & "%0A" & "*Pedido Nº    :* " & Me.id_venda_custom & "%0A" _
        & "*Pagamento  :* " & [forma_pagto] & "%0A" _
        & "*Valor Total   :* R$ " & Format([valor_total], "#,##0.00;-#,##0.00") & "%0A" _
        & "*Troco            :* R$ " & Format([troco], "#,##0.00;-#,##0.00") & "%0A" _
        & "*Entregador   :* " & [entregador_txt] & "%0A" & "%0A" _
        & "Agradecemos a Preferência." & "%0A" _
        & "Volte Sempre!." & "%0A" & "%0A" _
        & StrConv(DLookup("usuário", "tbl_sessao"), 3) & "%0A" _
        & DLookup("email_envio_fechamento", "empresa", "usa_esta_filial= true") & "%0A" _
        & Format(DLookup("celular", "empresa", "usa_esta_filial= true"), "(00) 00000-0000") & " - " & Format(DLookup("telefone", "empresa", "usa_esta_filial= true"), "(00) 0000-0000") & "%0A" _
        & "----------------------------------------------------- " & "%0A" _
        & "*GESTOR DELIVERY*"


Código para Envio da Mensagem direto para o WahtsApp:

Código:


Sub envia_zap()

Dim textEnviar, Contatcs As String
    
'texto ao ser enviado, os espaços são substituidos por %20

textEnviar = Replace(Me.Mensagem, "", "%20") ' o me.mensagem ( campo memorando ) recebe o texto a ser digitado através do Replace

'verifico se o campo do Celular está vazio.

If Me.cliente_celular = "" Then ' campo numero do celular.

    MsgBox "Informe o numero do Whats App !!", vbInformation, "ERROR"
    Exit Sub
    
Else

'insiro o nº de celular que deve ser composto por 55 que é o pais + DDD da cidade sem o zero + o nº celular sem traço.

    Contatcs = "55" & Me.cliente_celular

'abre o navegador e cria a mensagem
  
       'PARA USUÁRIOS DO GOOGLE CHROME USAR A LINHA ABAIXO.
        Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar

        'PARA USUÁRIOS DO FIREFOX ( MOZILLA ) e do EDGE USAR A LINHA ABAIXO.
        'Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar


'tab e dois enter para enviar

Dim ws As Object
Set ws = CreateObject("WScript.shell")

    Sleep (5000) 'aguarda carregar
    ws.SendKeys "{TAB}", True 'tab1
        ws.SendKeys "{TAB}", True 'tab2
        ws.SendKeys "{ENTER}", True 'enter
    Sleep (2000) '15 segundos pra carregar
    ws.SendKeys "{ENTER}", True 'enter
    ws.SendKeys ("^{F4}")
Set ws = Nothing

End If
End Sub


Lembrando que você deve criar uma caixa de texto oculta com o nome Mensagem para que o código monte esta mensagem na caixa.
Não modifiquei os nomes de campos, modifique para seu uso.
Abraço