Herkese iyi kandiller sağlık günler.
Ekli uygulamada excelden whatsapp ile text ve resimli mesajlar gönderilebiliyor fakat PDF dosya gönderimi nasıl yapılabilir. Sayfada filtreleme yapıldığı durumlarda kodu nasıl revize etmemiz lazım ki sadece filtrelenmiş numaralara mesajlar gönderilebilsin.
Sub DikdörtgenKöþeleriYuvarlatýlmýþ1_Týkla()
Dim son As Long, rg As Range
Dim ie As InternetExplorer
son = Range("A:A").Find("*", , , , , xlPrevious).Row
If son = 1 Then Exit Sub
For Each rg In Range("A2:A" & son).SpecialCells(xlCellTypeVisible)
Set ie = New InternetExplorer
ActiveSheet.Shapes("Ýmza").Copy
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(rg.Row, 1) & "&text=" & Cells(rg.Row, 2)
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("^V")
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{ENTER}", True)
Next
Set rg = Nothing
End Sub
@
feraz hocam teşekkürler. Bu kod mevcut kod bloğunun devamına mı yapıştırılmalı yoksa filtreli mesaj için ayrı bir buton tanımlayıp click olayına mı yazılmalı. Yoksa eski kod bloğu yerine hem filtreli hem filtresiz sayfada ki mesajların her iki durumda da gönderimi için kullanılabilir mi.
Rica ederim.
Eski kodu silip sadece yapıştırın.Sayfa isimleri eklenmediği için kod hangi sayfada çalışırsa orda işlem yapar.
Yada sayfaya bir commandbutton ekleyin sub ile end sub arasındakileri ekleyin.
Bu arada neden başka konuda eklediğim kodları kullanmıyorsunuz buda ayrı sorun ve sıradaki soru büyük ihtimalle imza eklenmiyor olacak
(09/05/2021, 11:37)feraz yazdı: [ -> ]Bu arada neden başka konuda eklediğim kodları kullanmıyorsunuz buda ayrı sorun ve sıradaki soru büyük ihtimalle imza eklenmiyor olacak
@
feraz hocam burda ne demek istediğinizi anlamadım. İmza mail ile ilgili bir sıkıntı idi. Whatssapp da böyle bir şey söz konusu değil. Sıradaki soru zaten ilk sorduğum soruydu
Yabancı kaynaklarda bulamadım kimsenin aklına gelmemiş herhalde PDF yada herhangi bir tür dosyanın toplu mesaja eklenmesi. Sizin de söylediğiniz benim de son çare olarak düşündüğüm google drive ya da benzer uygulamalar üzerinden link verip dosyanın indirilmesi seçeneği ama dediğim gibi müşteri kitlemiz bu tarz bir indirme yöntemini pek kullanabilecek düzeyde maalesef değil, uğraşmak da istemezler bu yüzden çözüm arayışındayım.
(09/05/2021, 16:49)Oğuz Türkyılmaz yazdı: [ -> ]burda ne demek istediğinizi anlamadım
Dosyadaki imza resmi var onu bende bu kod göndermemişti sanırım ondan yazdım maildeki imza olayı değil abey.Resimi gönderiyorsa sorun değil zaten.