Enviar Mensagens Via WhatsApp

Boa Noite!!

Após pesquisar muito e fazer muitos testes... consegui adaptar em meu sistema para enviar mensagens através do whatsapp web

deixo essa contribuição aqui a todos creio que seja de grande valia  

Agradeço ao JP pela função para dar pause e o Ahteixeira pelo Replace!



Em um botão invoco uma sub

Código:

Private Sub cmdEnviaZap_Click()

Call Enviar

End Sub

Sub

Código:

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")

'verifico se minha caixa de texto esta vazia

If Me.txtCaixa= "" Then

    MsgBox "Informe o Endereço da Coleta!!", 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.txtContato

'abre o navegador e cria a mensagem

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

'pause de 3 segundos
    
    Fazer (3)

'tab e dois enter para enviar  

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

End If

função de pause JP

Código:


Public Sub Fazer(ByVal Segundos As Single)
'By JPaulo Maximo Access
Call Sleep(Int(Segundos * 1000#))
End Sub

Olá Nois,

Não testei, no entanto o fórum agradece!

Boa tarde, consegui chegar até o envio, porém ainda tenho que dar o ENTER final para enviar a mensagem.

também tenho que mandar o Enter
Consegue ajudar? seria legal a gente poder conversar.

como relatado acima, não envia. Tem que clicar no navegador normalmente para enviar.

Meu conhecimento de access e programação é quase nulo.

Quando consegui inserir o botão com o código, abria duas janela no navegador e ainda avançava o registro no formulário.

Ai eu apaguei algumas coisas do código e deu certo.

Ficou assim




Private Sub Comando593_Click()
Call Enviar
End Sub

Sub Enviar()

Dim textEnviar, Contatcs As String

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

textEnviar = Replace("MEU TEXTO QUE ESCOLHI LIVREMENTE", "", "%20")

'verifico se minha caixa de texto esta vazia

If Me.Telefone = "" Then

MsgBox "Informe o Endereço da Coleta!!", 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.Telefone

'abre o navegador e cria a mensagem

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

End If
End Sub

Public Sub Fazer(ByVal Segundos As Single)
'By JPaulo ? Maximo Access

End Sub

Muito obrigado!
Gostei muito pela contribuição.

Apliquei e funciona.

Agora, quero saber se existe uma forma de receber as mensagens via WhatSapp dentro do Access.
desde já agradeço.

Constantino, veja as regras do fórum. Elas são importantes para a organização da casa.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.