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]API WhatsApp

    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]API WhatsApp Empty [Resolvido]API WhatsApp

    Mensagem  Dougtha91 5/9/2018, 16:19

    Pessoal,
    Estou com esta API ele funciona super bem, porém uma parte do código que citarei abaixo:

    Sub Enviar()

    Dim textEnviar, Contatcs As String

    'texto ao ser enviado, os espaços são substituidos por %20

    textEnviar = Replace("OLÁ, ISSO É UM TESTE", "", "%20")

    '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 = "5511981782382"

    'abre o navegador e cria a mensagem

    Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar


    A PARTIR DESTA PARTE NÃO FUNCIONA MAIS, PORQUE O API ABRE UMA TELA ONDE TENHO QUE CLICAR TAB DUAS VEZES E ENTER DUAS VEZES, SÓ QUE ESSE CÓDIGO NÃO FUNCIONA NA TELA DO API ELE EXECUTA A FUNÇÃO DENTRO DA TELA DO VBA SÓ.


    'pause de 3 segundos

    'Fazer (3)

    'tab e dois enter para enviar

    Call SendKeys("{TAB}", True)
    Call SendKeys("{TAB}", True)
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)

    End Sub

    Vocês conseguem me ajudar?
    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]API WhatsApp Empty API WhatsApp

    Mensagem  Dougtha91 5/9/2018, 20:31

    Resolvido.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]API WhatsApp Empty Re: [Resolvido]API WhatsApp

    Mensagem  fazerbem 13/3/2019, 16:27

    Ola como resolveu ai , pode nos passar a solucao ?


      Data/hora atual: 1/8/2021, 12:49