Converter Codigo do Excel envio mensagem pelo WhastZapp

boa tarde a todos
fiz um busca na internet, envio de arquivo pelo whastzapp e achei esse codigo do excel tem como inverter pra usar no access

Código:

Public Sub lsEnviarWhatsApp()
    Dim lUltimaLinha    As Long
    Dim i              As Long
    Dim lContato        As String
    Dim lMensagem      As String
   
    'Abre o WhatsApp
    Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
   
    Application.Wait Now + TimeValue("00:00:15")
   
    lUltimaLinha = WhatsApp.Cells(WhatsApp.Rows.Count, 2).End(xlUp).Row
   
    'Faz o loop pelas linhas da tabela
    For i = 7 To lUltimaLinha
        If WhatsApp.Cells(i, 4).Value = "" Then
            lContato = WhatsApp.Cells(i, 2).Value
            lMensagem = WhatsApp.Cells(i, 3).Value
           
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lContato
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lMensagem
            SendKeys "~"
           
            'Arquivo
            SendKeys ("+{Tab}")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:0005")
            SendKeys ("{UP}")
            SendKeys ("{UP}")
            SendKeys ("{UP}")
            SendKeys ("{UP}")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:0005")
            Application.SendKeys WhatsApp.Range("arquivoenvio").Value
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:0005")
            SendKeys "~"
           
            'Imagem
            WhatsApp.Range("Imagem01").CopyPicture , xlBitmap
            Application.Wait Now + TimeValue("00:00:03")
            SendKeys "^v"
            Application.Wait Now + TimeValue("00:00:01")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
           
            WhatsApp.Cells(i, 4).Value = Now
        End If
    Next i
   
    MsgBox "Mensagens enviadas!"
   
End Sub
 
Sub SelecionarArquivo()
    Dim arquivo As Variant
    arquivo = Application.GetOpenFilename()
    If arquivo <> False Then
        WhatsApp.Range("arquivoenvio").Value = arquivo
    End If
End Sub

Alguem

NADIRONUNES, tudo tranquilo?

Nas salas de repositório tem exemplo pronto de envio de mensagem pelo whatsapp usando acccess. Talvez ajude.

PS: infelizmente é um método arriscado pois assim como nesse código do excel, o do access também executa uma sequencia de teclas para que a finalidade seja alcançada. Qualquer carregamento mal feito é erro na certa. Talvez o serviço pushbullet seja melhor se o objeto seja só mensagem de texto.