Dúvida exemplo envio de mensagem pelo api da whatsapp

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

postei passo a passo neste exemplo

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

Copiei religiosamente o seu exemplo .. só que não envia a mensagem ... não terei que ativar outra coisa qualquer ?

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

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

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)

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)

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.

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.

aqui deu certo

SendKeys ("^{F4}")

ai sim, agora foi. obrigado pela lista de atalhos do chrome.
sucesso

e ai guaro resolveu? falai e fecha o topico.

aqui deu erro

em Sleep

Sub ou Funcao nao definida

No vba logo no topo coloque assim

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

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

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

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.

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

Boa tarde

abra um novo topico com suas duvidas

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?

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

Veja o exemplo no link

https://www.maximoaccess.com/t35686-formulario-de-envio-de-mensagem-via-sistema-para-o-whats-apps-2