Excelden WhatsApp'a Pdf Dosya Gönderme

[asi_kral]

Selamün aleyküm Arkadaşlar
A1 hucresinde yazan dosya yolundaki bir Pdf dosyasini WhatsApp ile göndermek istiyorum.
Yardımlarınız için şimdiden teşekkürler.

 

[asi_kral]

Cevap yok mu?

 

[rk42080]

Merhaba üstadlar, aynı sorunun cevabına benimde ihtiyacım oldu yardımcı olabilecek var mıdır ? Yardımcı olan üstadlara şimdiden teşekkür ederim.

Üstadlarım aşağıdaki kod ile Excel sayfasını masaüstüne pdf olarak kaydediyorum ve userform daki whatsappdan gönder butonuna bastığımda kod grubu hata vermeden çalışıyor fakat masaüstüne kaydedilen dosyayı ilgili numaraya göndermiyor ama "işlem tamam" sonuç mesajını veriyor. Nerede hata yapıyor olabilirim.

ad = Format(Sheets("RD").Range("C3") & " " & Sheets("RD").Range("C4"))

ChDir CreateObject("WScript.Shell").SpecialFolders("Desktop")

Sheets("RD").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & ad & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
  On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
 
    ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=90" & Worksheets("YIF").Range("C2")
    Application.Wait (Now + TimeValue("00:00:10"))
           Application.SendKeys "+{TAB}"
           Application.SendKeys "~{UP 6}"
           SendKeys ("~")
           SendKeys (" ")
           Application.Wait (Now + TimeValue("00:00:03"))
           CreateObject("wscript.Shell").SpecialFolders.Item ("Desktop") & Application.PathSeparator & ad(".pdf").Copy
           SendKeys ("^v")
           Application.Wait (Now + TimeValue("00:00:03"))
           Call Application.SendKeys("~", True)
           Application.CutCopyMode = False
           Application.Wait (Now + TimeValue("00:00:03"))
           Application.SendKeys "{NUMLOCK}"
           Application.ScreenUpdating = True
    MsgBox "İşlem tamam.", vbInformation
End Sub

 

[HücrelereFısıldayanAdam]

SendKeys yerine Selenyum programını kullanıyorlar, forumda aratın.

 

[rk42080]

Selenyumsuz olmaz mı üstad, Başka cevap verebilecek üstad yokmudur ?

 

[Necdet]

Merhaba,
Bu konu forumda baya işlenmiş TIKLAYINIZ belki yardımı dokunur.

 

[beab05]

Merhaba;

Bence WhatsApp apisi kullanmadan çok sağlıklı sonuçlar alınmıyor. En güzeli bir api bulup onun üzerinden ilerlemek. Piyasada bir çok whatsapp apisi var gibi ve hepsi ücretli gibi ama bence kendi resmi apisini kullanmak en doğrusu olacaktır. Sitesindeki bilgilere göre kabaca hesap yaptığımda 100 mesaj yaklaşık 1 usd yapıyor gibi..

https://business.whatsapp.com/developers/developer-hub