Formattazione testo in messaggio Whatsapp

BF Soluzioni

unread,

Jul 12, 2022, 12:09:30 PM7/12/22

to

Buongiorno,
ho creato un form access dove ho i dati del cliente e un form per il
messaggio da inviare via email o con whatsapp.
Il testo è il seguente:
Gent.ma Sig.ra Luana,
Il suo codice cliente è: 74.
Le auguriamo un felice compleanno e con l'occasione, Le inviamo un buono
sconto per un qualsiasi trattamento presso il nostro negozio, valido per
30 giorni dal ricevimento del messaggio.
Per usufruire dello sconto, mostri questo messaggio all'ingresso.
La preghiamo di volerci contattare per fissare l'appuntamento e con
l'occasione, le porgiamo
Cordiali saluti.

Il testo è formattato in questo modo ed è inserito in una casella di
testo di tipo testo lungo.

Quando lo spedisco per email, viene spedito correttamente ma quando lo
spedisco con whatsapp, viene tutto attaccato e senza andare a capo.
Ho provato a passargli il codice vbcrlf o il codice ascii, ma non cambia
nulla.

Il codice che ho usato per inviare il messaggio è il seguente:

cell = "+39 " & Forms![clienti]!TelCellulare
CreateObject("Shell.Application").Open
"https://api.whatsapp.com/send?phone=" & cell & "&text=" &
Me.TestoMessaggio & vbCrLf & Me.Ditta
Forms!clienti!ultimomessaggio = Date
Forms!clienti!id_messaggio = Me.Messaggio
Forms!clienti!TipoMessaggio = DLookup("[titolo]", "messaggi", "[id] = "
& Me.Messaggio)

Ho sbagliato qualcosa?
Vi ringrazio.
Cordiali saluti.
Stefano

--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus

BFS

unread,

Jul 13, 2022, 1:58:57 AM7/13/22

to

al posto dello spazio devi usare il +

BFS

BFS

unread,

Jul 13, 2022, 2:10:13 AM7/13/22

to

dimenticavo
per l'acapo usa %0a

esempio

Dim testo As String
testo = "riga+uno%0ariga+2"

cell = "+393......"
CreateObject("Shell.Application").Open
"https://api.whatsapp.com/send?phone=" & cell & "&text=" & testo

BFS

Michele

unread,

Jul 13, 2022, 11:10:14 AM7/13/22

to

Da quello che ho capito questo codice funziona se whatsapp applicazione o web sono aperti.
Giusto?

BFS

unread,

Jul 13, 2022, 11:27:13 AM7/13/22

to

almeno sul mio pc se non aperto l'app si apre
ma come gia discusso in passato il messaggio non viene inviato in
automatico..serve comunque cliccare su invia.

se non ricordo male perchè espressamente vietato dalla policy di whatapp
che vieta l'invio di messaggi senza l'intervento dell'utente.

BFS

RobertoA

unread,

Jul 13, 2022, 11:36:28 AM7/13/22

to

E questo rompre discretamente le scatole
Non c'e' altro modo di automatizzare l'invio messaggi su wa?
Identificare handle finestra con aperto wa web e far 'premere' il tasto
INVIA a colpi di SendMessage ?

BF Soluzioni

unread,

Jul 13, 2022, 12:01:49 PM7/13/22

to

Grazie mille, mi hai salvato la vita...
Funziona alla perfezione anche se devo confermare ogni volta l'invio.
Adesso dovrò dividere il codice se devo inviare con whatsapp o email, ma
almeno adesso è perfetto.
Buongiorno a tutti.

BFS

unread,

Jul 13, 2022, 12:10:00 PM7/13/22

to

ma con accrocchi esterni lo si fa
esempio su pyton c'è una libreria esterna dove basta mettere numero
destinatario messaggio, data e ora e il messaggio parte

per vba vedi qui una possibile soluzione

https://www.youtube.com/watch?v=Wn9L1MD_y0Y

BFS

RobertoA

unread,

Jul 13, 2022, 12:14:25 PM7/13/22

to

No no, che confermare l'invio ogni volta, non esiste
Il sior BFS ti ha consigliato due metodi per ovviare al limite
Sei pregato, urgentemente, di provarli e poi riferire
Con tanto di codice, s'intende :)

BFS

unread,

Jul 13, 2022, 12:18:31 PM7/13/22

to

no no gran calma
ho scritto che ci sono soluzioni, ma sottolineo nuovamente che l'invio
automatico NON è consentito e neppure l'invio in massa

https://faq.whatsapp.com/1104252539917581/?locale=it_IT

ci sono sanzioni

BFS