Skip to main content

AccessTr.neT


Excel Den Webwhatsapp İle Mesaj Gönderme

Mehmet Emin Alkan
Mehmet Emin Alkan
33
14162

Excel Den Webwhatsapp İle Mesaj Gönderme

#31
(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.

i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock  sönmemesi kodlarıda eklendi.

Emeğinze sağlık. alkis
Cevapla
#32
(28/01/2021, 18:42)Mehmet Emin Alkan yazdı:
(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.

i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock  sönmemesi kodlarıda eklendi.

Emeğinze sağlık. alkis
Rica ederim.
Ordan burdan bulduğum kodlarla oldu bişeyler tabii sizin kodlarda dahil Img-grin
Aslında explorerdwki Tab lar kapatılabilse kodla daha iyi olurdu maliesef yapamadım fazlada uğraşamadım.
Birde explorer kapatılmayıda yapamadım.
İe.quit gibi kod olmadı.
Bu ikisi yapılabilse dahada güzel olur bence.
Tabii dahada geliştirwn olursa muazzam olur.Normalde benim işime yaramıyor lakin illaki birilerine ihtiyaç vardır.
Cevapla
#33
(28/01/2021, 18:56)feraz yazdı:
(28/01/2021, 18:42)Mehmet Emin Alkan yazdı:
(27/01/2021, 01:31)feraz yazdı: Sayın @Mehmet Emin Alkan inkini biraz değiştirdim müsadesiyle.
Dosyanın biri resimde yolluyor ve explorer kütüphanesi ile.

i sütununa telefon no girilmeli.Telefon doğru değilse biraz bekleyip sonrakine bakıyor.
Ayrıca koda Numlock  sönmemesi kodlarıda eklendi.

Emeğinze sağlık. alkis
Rica ederim.
Ordan burdan bulduğum kodlarla oldu bişeyler tabii sizin kodlarda dahil Img-grin
Aslında  explorerdwki Tab lar kapatılabilse kodla daha iyi olurdu maliesef yapamadım fazlada uğraşamadım.
Birde explorer kapatılmayıda yapamadım.
İe.quit gibi kod olmadı.
Bu ikisi yapılabilse dahada güzel olur bence.
Tabii dahada geliştirwn olursa muazzam olur.Normalde benim işime yaramıyor lakin illaki birilerine ihtiyaç vardır.


Merhabalar
Call SendKeys("{Enter}", True)
              Application.Wait Now + TimeValue("00:00:05")

Bu kodlların altına aşağıdaki kodları yapıştıp deneyiniz. açılan sekmeyi kapatacaktır.

            SendKeys "^{F4}"
              Application.Wait Now + TimeValue("00:00:02")
                Call SendKeys("{Enter}", True)
Son Düzenleme: 29/01/2021, 20:59, Düzenleyen: Mehmet Emin Alkan.
Cevapla
#34
Elinize sağlık 2 yerine 5 yazınca çalıştı heralde internet hızı ile alakalı.
Son durumları ekleyeyim.

Denemek isteyen kendi numarasını yazarsa kendine mesaj geliyor Img-grin
.rar WhatsApp Mesaj Şablon(FollowHyperlink).rar (Dosya Boyutu: 24,14 KB | İndirme Sayısı: 54)
.rar WhatsApp Mesaj Şablon(Resimli ve Explorer ile).rar (Dosya Boyutu: 33,18 KB | İndirme Sayısı: 65)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task