Hallo zusammen,
habe im Netz einiges zu diesem Thema gefunden, doch leider nichts brauchbares.
Ich arbeite mit Windows 11 (64bit) und Access 2019 (32bit).
Kann hier jemand unterstützen?
Zur Info, ich bin kein Access-Profi, daher bitte Unterstützung in verständlichem deutsch... ;)
Freue mich über jeden Tipp.
Vielen Dank im Voraus
Andreas
Was hat denn Access mit Whatsapp zu tun?
Ah genau, nichts.
Vielleicht zeigst du mal wenigstens was du gefunden hast.
....diese beiden Videos z.B....
https://youtu.be/FTolZdo1EDM (https://youtu.be/FTolZdo1EDM)
https://youtu.be/94BG1PcWD4g (https://youtu.be/94BG1PcWD4g)
Hallo nochmal,
das Problem liegt in der Zeile: Set IE = CreateObject("InternetExplorer.Application")
Private Sub btnSendMsg_Click()
On Error GoTo err_goto_click
Dim IE As Object
Dim num As String
num = Me.txtmobile.Value
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "whattsapp://send?phone*" & txtmobile & "" & txtMsg
Sleep 1000
Call SendKeys("(ENTER)", True)
SendKeys "."
Sleep 1000
SendKeys "."
SendKeys "(NUMLOCK)", True
Set IE = Nothing
MsgBox "Message sent successful", vbInformation, "WhatsApp"
exit_goto_click:
Exit Sub
err_goto_click:
MsgBox "Check mobil number maybe not correct!"
Resume exit_goto_click
End Sub
Der Internetexplorer ist unter Windows 11 nicht mehr verfügbar....:-(
Daher muss ich meine Frage präzisieren:
Gibt es dafür eine Alternative?
Im Netz bin ich dazu nicht wirklich fündig geworden.
Grüße
Andreas
Die Lösung ist doch reiner Unfug.
Hab mal kurz gegoogelt:
Hier eine Lösung ohne Webbrowser, allerdings auch nur mit Nachricht.
https://gist.github.com/whatsmate/dd1a1b80342b87f778ef732bb5a12582
Vielleicht findet sich ja wer, der das auch mit Anhängen umsetzen kann.
Die Frage ist natürlich wofür man so was braucht. Es gibt ja eh eine Desktop-Anwendung. Für den professionellen Einsatz gibt es ja entsprechende API's vom Hersteller direkt. Da muss man dann auch nichts können außer Copy & Paste, denn Beispielcodes gibt es ja dafür.
Moin,
vielen Dank.
Die Geschichte mit Anhängen wäre auch nur so ein addon...:-)
Reine Message ist ausreichend....
Noch ein Satz wozu:
Es handelt sich um eine DB für u.a. Disposition von Bussen.
Gelegentlich kommt es vor, dass sich Dienste kurzfristig ändern und die Disponenten vergessen den Fahrer zu informieren.
In einem solchen Fall sollte automatisch eine Whatsapp/Mail versendet werden.
Nochmals vielen Dank