Ola amigos
Captei por aqui mesmo um banco de dados que faz o envio de whatsapp.
Ele envia mensagens celular a celular.
Gostaria de uma ajuda pra alterar o codigo e fazer com que todas as abas do whatsapp sejam abertas ao mesmo
assim posso dar enter e ir fechando os navegadores
Pra mim seria uma garantia de executar o envio mais rapidamente ja que nao existe "enter" automatico no whatsapp web
abaixo o codigo
Private Sub bt_WH_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(Me.Mensagem, "", "%20") ' o me.mensagem ( campo memorando ) recebe o texto a ser digitado através do Replace
'verifico se o campo do telemóvel / Celular está vazio.
If Me.WhatApps = "" Then ' campo numero do celular / Telemóvel.
MsgBox "Informe o numero do What´s Apps !!", 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.WhatApps
'abre o navegador e cria a mensagem
Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar
'tab e dois enter para enviar
Call SendKeys("{TAB}", True)
Call SendKeys("{ENTER}", True) ' removido um tab, o enter responder melhor.
Call SendKeys("{ENTER}", True)
End If
End Sub
Private Sub Form_Current()
Me.Caption = " Envio de mensagem pelo What´s Apps"
End Sub
Captei por aqui mesmo um banco de dados que faz o envio de whatsapp.
Ele envia mensagens celular a celular.
Gostaria de uma ajuda pra alterar o codigo e fazer com que todas as abas do whatsapp sejam abertas ao mesmo
assim posso dar enter e ir fechando os navegadores
Pra mim seria uma garantia de executar o envio mais rapidamente ja que nao existe "enter" automatico no whatsapp web
abaixo o codigo
Private Sub bt_WH_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(Me.Mensagem, "", "%20") ' o me.mensagem ( campo memorando ) recebe o texto a ser digitado através do Replace
'verifico se o campo do telemóvel / Celular está vazio.
If Me.WhatApps = "" Then ' campo numero do celular / Telemóvel.
MsgBox "Informe o numero do What´s Apps !!", 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.WhatApps
'abre o navegador e cria a mensagem
Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar
'tab e dois enter para enviar
Call SendKeys("{TAB}", True)
Call SendKeys("{ENTER}", True) ' removido um tab, o enter responder melhor.
Call SendKeys("{ENTER}", True)
End If
End Sub
Private Sub Form_Current()
Me.Caption = " Envio de mensagem pelo What´s Apps"
End Sub