whatsapp ile aktif satırdaki bilgileri gönder

S

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
201
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
excell içerisinde bir buton oluşturup aktif satırı işaretleyip o satırdaki bilgileri whatsapp yolu ile göndermek istiyorum yardımcı olursanız sevinirim. örnek olarak aşagıdaki gibi göndermek istiyorum. yardımcı olursanız sevinirim.

Sayın 120-40-35-006 CARİ1
Sipariş Ve Risk Bilgileri Asagıdaki Gibidir:
CARI_KOD: 120-40-35-006
CARI_ADI: cari1
IL: İZMİR
ILCE: BASMANE
TARIH: 09.02.2021
SIP_NUMARASI: WEB-YP000009101
CARI_BAKIYE: -390815,4329
SIPARIS_TUTARI: 1614,4878
OLMASI_GEREKEN_RISK:
RISK_LIMITI: 175000
BAGLANTI: VAR
SIPARIS_DURUMU:
PROJE_KODU: Y
PLASIYER: plasiyer1
TELEFON: 5555555
ACIKLAMA:
BEKLEYEN_SENET: 565000
BEKLEYEN_CEK: 0
HESAPLANAN_RISK: 174184,5671
BAGLANTI_TUTARI: 500000
PLASIYER_eposta: deneme@
 

Ekli dosyalar

S

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
201
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
mancubus' Alıntı:
şuradaki 2 no.lu cevapta WhatsApp API indirildikten sonra kullanılabilecek bir kod verilmiş.
iş yerinde pek fazla download imkanı olmadığından test edemedim.
belki işe yarar.

Genişletmek için tıkla ...

bahsetmiş oldugunuz kod bu galiba.


Kod: 
Sub wpp()

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application") 'Create object IE

    IE.navigate "whatsapp://send?phone=+905555555&text=something" 'Send message "something" to this phone (Brazil)

    Application.Wait Now() + TimeSerial(0, 0, 3) 'ok just one wait and sendkeys :v

    SendKeys "~"

    'IE.Quit 'The navigate already kills the IE

    Set IE = Nothing 'Clear the object

End Sub
 
S

sevensuleyman

Altın Üye
Katılım
9 Kasım 2012
Mesajlar
201
Excel Vers. ve Dili
office 2010
Altın Üyelik Bitiş Tarihi
08-12-2027
mail gönderirken kullanılan kod . ufak değişikliklerle uyarlanabilir belki.


Kod: 
Private Sub CommandButton4_Click()

Dim sh As Worksheet, ss As Long, oApp As Object, oMail As Object, i As Integer
Dim ad As String, CARI_KOD As String, CARI_ADI As String, IL As String, ILCE As String, TARIH As String, SIP_NUMARASI As String, SIP_BAKIYE As String, SIPARIS_TUTARI As String, OLMASI_GEREKEN_RISK As String, RISK_LIMITI As String, BAGLANTI As String, SIPARIS_DURUMU As String, PROJE_KODU As String, PLASIYER As String, TELEFON As String, ACIKLAMA As String, BEKLEYEN_SENET As String, BEKLEYEN_CEK As String, HESAPLANAN_RISK As String, BAGLANTI_TUTARI As String, PLASIYER_eposta As String, PLASIYER_TEL, CARI_EPOSTA As String

