MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]API WhatsApp

    Compartilhe

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]API WhatsApp

    Mensagem  Dougtha91 em 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?

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    API WhatsApp

    Mensagem  Dougtha91 em 5/9/2018, 20:31

    Resolvido.

      Data/hora atual: 16/12/2018, 15:47