Erro em tempo de execução '8':

Prezados, boa noite.

Estou com um problema em um dos meus sistemas que envia mensagem via WhatsApp.
Ao clicar no notão Enviar, o seguinte erro é apresentado:

Erro em tempo de execução '8':
Não é possível transferir as informações solicitadas.

Estava tudo funcionando bem, meu cliente usa há mais de 1 ano esse recurso e o problema surgiu tem umas 3 semanas, achei que o problema era com o notebook do cliente, então testei no meu notebook e deu o mesmo erro.
Acredito que o problema não está relacionado ao WhatsApp, pois nem chega a abrir o navegador, imagino que seja algo relacionado a algum recurso do Windows ou Access.
Achei que fosse antivírus ou alguma atualização do Windows 10, mas mesmo no Windows 7 está dando esse erro.
Já desativei o firewall do Windows e não resolveu.
Já pesquise no Google sobre o problema, uma sugestão era ativar o recurso do Windows .NET Framework 3.5, mas não funcionou.


Alguém tem alguma sugestão?

Marque um ponto de interrupção e nos informe qual linha/comando especificamente faz o erro aparecer.

Essa é a linha:

Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar

Tente trocando sua linha por

Código:

Call CreateObject("WScript.Shell").Run("https://web.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar, vbMaximizedFocus, False)

Damasceno, boa tarde!

Obrigado pelo ajuda e me desculpe pela demora em retornar.

Com a sua dica, tive um avanço, agora não dá mais aquela mensagem de erro "Erro em tempo de execução '8':", já abre o navegador e o link do WhatsApp.

Porém, deveria que abrir a conversa com um texto com variáveis, mas trás apenas o 1º bloco da mensagem.

Exibe apenas Olá

Sendo que até semanas atrás antes de dar o problema exibia por exemplo: Olá João da Silva! Seu saldo atual em 08/11/2021 é de R$ 500,00


Esse é o código do meu botão enviar:

Sub Enviar()

Dim textEnviar, Contatcs   As String

textEnviar = Replace("Olá " & Me.CLIENTE & "! Seu saldo atual em " & Date & " é de " & "*" & "R$ " & Format(Me.tt, "#,##0.00") & "*", "", "%20")


If Me.WPP = "" Then ' campo numero do celular

   MsgBox "Informe o número do WhatsApps !!", vbInformation, "ERROR"
   Exit Sub
   
Else
   Contatcs = "55" & Me.WPP

Call CreateObject("WScript.Shell").Run("https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar, vbMaximizedFocus, False)


End If
End Sub

Estou tentando descobrir o que há de errado, você acha que pode estar relacionado a essa função que você me passou?

Mais uma vez obrigado pela ajuda!

Testando aqui, acho que o problema está no formato do textEnviar.
Se você colocar %20 no lugar dos espaços, consegue que saia o texto, mas não consigo concatenar os campos com o &

Olha a novidade e fica para quem realmente entende (por que eu... rsrs)
Se você tirar todos os acentos, nem precisa colocar o %20 no lugar dos espaços e a mensagem consegue ser enviada.
A minha linha ficou assim:

textEnviar = Replace("Prezado(a) requerente ", "", "%20") & Format(Me.fld_req_nome, ">") & ", Processo n. " & Format(Me.fld_processo, "00000\/0000")

textEnviar1 = ". Informamos que o levantamento tributario referente a obra de construcao civil ja foi realizado e aguardamos seu comparecimento a Prefeitura Municipal de Teresopolis, Secretaria de Fazenda, Divisao de Calculo e Certidoes para ciencia e retirada das guias de recolhimento, no prazo de ate 10 (dez) dias. Obrigado. ** MENSAGEM AUTOMATICA - FAVOR NAO RESPONDER **"

E o envio, assim:

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

Já com a acentuação, não vai. Se alguém puder dar uma dica, agradecemos.

Reparei que isso aconteceu após aquele blackout do Whatsapp há pouco tempo atrás.
Obrigado.

PS. Acho que fiz meu primeiro comentário aqui! Uso muito o forum para tentar aprender um pouco e acho ele espetacular! Esses caras, o criquio, o J.Paulo, o Vieira e tantos outros, são formidáveis. Muito obrigado!!