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

    Texto formatado pelo whatsapp

    Almeidar
    Almeidar
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 398
    Registrado : 03/03/2015

    Texto formatado pelo whatsapp Empty Texto formatado pelo whatsapp

    Mensagem  Almeidar Ter 18 Ago 2020, 13:34

    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 ?
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 17/03/2011

    Texto formatado pelo whatsapp Empty Re: Texto formatado pelo whatsapp

    Mensagem  Cláudio Machado Sab 22 Ago 2020, 18:43

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Texto formatado pelo whatsapp 90dssg para agradecer a dica que solucionou seu problema.

    =>Nois gosta desta mensagem


      Data/hora atual: Ter 07 Fev 2023, 20:06