Dosyayı kullanıyoruz işimize yarıyor.
+1 geliştirme eklene bilirse daha güzel olur..
whatsapp masaüstü uygulamasını direkt açsa ve yollasa olursa güzel olur..
Aşağıdaki konuda whatsapp ile çalışma mevcut bakabilirsiniz.
https://www.excel.web.tr/threads/excel-ile-web-whatsappa-mesaj-goenderme.176607/page-3#post-1084209
...amaç şu... Bilgisayarı açtığım an başlangıca yerleştiren çek dosyası kendi kendini açacak. listelenen tabloyu, ya pdf yada ekran görüntüsünü alıp Whatsapp yoluyla ilgili kişiye mesaj atacak... Bunu yapmaya çalışıyorum. Whatsapp'a mesaj atan bir dosyam var hazır bunu onunla birleştirmem gerekecek
...= "Resim" Then
pictur.Select
pictur.Delete
End If
End With
Next
Dim emp As String, t As String
MyDR = "C:\Users\Muhasebe_Orjinal\Desktop\WhatsApp\"
t = ".jpg"
On Error GoTo xx
emp = Range("A2")
ActiveSheet.Shapes.AddPicture Filename:=MyDR & emp & t
xx:
If Err.Number = 1004 Then
MsgBox...
Selamun Aleyküm Arkadaşlar
Whatsapp ile mesaj göndermeyi başardım yalnız ben bir klasör içindeki ve excel üzerinden seçili bölgeyi whatsapp ile resim ( .jpg ) göndermek istiyorum.
Yardımcı olabilir misiniz.
Ellerinize sağlık çok güzel çalışma olmuş ama şöyle bir problemle karşılaşıyorum. whatsappda olmayan birine mesaj göndermeye çalıştığımda "URL YOLUYLA PAYLAŞILAN TELEFON NUMARASI GEÇERSİZDİR." diye bir hata alıyorum tamama bastıktan sonra bir sonraki kişiye de mesaj göndermiyor bunu nasıl...
Çok teşekkür ederim. Eğer bu şekilde müşterilerimden geri dönüş alabilirsem. Daha hızlı olması açısından programınız için sizinle iletişime geçeceğim. Tekrardan teşekkürler.
...mesaj göndermekte.
Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie = New InternetExplorer
'https://web.whatsapp.com/send?phone=+++
ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now +...
Merhabalar
İnternetten bulduğum aşağıdaki kodu kullanmak istiyorum. Kod whatsapp'dan toplu mesaj atmaya yarıyor ama her mesaj için ayrı ayrı sekme açıyor. Kodu paylaşıyorum. Acil yardımcı olursanız çok sevinirim.
Private Sub CommandButton1_Click()
For i = 2 To 3
Dim ie As InternetExplorer
Set ie...
...aşağıdaki komut ile açabiliyorum, program aktif oluyor. Her defasında kapatıp açmam gerekiyor.
AppVal = Shell("C:\Users\kalitesistem\Desktop\ÇALIŞMALAR\WHATSAPP\WhatsAppSetup.EXE", 1)
Ben programı kapatmadan, açık olan programa hangi komut ile geçerim (aktif ederim). Böyle bir makro var mı?
Bilgisayarımda AÇIK olan Masaüstü Whatsapp programına excel makro ile geçiş yapabilir miyim. Ekranda aktif etmek.
Kapalı exe dosyasını açıyorum ama açık dosyaya nasıl geçerim bilmiyorum.
Amacım asağıdaki komutlarlarla yönetmek. Yardımcı olursanız sevinirim.
Call SendKeys("{TAB}", True)...
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.