Whatsapp üzerinden PDF dosyası gönderme ?
Gönderilme zamanı: 06 Mar 2024, 10:47
Merhaba,
Buton ile ilgili klasöre kaydettiğim PDF uzantılı dosyayı whatsapp üzerinden göndermek istiyorum ve aşağıdaki kodu kullanmaya çalışıyorum ama kaydettiğim PDF uzantılı dosyayı kopyalatıp yapıştırma işlemini bir türlü yapamadım acaba nerede hata yapıyorum rica etsem yardımcı olabilir misiniz üstadlar.
Yardımcı olan üstadlara şimdiden teşekkür ederim.
Buton ile ilgili klasöre kaydettiğim PDF uzantılı dosyayı whatsapp üzerinden göndermek istiyorum ve aşağıdaki kodu kullanmaya çalışıyorum ama kaydettiğim PDF uzantılı dosyayı kopyalatıp yapıştırma işlemini bir türlü yapamadım acaba nerede hata yapıyorum rica etsem yardımcı olabilir misiniz üstadlar.
Yardımcı olan üstadlara şimdiden teşekkür ederim.
Kod: Tümünü seç
ThisWorkbook.Activate
Dim ED As CopyFile
Dim yol As CreateObjec, ad As CreateObjec
yol = "C:\Users\Public\Documents\"
ad = Format(Sheets("YIF").Range("C28") & " " & Sheets("YIF").Range("E8") & ".pdf")
Set ED = CreateObject("yol & ad & .pdf")
Application.ScreenUpdating = False
Application.CutCopyMode = False
ED.CopyFile("yol & ad & .pdf").Copy
Application.Wait (Now + TimeValue("00:00:10"))
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=90" & Worksheets("YIF").Range("C2")
Application.Wait (Now + TimeValue("00:00:08"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("^+W")
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
Application.SendKeys ("{NUMLOCK}"), True
Application.Wait (Now + TimeValue("00:00:03"))
Application.CutCopyMode = True