MS ACCESS Send PDF File To WhatsApp

Описание: MS ACCESS Send PDF File To WhatsApp
'Send PDF File to WhatsApp
'WhatsApp must be installed on your PC
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Private Sub cmdSend_Click()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "whatsapp://send?phone=" & txtNumber & "&text=" & txtMsg
Sleep 1000
SendKeys "+{TAB}"
SendKeys "~"
Sleep 1000
SendKeys "{UP}"
SendKeys "{UP}"
SendKeys "~"
Sleep 1000
SendKeys txtPDFFile
'"D:\OneDrive\Printer\001.pdf"
SendKeys "~"
Sleep 2000
SendKeys "~"
SendKeys "{NUMLOCK}", True
Set IE = Nothing
End Sub '

#MS ACCESS
#WhatsApp
#Send
#PDF
#File
#Documents