Set sh = Sheets("ÖDEME BEKLEYEN") 'sayfa
ss = sh.Range("A5555").End(3).Row 'son satır
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
    For i = 8 To ss
        CARI_KOD = sh.Range("O" & i).Value
        CARI_ADI = sh.Range("B" & i).Value
        IL = sh.Range("C" & i).Value
        ILCE = sh.Range("D" & i).Value
        TARIH = sh.Range("E" & i).Value
        SIP_NUMARASI = sh.Range("F" & i).Value
        CARI_BAKIYE = sh.Range("G" & i).Value
        SIPARIS_TUTARI = sh.Range("H" & i).Value
        OLMASI_GEREKEN_RISK = sh.Range("I" & i).Value
        RISK_LIMITI = sh.Range("J" & i).Value
        BAGLANTI = sh.Range("K" & i).Value
        SIPARIS_DURUMU = sh.Range("L" & i).Value
        PROJE_KODU = sh.Range("M" & i).Value
        PLASIYER = sh.Range("N" & i).Value
        TELEFON = sh.Range("A" & i).Value
        ACIKLAMA = sh.Range("P" & i).Value
        BEKLEYEN_SENET = sh.Range("R" & i).Value
        BEKLEYEN_CEK = sh.Range("S" & i).Value
        HESAPLANAN_RISK = sh.Range("T" & i).Value
        BAGLANTI_TUTARI = sh.Range("U" & i).Value
        PLASIYER_eposta = sh.Range("V" & i).Value
        PLASIYER_TEL = sh.Range("W" & i).Value
        CARI_EPOSTA = sh.Range("Q" & i).Value
    
        With oMail
            .Display
            .To = PLASIYER_eposta
            .Subject = CARI_KOD & CARI_ADI & " ÖDEME VEYA RISK BİLGİLENDİRMESİ"
            .Body = "Sayın " & CARI_KOD & CARI_ADI & ";" & vbCrLf & _
                    "Sipariş Ve Risk Bilgileri Asagıdaki Gibidir:" & vbCrLf & _
                    "CARI_KOD: " & CARI_KOD & vbCrLf & _
                    "CARI_ADI: " & CARI_ADI & vbCrLf & _
                    "IL: " & IL & vbCrLf & _
                    "ILCE: " & ILCE & vbCrLf & _
                    "TARIH: " & TARIH & vbCrLf & _
                    "SIP_NUMARASI: " & SIP_NUMARASI & vbCrLf & _
                    "CARI_BAKIYE: " & CARI_BAKIYE & vbCrLf & _
                    "SIPARIS_TUTARI: " & SIPARIS_TUTARI & vbCrLf & _
                    "OLMASI_GEREKEN_RISK: " & OLASI_GEREKEN_RISK & vbCrLf & _
                    "RISK_LIMITI: " & RISK_LIMITI & vbCrLf & _
                    "BAGLANTI: " & BAGLANTI & vbCrLf & _
                    "SIPARIS_DURUMU: " & SIP_DURUMU & vbCrLf & _
                    "PROJE_KODU: " & PROJE_KODU & vbCrLf & _
                    "PLASIYER: " & PLASIYER & vbCrLf & _
                    "TELEFON: " & TELEFON & vbCrLf & _
                    "ACIKLAMA: " & ACIKLAMA & vbCrLf & _
                    "BEKLEYEN_SENET: " & BEKLEYEN_SENET & vbCrLf & _
                    "BEKLEYEN_CEK: " & BEKLEYEN_CEK & vbCrLf & _
                    "HESAPLANAN_RISK: " & HESAPLANAN_RISK & vbCrLf & _
                    "BAGLANTI_TUTARI: " & BAGLANTI_TUTARI & vbCrLf & _
                    "PLASIYER_eposta: " & PLASIYER_eposta & vbCrLf & _
                    "Sistem linki: www.falconbayi.com" & vbCrLf & _
                    "İyi çalışmalar dilerim."

                  
            '.Send 'e-postayı gönderir
        
        End With
    Next i
Set sh = Nothing
Set oApp = Nothing
Set oMail = Nothing
End Sub
 
mancubus

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
eposta uygulamanızdaki sütun yapısı farklı mı?
 
mancubus

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
sevensuleyman' Alıntı:
bahsetmiş oldugunuz kod bu galiba.
Genişletmek için tıkla ...
ilgili API yüklenmiş olmalı.

