Whatsapp mit und ohne Anhang senden

[Lalikowski]

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

[markusxy]

Was hat denn Access mit Whatsapp zu tun?

Ah genau, nichts.

Vielleicht zeigst du mal wenigstens was du gefunden hast.

[Lalikowski]

....diese beiden Videos z.B....

https://youtu.be/FTolZdo1EDM

https://youtu.be/94BG1PcWD4g

[Lalikowski]

Hallo nochmal,

das Problem liegt in der Zeile: Set IE = CreateObject("InternetExplorer.Application")

Code [Auswählen] Erweitern

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

[markusxy]

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.

[Lalikowski]

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