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 mensagem para Grupo de WatsApp

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    Enviar mensagem para Grupo de WatsApp Empty Enviar mensagem para Grupo de WatsApp

    Mensagem  NADIRONUNES 23/3/2023, 15:15

    Bom dia a Todos
    como que mando mensagem pra Grupo de WhastZapp via esse codigo

    Código:
    Public Function EnviarX()
    Dim textEnviar, Contatcs   As String
    Contatcs = "XXXX"
    textEnviar = "Deposito 21-05 sabado 18.612,00"
    If Contatcs = "" 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=" & Contatcs & "&text=" & textEnviar & Source & Data & app_absent
            Call SendKeys("{TAB}", True)
            Call SendKeys("{BS 1000}", True)
            Call SendKeys("~", True)

    End If
    End Function


    Última edição por Alexandre Neves em 24/6/2023, 16:41, editado 1 vez(es) (Motivo da edição : título corrigido, de "Eviar mensagem pra Grupo de Wastzapp" para "Enviar mensagem para Grupo de WatsApp")
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 19/08/2010

    Enviar mensagem para Grupo de WatsApp Empty Re: Enviar mensagem para Grupo de WatsApp

    Mensagem  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.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    Enviar mensagem para Grupo de WatsApp Empty Re: Enviar mensagem para Grupo de WatsApp

    Mensagem  Alexandre Neves 24/6/2023, 16:44

    Boa tarde NADIRONUNES

    Como anda a dúvida? O colega que ajudou (e os outros que tentaram) merecem uma resposta
    Corrigi-lhe o título. Os títulos devem ser bem escritos para funcionar nas procuras no fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Enviar mensagem para Grupo de WatsApp Empty Re: Enviar mensagem para Grupo de WatsApp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:39