bunun uyarlaması:
C#: 
Sub xlTR_193181_whatsapp_üzerinden_mesaj_api()
   
    Dim IE As Object
    Dim waMsg As String
    Dim lRow As Long
   
    lRow = ActiveCell.Row
   
    waMsg = waMsg & "Sayın " & Range("Y" & lRow) & " " & Range("B" & lRow) & vbCrLf
    waMsg = waMsg & "Sipariş Ve Risk Bilgileri Asagıdaki Gibidir:" & vbCrLf
    waMsg = waMsg & "CARI_KOD: " & Range("Y" & lRow) & vbCrLf
    waMsg = waMsg & "CARI_ADI: " & Range("B" & lRow) & vbCrLf
    waMsg = waMsg & "IL: " & Range("C" & lRow) & vbCrLf
    waMsg = waMsg & "ILCE: " & Range("D" & lRow) & vbCrLf
    waMsg = waMsg & "TARIH: " & Range("E" & lRow) & vbCrLf
    waMsg = waMsg & "SIP_NUMARASI: " & Range("F" & lRow) & vbCrLf
    waMsg = waMsg & "CARI_BAKIYE: " & Range("G" & lRow) & vbCrLf
    waMsg = waMsg & "SIPARIS_TUTARI: " & Range("H" & lRow) & vbCrLf
    waMsg = waMsg & "OLMASI_GEREKEN_RISK: " & Range("I" & lRow) & vbCrLf
    waMsg = waMsg & "RISK_LIMITI: " & Range("J" & lRow) & vbCrLf
    waMsg = waMsg & "BAGLANTI: " & Range("U" & lRow) & vbCrLf
    waMsg = waMsg & "SIPARIS_DURUMU: " & Range("V" & lRow) & vbCrLf
    waMsg = waMsg & "PROJE_KODU: " & Range("W" & lRow) & vbCrLf
    waMsg = waMsg & "PLASIYER: " & Range("X" & lRow) & vbCrLf
    waMsg = waMsg & "TELEFON: " & Range("AG" & lRow) & vbCrLf
    waMsg = waMsg & "ACIKLAMA: " & Range("Z" & lRow) & vbCrLf
    waMsg = waMsg & "BEKLEYEN_SENET: " & Range("AB" & lRow) & vbCrLf
    waMsg = waMsg & "BEKLEYEN_CEK: " & Range("AC" & lRow) & vbCrLf
    waMsg = waMsg & "HESAPLANAN_RISK: " & Range("AD" & lRow) & vbCrLf
    waMsg = waMsg & "BAGLANTI_TUTARI: " & Range("AE" & lRow) & vbCrLf
    waMsg = waMsg & "PLASIYER_eposta: " & Range("AF" & lRow)

    Set IE = CreateObject("InternetExplorer.Application")
   
    IE.navigate "whatsapp://send?phone=" & Range("A" & lRow) & "&text=" & waMsg
   
    Application.Wait Now() + TimeSerial(0, 0, 3)
   
    SendKeys "~"

End Sub
 
mancubus

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
sevensuleyman' Alıntı:
Excel vba bilgim olmadığı maalesef uyarlayamıyorum..

bu forumda arkadaşlar bazı örnekler yapmışlar. aşağıdaki linkte payalaşıyorum. vba bilgim olmadığı için örneklerden uyarlayamadım. yardımcı olursanız sevinirim.

