Whatsapp üzerinden PDF dosyası gönderme ?

Cevapla
Beyfendi
Mesajlar: 8
Kayıt: Cum Şub 16, 2024 12:21 pm
Lokasyon: KONYA
Meslek: Muhasebeci
Adınız: Ramazan
Soyadınız: Karakaya

Whatsapp üzerinden PDF dosyası gönderme ?

Mesaj gönderen Beyfendi »

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.

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
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj