Buongiorno a tutti, sto cercando un modo per inviare msg WhatsApp tramite Access da una semplice maschera con numero di cellulare (Cellulare) e messaggio (txtmsg). In rete ho trovato un tutorial ad hoc ma non mi funziona perché nel codice crea un oggetto di tipo Internet Explorer mentre io ho Edge. Il mio problema (credo) è che non riesco a sostituire efficacemente Edge a Explorer nel codice che riporto:
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep.Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
Public Function SendWhatsAppMsg(Cellulare As String, Optional txtmsg As String, Optional FilePath As String)
Dim IE As Object
'NON FUNZIONA NESSUN SET
Set IE = CreateObject("InternetExplorer.Application")
Set IE = CreateObject("msedge")
Set IE = CreateObject("msedge.Application")
IE.Visible = False
IE.navigate "whatsapp;//send?phone=+39" & Cellulare & "&Text=" & Nz(txtmsg, "")
Sleep 2000
If Len(FilePath) > 5 Then
SendKeys "+{TAB}"
SendKeys "~"
Sleep 2000
SendKeys "{UP}"
SendKeys "{UP}"
SendKeys "~"
Sleep 2000
SendKeys Nz(FilePath, "")
SendKeys "~"
Sleep 3000
Else
End If
SendKeys "~"
SendKeys "(NUMLOCK)", True
Set IE = Nothing
End Function
Sapreste indicarmi dove sbaglio?
Grazie mille!