Envio de Msg Whatsapp

Boa tarde Amigos

Preciso de ajuda para conclusao do meu modulo de envio de MSG via Whatsapp.

Algum de voces ja conseguiu concluir

Segue o esboço que fiz
No meu caso fiz um Consulta que tem os dados e o envio via Function no Modulo, porem a funcao CALL Sendkyes trava...

Function EnviaW()
Dim text As String
Dim weburl As String
Dim contatos As String
Dim strcliente As String
Dim strmensagemcorpodoemail As String

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("REL_M_DIA")

If rst.EOF Then
MsgBox "Erro. Não existem clientes para serem avisados!", vbExclamation, "Atenção"
Else

Do Until rst.EOF
contatos = rst("TELEFONE")
strcliente = rst("CLIENTE")
weburl = "http://api.whatsapp.com/send?phone=55" & contatos & """"
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & weburl)

'texto
strmensagemcorpodoemail = strmensagemcorpodoemail + "Prezado " & strcliente & Chr(13) & Chr(13)
strmensagemcorpodoemail = strmensagemcorpodoemail + "1 - Verificamos que esta em atraso com as mensalidaes O contrato " & strContrato & " da empresa " & strcliente & " no valor de R$ " & strvalor & " impactou no BACEN PJ no dia de hoje." & Chr(13) & Chr(13)
strmensagemcorpodoemail = strmensagemcorpodoemail + "2 - Solicitamos informar a situação atual de negociação com o cliente, se existem perspectivas de recebimento." & Chr(13) & Chr(13)
strmensagemcorpodoemail = strmensagemcorpodoemail + "Atenciosamente" & Chr(13) & Chr(13)
strmensagemcorpodoemail = strmensagemcorpodoemail + "Plataforma de Adimplência" & Chr(13) & Chr(13)
strmensagemcorpodoemail = strmensagemcorpodoemail + "SR Noroeste do Paraná" & Chr(13) & Chr(13)

'Ajustar conforme tempo necessário para carregar a página
'daqui em diante nao vai
Call SendKeys(strmensagemcorpodoemail, True)
'Call SendKeys("^v", True)
Sleep 500
Call SendKeys("~", True)
Sleep 8000
Call SendKeys("{ESCAPE}", True)
Sleep 8000
Call SendKeys("^w", True)
Sleep 8000
Loop
End If
rst.Close
Set rst = Nothing
MsgBox " Mensagens Encaminhadas!", vbInformation, "Gestor_Apcef"
End Function

Boa tarde,

Remova o Call.

meu a amigo podia partilhar com a gente , isso me ajudar..