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
Sub
função de pause JP
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