MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Dúvida exemplo envio de mensagem pelo api da whatsapp

    avatar
    guaro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 14/12/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  guaro em 11/9/2018, 11:41

    Topico origem da dúvida

    Bom dia,

    O código corre bem só que abre o seguinte link
    Código:
    https://api.whatsapp.com/send?phone=919177019text=%22OLA%22
    e fica a espera de qualquer coisa e a mensagem não segue

    tenho que ativar alguma coisa para que a mensagem siga de forma automática ?

    obrigado
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 11/9/2018, 16:31

    postei passo a passo neste exemplo

    maximoaccess.com/t34002-enviar-mensagens-via-whatsapp


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    guaro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2
    Registrado : 14/12/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  guaro em 11/9/2018, 16:38

    Copiei religiosamente o seu exemplo .. só que não envia a mensagem ... não terei que ativar outra coisa qualquer ?
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 11/9/2018, 20:41

    a estrutura precisa

    codigo pais
    ddd
    numero celular

    a mensagem a cada espaço entre os textos deve conter %20

    Código:
    dim contacts, textEnviar as text

    contacts = 5531996598767
    textEnviar = Ola%20isso%20e%20um%20teste

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


    poste uma parte do seu bd caso não tenha conseguido


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 em 11/9/2018, 21:22

    eu tb estou testando e não está indo. o codigo nao aperta o botao enviar automaticamente.
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 em 11/9/2018, 22:56

    apos algumas horas de teste
    consegui enviar, mas seria interessante
    o codigo fechar a guia em questao. essa parte nao consegui.
    se alguem souber como fazer compartilha ai. vlw

    segue codigo
    Código:
    'texto ao ser enviado, os espaços são substituidos por %20
    textEnviar = Replace(msgZap, " ", "%20")
      
    linkZap = "https://api.whatsapp.com/send?phone=" & contatoZap & "&text=" & textEnviar
    Application.FollowHyperlink linkZap
        
    'Pagina 1
    Sleep (5000)
    SendKeys "{TAB}", True
    SendKeys "{TAB}", True
    SendKeys "{ENTER}", True
    'SendKeys " ", True

    'faz uma espera de 15 segundos para o navegador
    'carregar a conversa com o contato e apos isso
    'apertar o botao enter
    Sleep (15000)
    SendKeys "{ENTER}", True
    Sleep (2000)

    'aqui seria para fechar a guia do chrome
    'mas nao esta funcionando, quem achar uma solucao compartilha ai

    'SendKeys ("^w")
    'Sleep (2000)
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 13/9/2018, 12:11

    eu fiz o teste aqui e funcionou utilizando seu exemplo para fechar o navegador apos enviar

    comando ctrl+w fecha o navegador


    Código:

    SendKeys ("^w")
    Sleep (2000)


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 em 13/9/2018, 14:02

    bom dia,
    então, aqui tb fecha o navegador, mas esse não é o resultado esperado.
    o comando deveria fechar apenas a guia ativa do navegador e não o navegado todo.

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 13/9/2018, 14:19

    entendi vamos testar os atalhos do chrome:


    Alt + F: abre a pasta de ferramentas;
    Ctrl + Enter: adiciona “www.” e “.com” ao endereço digitado;
    Ctrl + T: abre uma nova aba;
    Ctrl + Shift + T: reabre a última aba fechada;
    Ctrl + N: abre uma nova janela;
    Ctrl + Tab: alterna para a aba seguinte;
    Ctrl + Shift + Tab: alterna para a aba anterior;
    Ctrl + F4: fecha a aba ativa;
    Alt + F4: fecha a janela ativa;
    Ctrl + N: abre uma nova janela;
    Ctrl + Shift + N: abre uma nova janela anônima;
    Ctrl + Shift + B: ativa ou desativa a barra de favoritos;
    Ctrl + D: adiciona a página atual aos favoritos;
    Ctrl + Shift + D: adiciona todas as abas abertas em uma pasta de favoritos;
    Ctrl + K: insere um campo de busca ao final do endereço ativo;
    Ctrl + J: abre a aba de downloads;
    Ctrl + H: abre a aba de histórico;
    Ctrl + P: imprime a página atual;
    Shift + Esc: abre o gerenciador de tarefas do navegador;
    Ctrl + Shift + J: ativa ou desativa o gerenciador para desenvolvedores;
    Ctrl + L: seleciona o endereço da aba ativa;
    Ctrl + Backspace: deleta a parte do endereço que estiver à esquerda da seleção;
    Ctrl + F: busca algum termo na página;
    Ctrl + G: busca o termo seguinte na mesma pesquisa;
    Ctrl + Shift + G: busca o termo anterior;
    Ctrl + U: mostra o código-fonte da página ativa;
    Ctrl + R: atualiza a página (o mesmo que o F5);
    Ctrl + (1,2,3, ..., 9): abre a aba ordenada pelo algarismo;
    Ctrl + clique: abre link em uma nova aba;
    Shift + Clique: abre link em uma nova janela;
    Ctrl + “+”: aumenta o texto da página;
    Ctrl + “-”: diminui o texto da página;
    Ctrl + 0 (zero): retorna o texto para o tamanho padrão;
    Ctrl+ O (letra O): abre um arquivo do computador no Google Chrome;
    Backspace: retorna a página para o endereço anterior;
    F1: abre a aba de ajuda do navegador;
    F11: ativa ou desativa o modo Tela Cheia.


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 13/9/2018, 14:32

    aqui deu certo

    SendKeys ("^{F4}")


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 em 13/9/2018, 15:09

    cheers
    ai sim, agora foi. obrigado pela lista de atalhos do chrome.
    sucesso
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 21/9/2018, 03:44

    e ai guaro resolveu? falai e fecha o topico.


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem em 13/3/2019, 16:49

    aqui deu erro

    em Sleep

    Sub ou Funcao nao definida
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 13/3/2019, 18:57

    No vba logo no topo coloque assim

    Option Compare Database
    Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem em 14/3/2019, 11:59

    aqui deu certo agora e tive que criar tb 2 DIM

    Código:
    Dim TextEnviar, LinkZap
    'texto ao ser enviado, os espaços são substituidos por %20
    TextEnviar = Replace(Me.texto.Caption, " ", "%20")
     
    'LinkZap = "https://api.whatsapp.com/send?phone=" & Me.MZap.Value & "&text=" & TextEnviar
    LinkZap = "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value & "&text=" & TextEnviar
    Application.FollowHyperlink LinkZap
       
    'Pagina 1
    Sleep (5000)
    SendKeys "{TAB}", True
        SendKeys "{TAB}", True
        SendKeys "{ENTER}", True
    'SendKeys " ", True

    'faz uma espera de 15 segundos para o navegador
    'carregar a conversa com o contato e apos isso
    'apertar o botao enter

    Sleep (15000)
    SendKeys "{ENTER}", True

    Sleep (2000)

    'aqui seria para fechar a guia do chrome
    'mas nao esta funcionando, quem achar uma solucao compartilha ai

    'SendKeys ("^w")
    'SendKeys ("^{F4}")
    'Sleep (2000)

    O problema é o seguinte:

    Ao abrir no navegador esta solicitando pra eu escolher o contato, mas o contato ainda nao existe, apesar de ser um numero Zap.
    Em outro codigo que tenho ele abre uma api em que posso enviar mesmo se nao estiver em meus conatos;

    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value ' ( Me.Zap= 21+numeroZap )

    Desta maneira que eu queria, pois a ideia aqui e toda venda emitir um recibo via zap para clientes diversos.

    Outra coisa que eu gostaria de fazer, é apos inserir o texto na mensagem, incluir tb ja automaticamente o Relatorio onde esta o Recibo da venda.

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
    Pois da forma que se encontra meu codigo abaixo, eu tenho que ir neste Relatorio que ja estara aberto, usar a ferramenta de captura do Windos e colar a mesma na mensagem, queria que tudo fosse de forma automatica pela VBA.

    Grato se puder ajudar

    Meu codigo usado e assim:

    Código:
    If Me.Ref = 2 Then
     DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
      If Me.zap2 > 0 Then
    Me!MZap2.Value = Replace(Replace(Replace(Replace(Me!MZap2.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value
      Else
    Me!MZap.Value = Replace(Replace(Replace(Replace(Me!Zap.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap.Value
    End If



    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem em 14/3/2019, 13:11

    Olá , Gracas a um amigo aqui deste forum , cheguei perto da perfeica com a adica deste topico aqui.

    Segue meu codigo ja atuando perfeitamente:

    Código:


    Option Compare Database
    Option Explicit
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub imprimir_Click()

    Dim TextEnviar, LinkZap
    'texto ao ser enviado, os espaços são substituidos por %20
    TextEnviar = Replace(Me.texto.Caption, " ", "%20")

    If Me.Ref = 2 Then

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview
     
      If Me.zap2 > 0 Then
    Me!MZap2.Value = Replace(Replace(Replace(Replace(Me!MZap2.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value
      Else
    Me!Zap.Value = Replace(Replace(Replace(Replace(Me!Zap.Value, " ", ""), "-", ""), "(", ""), ")", "")
    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.Zap.Value & "&text=" & TextEnviar  '

    Sleep (5000) 'aguarda carregar
    SendKeys "{TAB}", True 'tab1
        SendKeys "{TAB}", True 'tab2
        SendKeys "{ENTER}", True 'enter
    Sleep (15000) '15 segundos pra carregar
    SendKeys "{ENTER}", True 'enter

    End If

    Else
     MsgBox "Preparar mandar por Email"
      'https://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp

      Dim strArquivo As String
      Dim strLocal As String
     
      strArquivo = "Recibo" & Me!Recibo & ".pdf"
      strLocal = CurrentProject.Path & "\Som\Envio\" & strArquivo
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview, , "idVenda=" & Me!Recibo, acHidden
     
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "rel_Recibo_Venda_PDV", acFormatPDF, strLocal
     
    'Fecha o relatório
    DoCmd.Close acReport, "rel_Recibo_Venda_PDV"

        Call enviapedido
        Kill "C:\Gerencia\SysVendas\Som\Envio\" & strArquivo
    End If

    CurrentDb.Execute "Delete * from Tbl_Recibo WHERE Recibo =" & Me.Recibo

    Lista29.Requery
    Me.imprimir.Visible = False
    Me.email.Enabled = False
    Me.zap2.Enabled = False
    Me.zap2.Visible = False
    Me.Rótulo21.Visible = False
    Me.Nome = Null
    Me.Zap = Null
    Me.zap2 = Null
    Me.Recibo = Null
    Me.MZap = Null
    Me.MZap2 = Null
    Me.email = Null
    End Sub


    Porem eu precisava agora , como podem ver eu solicito o Preview de um Relatorio e;

    If Me.Ref = 2 Then

    DoCmd.OpenReport "rel_Recibo_Venda_PDV", acViewPreview

    Desta forma eu queria colar tb na mensagem que esta sendo enviada a imagem deste relatorio, ou, arquivar em PDF este relatorio apos ser aberto, e na mensagema ser enviada , colar o anexo deste pdf criado.

    Da forma que esta ai acima, eu tenho que usar a ferramenta de captura do windows copiar e colar na mensagem do whatsZap. Queria que fosse feito tudo de forma automatica.

    Alguem teria uma solucao a isso ?

    No meu sistema aqui, apos processar uma venda eu posso escolher se quero enviar o recibo via ZAp ou Email, entendem ?

    Grato

    Andre


    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  fazerbem em 14/3/2019, 14:55

    fora a minha duvida acima, que tb espero ser respondida, queria saber como fazer a quebra de linha no navegador Zap ao envia a mensagem


    De:

    FollowHyperlink "https://api.whatsapp.com/send?l=pt_br&phone=55" & Me.MZap2.Value & "&text=" & TextEnviar & texto1 & texto2 & texto3

    Obrigado por sua visita e volte sempre. Atenciosamente Andre Luiz.

    para:

    Obrigado por sua visita e volte sempre.
    Atenciosamente Andre Luiz.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  Alexandre Neves em 15/3/2019, 16:40

    Boa tarde,
    Sobre o anexo pdf, crie relatorio em formato pdf e anexe-o à mensagem


    .................................................................................
    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
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 782
    Registrado : 09/11/2012

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  =>Nois em 15/3/2019, 17:33

    Boa tarde

    abra um novo topico com suas duvidas


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 412
    Registrado : 01/08/2011

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  ronaldojr1 em 18/3/2019, 16:06

    Boa tarde senhores,

    Pelo que eu pude ver para anexar documentos na mensagem, o nosso amigo devera usar a API do whatsapp businness.
    é isso mesmo?
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 794
    Registrado : 23/01/2018

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  crysostomo em 18/3/2019, 16:19

    caraca , amigos podem me dar esse arquivo, não estou conseguindo


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

    Dúvida exemplo envio de mensagem pelo api da whatsapp Empty Re: Dúvida exemplo envio de mensagem pelo api da whatsapp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2019, 05:59