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

Whatsappla gönderim için özel API'lerden faydalanmanız gerekiyor. Whatsapp sitesinden araştırabilirsiniz API'yi.

malesef watshapp kendi sitesinde api ile ilgili bilgiler yeterli değil  faceye yönlendiriyor

Merhaba arkadaşlar,
whatsApp dan mesaj gönderirken,
gidip sitesinden onay vermek ve whatsApp web in sayfasından gönder tuşuna basmadan mesaj gönderebilirmiyiz.

bu kodlar ile  excel de yapılıyor  

accesse  göre ayarlıya bilirmiyirmiyiz  bu kodları 


For i = 1 To 1              ' birinci satırda  a daki numaraya  b deki mesajı atıyor
Dim ie As InternetExplorer
Set ie = New InternetExplorer

ActiveSheet.Shapes("elma").Copy         'excel içindeki  elma dındaki resmi alıyor

ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait.Now TimeValue("00:00:10")         '   10 saniye sonra  whatshapa yapıştırıyor  
Call SendKeys("^v")
Application.Wait.Now TimeValue("00:00:10")  ' 10 saniye sonra enter ile gönderiyor

Call SendKeys("{ENTER}", True)
Next i

İnşallah değerli hocalarımızdan birisi bu kodu access kodlarına çevirir inşallah...