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


3 participantes

    Enviar msg para whatsapp com VBA

    avatar
    CGroff
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 06/08/2015

    Enviar msg para whatsapp com VBA Empty Enviar msg para whatsapp com VBA

    Mensagem  CGroff 4/4/2024, 20:05

    olá pessoal!

    Gostaria de enviar mensagens para o whatsapp usando meu programa de Agendamentos (em MSACESS). Atraves de pesquisa na NET, adaptei o código abaixo para executar a tarefa, fazendo a leitura de uma tabela, onde obtenho o fone e a mensagem que desejo enviar, mas o problema é que ele só envia a primeira mensagem....após isso ele encontra o proximo fone na lista de contatos mas não envia mais a mensagem....
    OBs: estou usando a chamada para o aplicativo original do WhatsAPP......segue o código em anexo.

    Obrigado pela atenção!
    Anexos
    Enviar msg para whatsapp com VBA AttachmentProg_Teste.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 24 vez(es)

    leosvm gosta desta mensagem

    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 12/01/2021

    Enviar msg para whatsapp com VBA Empty Re: Enviar msg para whatsapp com VBA

    Mensagem  Cristian Souza 22/4/2024, 20:37

    Olá CGroff! Very Happy

    Normalmente ele corta a mensagem quando o link do whatsapp é gerado com espaço, oriundo da string "msg"
    Neste caso, você teria que usar um replace na variável, onde tudo que for espaço, substituir por "%20"

    Código: Replace(msg," ","%20")
    Trecho enviado para o link: Mensagem%20para%20Whatsapp
    annasoldih
    annasoldih
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 170
    Registrado : 24/10/2017

    Enviar msg para whatsapp com VBA Empty Re: Enviar msg para whatsapp com VBA

    Mensagem  annasoldih 7/5/2024, 13:48

    myMessage = o texto original da msg
    nPhone = telefone no padrao 551199999999

    myMessage = Replace(myMessage, " ", "%20", , , vbTextCompare)
    CreateObject("Shell.Application").ShellExecute "https://web.whatsapp.com/send?phone=" & nPhone & "&text=" & myMessage


    Conteúdo patrocinado


    Enviar msg para whatsapp com VBA Empty Re: Enviar msg para whatsapp com VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2024, 23:54