...her ne kadar MS Store üzerinden çalıştığını düşünseniz de bilgisayarınızda kayıtlı EXE uzantısına erişebilirsiniz.
Yapmanız gereken;
- Whatsapp Uygulamanızı açın.
- Görev yöneticisinde Whatsappı bulun.
- Gruplanmış şekildeyse grubu açın.
- Whatsapp üzerinde sağ tuş yapıp >Dosya konumunu...
Merhaba. Teşekkür ederim ilgilendiğiniz için. Yalnız sorun şu ki normalde kod çalışıyor fakat whatsapp artık exe uzantılı ve path bölümünde yazdığım uzantida olmadığı için WhatsApp acilamiyor. Sebebi de WhatsApp in artik windows store dan indirilen bir uygulama haline gelmesi. Yani benim windows...
Deneyiniz.
Sub WhOpen()
Dim u As String
Dim Path As String
u = Environ("Username")
Path = "C:\Users\" & u & "\AppData\Local\WhatsApp\WhatsApp.exe"
Shell Path
End Sub
...önceden kullandığımız ve linkte gönderdiğim excel dosyasına gönderilecek telefon numaralarını ve gönderilecek mesajı yazıp,
butona basınca whatsapp uygulamasına girip herkese mesaj gönderiyordu. Ancak whatsapp uygulamasındaki güncellemelerden mi
bilmiyorum artık düzgün çalışmıyor. Bazen...
Merhabalar değerli üstadlarım. Bir problemim var. Daha önce bir excel tablosundaki yapıya uygun whatsapp pc uygulaması üzerinden bir whatsapp grubuna mesaj gönderen çalışmam vardı. İş bilgisayarlarımıza windows 11 kurulduktan sonra whatsapp uygulaması microsoft store dan indirilen bir uygulama...
Ekteki dosyamın c2 hücresine ekran görüntüsünü de aldırdım. Bu ekran görüntüsü ile birlikte mesajımın whatsapp'a gönderilmesi kaldı. Yardımlarınızı bekliyorum arkadaşlar
Merhaba Arkadaşlar
Whatpp'a Ekran Görüntüsü ile Birlikte Mesaj Göndermek istiyorum. Yapmak istediğimi örnek dosyamda paylaştım. Yardımlarınız için şimdiden teşekkür ediyorum.
...sayfasını silip basitleştirdim. Yani her koşulda yine 2 excel dosyasıyla çalışmak zorundayım. Çünkü 19 farklı sınıfımız var ve her sınıfın WhatsApp veli grubuna bu değişen programları basit ve sade şekilde göndermek zorundayım. Bu exceller personeli değil aslen velileri bilgilendirme amaçlı...
Merhaba,
="https://api.whatsapp.com/send/?phone="&C3&"&text="&F2
formatında bir formülüm var. C3 hücresi telefon numarasını, F2 hücresi ise mesaj içeriğini gösteriyor. Bu linki açtığınızda C3 hücresindeki telefon numarasına web whatsapp vasıtasıyla F2'deki mesajı iletiyor. Siz sadece...
Bu şekilde bir not almışım ancak denemedim, deneyip sonucu bildirebilirmisiniz.
=EĞER(B3="","",KÖPRÜ(BİRLEŞTİR("https://api.whatsapp.com/send?phone=",KIRP(A3),"&text=",URLKODLA(B3)),"Gönder!"))
Arkadaşlar, sayın hocalarım, WhatsApp'tan mesaj yazmak için bu kod. Hatta daha önce Internet Explorer yerine Chrome nasıl açabilirim diye sormuştum.
Şimdi açıyor, hücredeki mesajı WhatsApp sitesini açarak yapıştırıyor, ama ENTER yapmıyor. Acaba hata nerede.
Şimdiden teşekkür ederim...
Hocam kodu revize ettim. Çalışıyor. Teşekkür ederim.
(işe geldim o yüzden geç yazdım özür dilerim) WhatsApp sayfasını açıyor, mesajı yapıştırıyor. Ama ENTER'a basmıyor. Sizce neden olabilir.
...For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ActiveSheet.Shapes("interpress").Copy
ie.Navigate "http://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Aplication.Wait Now + TimeValue("00:00:05")
Call SendKeys("^v")
Aplication.Wait Now +...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.