Newsgroup: it.comp.appl.access
Titolo: Formattazione testo in messaggio Whatsapp

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
 
 


al posto dello spazio devi usare il +
 
BFS


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

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


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
 
 
 
 
 
 
 


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 ?
 
 
 
 
 


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.



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
 
 
 
 


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  :)
 
 


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