merhaba 
aşağıdaki kodlar ile  whatsapp  mesaj gönderebiliyorum 
pdf  veya  başka  dosya  gönderebilirmiyiz acaba 



Dim Alinan, Mesaj, GonderDurumu As String
Alinan = "https://api.whatsapp.com/send?phone=" & Me.telno & "&text=aaaa"
Mesaj = Me.metin
GonderDurumu = Alinan & Chr(34) & Mesaj & Chr(34)
Dim iURL
Dim objShell
iURL = GonderDurumu
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
End Sub