Italian whatsapp - invio di testo e file

sirjo66

Well-Known Member
Licensed User
Longtime User
Ciao a tutti,
in un mio programma invio testo, immagini e documenti tramite whatsapp.
Utilizzo questo codice:
B4X:
Cell = "39348xxxxxx" ' phone number
Testo = "text to send"
FileUpload = "filename.ext" ' this file is already copied in Provider.SharedFolder

Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
Starter.Provider.SetFileUriAsIntentData(in, FileUpload)
' get file extension
Dim FileExt As String = FileUpload.SubString2(FileUpload.LastIndexof("."), FileUpload.Length).ToLowerCase
Dim imageList As List
imageList.Initialize
imageList.AddAll(Array As String(".png",".jpg",".jpe",".jpeg",".gif",".bmp",".webp"))
If imageList.IndexOf(FileExt) >= 0 Then
    in.SetType("image/*")
Else
    in.SetType("application/*")
End If
in.SetPackage("com.whatsapp")
in.PutExtra("android.intent.extra.STREAM", Starter.Provider.GetFileUri(FileUpload))
in.PutExtra("android.intent.extra.TEXT", Testo)
in.PutExtra("jid", Cell & "@s.whatsapp.net")
StartActivity(in)

Se invio una immagine funziona tutto perfettamente, invia sia l'immagine sia il testo,
ma se provo ad inviare un file PDF mi invia solo il file PDF, non appare il testo
..... perchè ??

Thanks
Sergio
 

drgottjr

Expert
Licensed User
Longtime User
immagine + testo 👍
pdf + testo 👎
perche'? solo zuckerberg lo sa. non e' permesso
 

sirjo66

Well-Known Member
Licensed User
Longtime User
perchè non è permesso ??
se lo faccio "a mano" funziona
apro la chat su whatsapp, faccio "allega documento" e seleziono il file PDF, e mi chiede se voglio aggiungere del testo
se funziona così non capisco perchè non funzioni con il codice
 

drgottjr

Expert
Licensed User
Longtime User
precisamente. funziona cosi:
apro la chat su whatsapp, faccio "allega documento" e seleziono il file PDF, e mi chiede se voglio aggiungere del testo
non funziona come tu vuoi (con intent). whatsapp non lo ha implementato. ricerca un po' (come ho fatto io).

inoltre, tutto e' meglio "a mano"
 
Top