https://www.excel.web.tr/threads/excelde-web-whatsapp-ile-metin-ve-resim-goenderme.192825/
Genişletmek için tıkla ...
bunun uyarlaması
C#: 
Sub xlTR_193181_whatsapp_üzerinden_mesaj_SendKeys()

    Dim waMsg As String
    Dim lRow As Long
    
    lRow = ActiveCell.Row
    
    waMsg = waMsg & "Sayın " & Range("Y" & lRow) & " " & Range("B" & lRow) & vbCrLf
    waMsg = waMsg & "Sipariş Ve Risk Bilgileri Asagıdaki Gibidir:" & vbCrLf
    waMsg = waMsg & "CARI_KOD: " & Range("Y" & lRow) & vbCrLf
    waMsg = waMsg & "CARI_ADI: " & Range("B" & lRow) & vbCrLf
    waMsg = waMsg & "IL: " & Range("C" & lRow) & vbCrLf
    waMsg = waMsg & "ILCE: " & Range("D" & lRow) & vbCrLf
    waMsg = waMsg & "TARIH: " & Range("E" & lRow) & vbCrLf
    waMsg = waMsg & "SIP_NUMARASI: " & Range("F" & lRow) & vbCrLf
    waMsg = waMsg & "CARI_BAKIYE: " & Range("G" & lRow) & vbCrLf
    waMsg = waMsg & "SIPARIS_TUTARI: " & Range("H" & lRow) & vbCrLf
    waMsg = waMsg & "OLMASI_GEREKEN_RISK: " & Range("I" & lRow) & vbCrLf
    waMsg = waMsg & "RISK_LIMITI: " & Range("J" & lRow) & vbCrLf
    waMsg = waMsg & "BAGLANTI: " & Range("U" & lRow) & vbCrLf
    waMsg = waMsg & "SIPARIS_DURUMU: " & Range("V" & lRow) & vbCrLf
    waMsg = waMsg & "PROJE_KODU: " & Range("W" & lRow) & vbCrLf
    waMsg = waMsg & "PLASIYER: " & Range("X" & lRow) & vbCrLf
    waMsg = waMsg & "TELEFON: " & Range("AG" & lRow) & vbCrLf
    waMsg = waMsg & "ACIKLAMA: " & Range("Z" & lRow) & vbCrLf
    waMsg = waMsg & "BEKLEYEN_SENET: " & Range("AB" & lRow) & vbCrLf
    waMsg = waMsg & "BEKLEYEN_CEK: " & Range("AC" & lRow) & vbCrLf
    waMsg = waMsg & "HESAPLANAN_RISK: " & Range("AD" & lRow) & vbCrLf
    waMsg = waMsg & "BAGLANTI_TUTARI: " & Range("AE" & lRow) & vbCrLf
    waMsg = waMsg & "PLASIYER_eposta: " & Range("AF" & lRow)

    ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)

    Application.Wait Now + TimeValue("00:00:20")
    SendKeys ("^v")
    Application.Wait Now + TimeValue("00:00:05")
    Call SendKeys("{ENTER}", True)
    Application.Wait Now + TimeValue("00:00:03")
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)
    SendKeys String:="^w{enter}", Wait:=True

End Sub
 
mancubus

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
0 bu kodları test etme imkanım yok. onun için işe yarar mı bilemiyorum.

1 ofis dışı uygulamaları kullanmak için kimi zaman tek yol olarak kalan SendKeys metodu 'genellikle' güvenilir değildir. ben şahsen kullanmıyorum.
2 üstadlar "bir kodu okuduğunda ne yaptığını anlamıyorsan onu kullanma" derler .:D
3 başta buradaki kaynakları kullanarak, profesyonel eğitim alarak vba'e başlamak ve geliştirmek şart oğlu şart. :)
4 bu konuda hazırlanmış "third party" uygulamalar genelde vardır. test edip işe yarıyorsa lisanslı kullanıcı olmak avantajlı olabilir.

5 edge için hazırlanmış aşağıdaki add-on denenebilir.
https://microsoftedge.microsoft.com/addons/detail/watexter-for-whatsapp™-/flkkkdckojidgcjkaiilpnkahhaoolkf
 
mancubus

mancubus

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,224
Excel Vers. ve Dili
İŞ: 2021 Win Eng
unutmadan; talebiniz uyarınca, 8 ve 9 no.lu mesajlardaki kodlarda seçili olan satırdaki tel no'ya mesaj gider.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst