whatsapp toplu mesaj

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
189
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
merhaba excell üzerinde sürekli değişen verilerimz var telefon numarası ve metin şeklinde toplu halde mesaj göndermek isiyorum formumda araştırdım birçok dosya buldurum fakat uyarlayamadım desteğinizi rica ederim. whatsapp program ilede olur tarayıcıdanda olur farketmez şimdiden teşekkürler
 

Ekli dosyalar

okan32

Altın Üye
Katılım
12 Mayıs 2016
Mesajlar
376
Excel Vers. ve Dili
Ofis 2019- 32 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
16-04-2026
merhaba excell üzerinde sürekli değişen verilerimz var telefon numarası ve metin şeklinde toplu halde mesaj göndermek isiyorum formumda araştırdım birçok dosya buldurum fakat uyarlayamadım desteğinizi rica ederim. whatsapp program ilede olur tarayıcıdanda olur farketmez şimdiden teşekkürler
Kod:
Sub WhatsApp()
    Dim lastRow As Long
    Dim i As Long
    Dim phoneNumber As String
    Dim message As String
    Dim url As String
          lastRow = Cells(Rows.Count, 1).End(xlUp).Row
          For i = 2 To lastRow
        phoneNumber = Cells(i, 1).Value
        message = Cells(i, 2).Value
                       url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & Application.EncodeURL(message)
                        ThisWorkbook.FollowHyperlink url
                        Application.Wait (Now + TimeValue("0:00:10"))
    Next i
        MsgBox "Mesajlar gönderildi!"
End Sub
Mesajların gönderilmesi için WhatsApp Web'in açık olması ve QR kodu ile giriş yapılmış olması gerekir.
 

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
189
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
Kod:
Sub WhatsApp()
    Dim lastRow As Long
    Dim i As Long
    Dim phoneNumber As String
    Dim message As String
    Dim url As String
          lastRow = Cells(Rows.Count, 1).End(xlUp).Row
          For i = 2 To lastRow
        phoneNumber = Cells(i, 1).Value
        message = Cells(i, 2).Value
                       url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & Application.EncodeURL(message)
                        ThisWorkbook.FollowHyperlink url
                        Application.Wait (Now + TimeValue("0:00:10"))
    Next i
        MsgBox "Mesajlar gönderildi!"
End Sub
Mesajların gönderilmesi için WhatsApp Web'in açık olması ve QR kodu ile giriş yapılmış olması gerekir.
merhaba; her mesaj için yeniden bir link açıyor. whatsapp ekranı açık oldugu içinde hataya düşünüyor. whsapp ekranı açık burada kullan uyarısı alıyorum. mesaj gönderemeden hataya düşünüyor. uygulama üzerindende işlem yapılabilir. desteğinizi rica ederim
 
Üst