Transmitere mesaj catre Whatsapp

[alex.carabat]

Buna ziua,

Cunoaste cineva vreo solutie pentru a se transmite mesaje catre Whatsapp?

De exemplu: in coloana A am nmerele de telefon
in coloana B am numele
in coloana C am textul are trebuie transmis catre Whatsapp

Atunci cand fac plati, vreau sa instiintez toti beneficiarii despre efectuarea platii

[basileus]

Instalati versiunea whatsApp pentru desktop

[gh19612005]

Am instalat!
Si?
Banuiesc ca Alex solicita o solutie asemanatoare cu MailMerge.
Si pe mine m-ar interesa asa ceva...

[alex.carabat]

Am revenit abia acum ca am fost afectat mai grav de COVID.
Da, as vrea o solutia asemnaoare cu Mail Merge

[alex.carabat]

Am gasit acest cod dar nu ma multumeste

Sub whatsapp()
'
' whatsapp Macro
'
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application") 'Create object IE
IE.navigate "whatsapp://send?phone=00407XXXXXXXX&text=something" 'Send message "something" to this phone
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

Am inlocuit X-urile din cod cu nr de telefon si a functionat.

Eu insa as vrea un cod care sa imi trimita mesajul scris pe o coloana la numerele de telefon scrise pe alta coloana.

[DR.ACCESS]

Buna,
Am modificat un pic codul dumneavoastra.
la mine a mers brici!
Rulati macro pe fisierul in care aveti pe prima coloana numerele de telefon si pe a treia coloana mesajul, fara cap de tabel.
Daca aveti si cap de tabel, dati lui i valori de la 2

Cod: Selectaţi tot

Sub whatsapp()
'
' whatsapp Macro
'
Dim IE As Object
Dim i, lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Set IE = CreateObject("InternetExplorer.Application") 'Create object IE

IE.navigate "whatsapp://send?phone=" & Cells(i, 1).Value & "&text=" & Cells(i, 3).Value 'Send message "something" to this phone
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
'
Next
End Sub