[Resolvido]Alteracao em VBA

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

UP amigos . Cade os feras do forum pra me ajudar !!
Ja estou ajudando quem precisa de mim com menos experiencia
Boa noite a todos

Fala amigos
Continuo sem ajuda
Com o código atual eu consigo pelo formulário abrir um navegador por vez
Como minha tabela tem número de pessoas variável preciso que ao clicar no ícone de whatsapp se abra o número de Guia do navegador de acordo com o cadastro de clientes

Obrigado

Bom dia
Melhore a sua participação no fórum
Dê continuidade a questões em aberto
https://www.maximoaccess.com/t36311-conciliacao-de-cartoes-de-credito#248142
https://www.maximoaccess.com/t36325-mover-e-somar-dados-selecionados#248238
https://www.maximoaccess.com/t36399-vba-para-impressora-datamax#248821
https://www.maximoaccess.com/t38218-replicando-linhas-de-acordo-com-campo-qtde#260784
https://www.maximoaccess.com/t38547-relatorio-com-codigo-de-barras#262846
https://www.maximoaccess.com/t39353-vba-para-dados-trabalhados#268098
https://www.maximoaccess.com/t39381-banco-de-dados-para-whatsapp#268342

Fica por sua conta a contagem de alertas que lhe foram dirigidos sobre incumprimento das regras do fórum

Sobre a sua questão:
- Seja mais modesto, não atire à cara de ninguém as vezes que ajudou, pois poderia ter más respostas por ter pedido mais vezes ajuda do que as que ajudou, mas esse não é caminho permitido aqui no fórum (provavelmente, a quem ajudou, por ter menos conhecimentos, não foi nenhum dos que tentaram ajudar na sua dúvida; e os que tentaram ajudar na sua dúvida não receberam ajuda da sua parte). Pense nisso
- A sua dúvida já foi vista 35 vezes, o que significa que houve muitos colegas com vontade de ajudar e não conseguiram (ou estarão a preparar resposta)
- eu próprio nunca fiz nada envolvendo whatsapp e vi a dúvida mas não vislumbrei nenhuma solução
- se, ao menos, disponibilizasse pequeno bd com dados significativos essencias à dúvida, levaria a colegas (eu incluído) a entrar mais na dúvida. Como informo na minha assinatura, temos que trabalhar a dúvida e ainda criar bd com tudo o que já está criado por quem precisa de ajuda, e isto é dificultar quem quer ajudar

Acrescentando sobre a dúvida, fiz o teste e não é possível abrir mais de uma janela com o whatsapp.

Obrigado amigos
Acho que nao coloquei nada tao pesado assim na minha mensagem.
Mas compreendo bem que minha intencao nao foi recebida bem e peço desculpas
Abaixo coloco o codigo que copiei de uma solucao referente a outro caso aqui em que o Alexandre Neves resolveu em algo para percorrer os registros da tabela
Fiz umas alteracoes e funcionou pra mim. Ressalto que conhecimentos adquiridos aqui no Forum

Sei que o forum é pra ajudar entao segue minha colaboracao e comentarios.

So aproveito pra deixar claro que minha mensagem foi no intuito de animar alguem a me ajudar assim como ficou feliz em ajudar ao proximo

Sobre o codigo segue abaixo e funciona.
Importante é nao ter uma tabela com mais de 30 registros pois se abrir uma tabela com 6000 telefones de whatsapp trava a maquina

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub bt_WH_Click()
Call Enviar ' Chama a funcao enviar
End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'a funcao abaixo serve para pegar os numeros de telefone da tabela e abrir o navegador com as mensagens a enviar

Sub Enviar()
Dim db As DAO.Database 'Variável do banco de dados
Dim rs As DAO.Recordset
Set db = CurrentDb 'Banco de Dados Atual
Set rs = db.OpenRecordset("TblCliente") 'Abre no banco de dados a tabela
Do While Not rs.EOF ' Enquanto não chegar no final dos registros faz o loop

Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & "+55" & rs.Fields("Whatapps") & "&text=" & "Olá ! Aqui é a Renata da Loja AD Multicenter. Faço parte do marketing e gostaria de oferecer nosso atendimento pelo WhatsApp. Faça sua compra com segurança que levamos até Você !! Temos mais 2 números atendendo - Larissa 979107219 e Milena 997008078"
rs.MoveNext 'Move para o próximo registro
Loop
'Call SendKeys("{TAB}", True)
'C'all SendKeys("{ENTER}", True) ' removido um tab, o enter responder melhor.
'Call SendKeys("{ENTER}", True)

'Fecha as conexão
Set rs = Nothing
Set db = Nothing
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Abracos amigos e volto a dizer sou do bem !!

Aproveito para quem puder ampliar o codigo nos mostrar como posso puxar o primeiro nome do cliente

Vou aguardar alguns dias caso nao tenha retorno encerrarei o post como resolvido

Não entendi o que pretende sobre "puxar o primeiro nome do cliente"

Exemplo
Bernardo Lobo
Pegar o primeiro nome

Trazer na mensagem " Ola Bernardo ....... "

adapte para o nome correcto do campo
Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & "+55" & Rs.Fields("Whatapps") & "&text=" & "Olá " & Mid(Rs("CampoNome"), 1, InStr(1, Rs("CampoNome"), " ") - 1) & "! Aqui é a Renata da Loja AD Multicenter. Faço parte do marketing e gostaria de oferecer nosso atendimento pelo WhatsApp. Faça sua compra com segurança que levamos até Você !! Temos mais 2 números atendendo - Larissa 979107219 e Milena 997008078"

Vou testar obrigado !
Depois ja colocarei o resolvido quando der certo

Boa noite .
Tudo certo
Tenho o topico como resolvido
Uma dúvida é a seguinte
Deste topico tenho mais uma adequação a fazer
Abre um novo topico ou mantenho esse aberto
Trata-se de melhoria

Vou encerrar esse post e abrir outro
Este esta resolvido e funcionando