marcelo3092 29/3/2023, 11:54
Vc tem que fazer um laço de repetição com a função dentro declarando as variaceis porem tem que saber de onde esta vindo os numeros mais nao sei se vc vai consegui tem que sincronizar bem o tempo e ao final de cada repeticao coloca um sleep para o codigo espera o termino do envio da mensagem para enviar outra mensagem o sleep e definido em milésimo se nao me engano 1000 e um segundo sleep (1000). ja usei essa forma sua porem chegou uma hora que nao envio mais tem a ver com bloqueio do whatsapp
mais vamos la supondo que vc tem uma tabela chamada contatos e nela tem nome e numero
Private Sub BTENVIAR_Click()
On Error Resume Next
Dim sSQL As String
Dim rst As DAO.Recordset
Dim Rst1 As DAO.Recordset
Dim nReg As Long
Dim nReg1 As Long
nReg1 = 1
sSQL = ""
sSQL = "Select * from contatos" ' abra e lê tabela
Set rst = CurrentDb.OpenRecordset(sSQL) 'abre o recordeset
rst.MoveLast
nReg = rst.RecordCount
rst.MoveFirst
While (Not rst.EOF)
call EnviarX(rst("numero ").Value)
Sleep 3000
nReg1 = nReg1 + 1
rst.MoveNext 'vai para o proximo registro
Wend
rst.Close 'fecha o recorset
MsgBox "Mensagem(s) Enviada(s) com Sucesso!!!", vbInformation, "ENVIAR MENSAGEM"
End Sub
Public Function EnviarX(p_numero)
Dim textEnviar, Contatcs As String
textEnviar = me.txtmensagem 'campo onde vai ser digitada a mensagem'
If p_numero= "" Then
MsgBox "Informe o Endereço da Coleta!!", vbInformation, "ERROR"
Exit Function
Else
'Contatcs = "55" & Me.celularwhatsapp
Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & p_numero& "&text=" & textEnviar & Source & Data & app_absent
Call SendKeys("{TAB}", True)
Call SendKeys("{BS 1000}", True)
Call SendKeys("~", True)
End If
End Function
Mais ou menos isso ai o loop chama a função e jogo o numero do telefone pra função e a mensagem vc coloca um campo no formulario para poder digita ela mais qualquer coisa posta parte do projeto onde tenha esse formulario.
Início
