Anexar um arquivo no WhatsApp pelo VBA Access

Oi.

Alguem tem uma rotina de como Anexar um arquivo no WhatsApp pelo VBA Access

Enviar a mensagem, copiar e colar ja consegui


'Rotina do WhatsApp
If vEnviaMSg = True And vContato <> "" Then
Application.FollowHyperlink "https://web.whatsapp.com/"
For i = 1 To 2
DoEvents
xlw.Application.Range("A1:F" & Lin).Select ' seleciona toda informacao para enviar no whats
xlw.Application.Selection.Copy
'Application.FollowHyperlink "https://web.whatsapp.com/"
DoEvents
Sleep 18000 ' 18s

SendKeys "{TAB}", True
SendKeys IIf(i = 1, vContato, vContato2), True
SendKeys "~", True
Sleep 12000

SendKeys "Bom Dia", True
SendKeys "~", True

Sleep 10000
SendKeys "Segue os Vencidos", True
SendKeys "^v", True
Sleep 10000
SendKeys "~", True

SendKeys "{NUMLOCK}"
If vContato2 = "" Then Exit For
Next i


No aguardo e Agradeco

Bom dia e bem-vindo ao fórum
Leia as regras para melhor usufruir do fórum
Disponibilize o que tem. Será mais fácil adaptar do que começar do zero