| | Post: 199 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
01/01/2024 18:01 | |
Salve a tutti e Buon Anno!
Durante l'esecuzione di un codice con cui invio dei messaggi su whatsapp, mi compare, prima di ogni messaggio, una finestra con cui mi si chiede di consentire ad Internet Explorer di aprire un App sul mio computer. Ho provato anche a modificare il controllo account utente (so che è sconsigliato) ma non ho risolto. Il dover dare il consenso ad ogni messaggio rende di fatto inutile l'operazione. Suggerimenti?
Sub inviaw()
Dim LastRow As Long
Dim i As Integer, strip As String
Dim strPhoneNumber As String, strMsg As String, strPostData As String
Dim IE As Object
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
strPhoneNumber = Sheets("foglio3").Cells(i, 3).Value
strMsg = Sheets("foglio3").Cells(i, 4).Value
strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMsg
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("^v")
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{Enter}", True)
Next i
End Sub
|
|
| | Post: 1.045 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | ONLINE |
|
01/01/2024 19:37 | |
ciao Melissa2018
premesso che non posso risolvere io il tuo problema, ma certo arriverà qualcun'altro, chiedo:
dal momento che in altre discussioni ti esprimi al femminile devo pensare che sei una ragazza
Se è così ti dispiacerebbe correggere la tua scheda indicando la "F" ?
E' solo per una questione di statistica e di ordine, forse te lo avevo già chiesto.
Grazie
------
Grazie della destrezza e dimenticavo Buon Anno [Modificato da L2018 01/01/2024 19:50]
LEO
https://t.me/LordBrum |
| | Post: 199 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
01/01/2024 19:50 | |
Certo Leo, fatto |
| | Post: 5.022 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
01/01/2024 22:04 | |
La butto lì anche se ho poche speranze che possa funzionare.
Prova ad inserire ad inizio macro
Application.DisplayAlerts = False
ed al termine
Application.DisplayAlerts = True
Alfredo |
| | Post: 5.023 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
01/01/2024 22:05 | |
@L2018
Leo io se non sono sicuro che son femmine non rispondo 😂😂😂
Alfredo |
| | Post: 200 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
01/01/2024 23:49 | |
Ciao Alfredo, purtroppo il problema persiste. |
| | Post: 5.024 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
01/01/2024 23:51 | |
Mi spiace lo immaginavo
Alfredo |
| | Post: 5.025 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | ONLINE |
|
01/01/2024 23:59 | |
Prova a guardare questo video; si usa Selenium al posto di Outlook oramai in disuso
https://m.youtube.com/watch?v=Wn9L1MD_y0Y&t=47s&pp=ygUgZXhjZWwgdmJhIHNlbmQgd2hhdHNhcHAgbWVzc2FnZSA%3D
Alfredo |
| | Post: 3.670 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
02/01/2024 11:55 | |
Ciao Melissa e auguri di Buon Anno
Non sono un esperto in queste cose, ma fai un tentativo e, se va, adattalo alle tue esigenze
cari saluti
whatsapp_number = "123456789"
testo = "prova"
ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & whatsapp_number & "&text=" & _
testo & "&app_absent=1&send=1"
Application.Wait (Now() + TimeValue("00:00:05"))
VBA.SendKeys "~", True
Domenico
Win 10 - Excel 2016 |
| | Post: 1.046 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Veteran | EXCEL 2016 - SPREAD32 | | ONLINE |
|
02/01/2024 12:14 | |
Ciao Domenico, e Buon Anno
ero curiosissimo del giochetto, ho provato e mi pare abbia funzionato
l'unica cosa è che nel whatsapp.web del PC il messaggio non è entrato nel numero fornito, ma si è fermato nel rigo composizione messaggi, ma quasi certamente la cosa dipende da qualcosa di mio
caruccio
LEO
https://t.me/LordBrum |
| | Post: 201 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
02/01/2024 14:13 | |
Caro Domenico, buon Anno anche a te! Wow! 😮
Grazie! Ovviamente il tuo codice va alla grandissima, nessunissimo problema, realizza esattamente ciò desideravo.😋
Adesso lo adatterò alla mia routine e, siccome spesso ho una predisposizione a perdermi in cose più complicate,
studierò come allegare anche immagini e documenti. 🧐
P.S. So che lo sai già, d'altronde, te l'ho sempre scritto: sei un Supereroe! 🙏🎁
P.P.S. Ringrazio anche Alfredo (studierò ovviamente anche il tuo suggerimento e proverò a darti un riscontro ) e Leo per i loro interventi ed il tempo dedicatomi
[Modificato da Melissa2018 02/01/2024 14:14] |
| | Post: 3.671 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
02/01/2024 16:47 | |
ciao Melissa
grazie...troppo buona.
Purtroppo come detto, non sono molto addentro il problema e non saprei come aiutarti con gli allegati.
Ho fatto un "breve" giro sul web, ma si trova "spazzatura".....sorry
saluti
Domenico
Win 10 - Excel 2016 |
|
|