Transmitere mesaj catre Whatsapp

Ce este nou in Microsoft Excel 2019?
Informatii despre cum se utilizeaza Microsoft Excel 2019
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
alex.carabat
Mesaje: 62
Membru din: Mie Dec 12, 2012 9:38 pm

Transmitere mesaj catre Whatsapp

Mesaj de alex.carabat » Vin Ian 29, 2021 12:30 pm

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
Mesaje: 118
Membru din: Dum Noi 07, 2010 4:58 pm

Re: Transmitere mesaj catre Whatsapp

Mesaj de basileus » Mie Mar 10, 2021 2:30 pm

Instalati versiunea whatsApp pentru desktop
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

gh19612005
Mesaje: 194
Membru din: Lun Dec 28, 2009 6:10 pm
Localitate: Pitesti

Re: Transmitere mesaj catre Whatsapp

Mesaj de gh19612005 » Lun Mar 15, 2021 9:50 am

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

alex.carabat
Mesaje: 62
Membru din: Mie Dec 12, 2012 9:38 pm

Re: Transmitere mesaj catre Whatsapp

Mesaj de alex.carabat » Mie Mar 24, 2021 3:13 pm

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

alex.carabat
Mesaje: 62
Membru din: Mie Dec 12, 2012 9:38 pm

Re: Transmitere mesaj catre Whatsapp

Mesaj de alex.carabat » Mie Mar 24, 2021 3:51 pm

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
Moderator
Moderator
Mesaje: 284
Membru din: Lun Sep 05, 2011 5:06 pm

Re: Transmitere mesaj catre Whatsapp

Mesaj de DR.ACCESS » Lun Mai 17, 2021 12:15 pm

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
D. Tanase
MCT, MCTS
MOS Master Instructor

Scrie răspuns

Înapoi la “Intrebari despre Excel 2019”