MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Texto formatado pelo whatsapp

    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Texto formatado pelo whatsapp Empty Texto formatado pelo whatsapp

    Mensagem  Almeidar em Ter Ago 18, 2020 1:34 pm

    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 100%

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

    Texto formatado pelo whatsapp Empty Re: Texto formatado pelo whatsapp

    Mensagem  Cláudio Machado em Sab Ago 22, 2020 6:43 pm

    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 Dez 01, 2020 12:19 pm