Office: DoCmd.SendObject Windows 10 Pro funktioniert nicht

Hallo,
leider bin ich ja nicht richtig firm in ACCESS.
mit diesem Code:
*
Private Sub mailschicken_Click()
Dim mailto As String
Dim mailsubj As String
Dim abfrage As String
mailto = "egal@egal.de"
mailsubj = "Wochenplan"
abfrage = "abfr_besuche_alle"

DoCmd.SendObject acSendQuery, abfrage, acFormatXLS, , , , mailsubj, , True
End Sub
*

senden unsere Aussendienstler/innen aus einer ACCESS 2010 Runtime per Thunderbird eine EXCEL-Datei. Das funktioniert auf 20 Rechnern (Windows 8 & 10) seit Jahren problemlos.

Auf zwei neuen Rechnern (Windows 10 Pro, Version 1803) kommt die Fehlermeldung:

"Die Ausführung dieser Anwendung wurde wegen eines Laufzeitfehlers angehalten. Die Anwendung kann nicht weiter ausgeführt werden und wird beendet." (ohne Fehlercode!)

Ich habe es mit allen verfügbaren Runtimes (10,13,16) und alternativ der Windows-Mail probiert. Das jeweilige Mailprogramm ist Standard (windows+r: mailto: funktioniert)

Kein Virenscanner installiert. Alle Updates.
Ich verstehe s einfach nicht.
Das Problem finde ich zwar hundertfach, aber keine Lösung, die mir hilft.

Vielen Dank für Eure Hilfe.
Gruss
Heinz

:)

 

Moin,
den Fehler kenne ich zwar auch nicht, aber hast du es mal mit einem anderen Format versucht (txt oder xlsx)?
maike

 

Hallo,
ja, habe ich versucht. GEht nicht. Gleiches Verhalten.
Gruss
Heinz

 

Hallo,

Hier sollte eine entsprechende LZF-Behandlung eingebaut werden, dann stürzt Access wenigstens nicht ab und gibt eventuell eine hilfreiche Fehlermeldung.

Ansonsten ist vermutlich Thunderbird nicht korrekt als MAPI-Anwendung registriert.

Zum Fehlerausschluss kannst du mal den Link Code:

z.B. als URL im Browser eingeben

 

\@Maike
Dann hast du wohl überall eine ordentliche Fehlerbehandlung oder
verwendest keine Runtime.

@Heinz
Lösung um eine brauchbare Fehlermeldung zu erhalten hat Steffen
geschrieben.

gruss ekkehard

 

Hallo,
ich muss leider gestehen, dass meine kleinen VBA-Schnipsel so rudimentär sind, dass eine Fehlerbehandlu8ng nie notwendig war. Ich weiss einfach nicht wie man das macht. Komischerweise wird ja auch keine Laufzeitfehlernummer ausgegeben.
Gruss
Heinz

 

Code:

 

Hallo Heinz,

hat da nicht im Code der die Empfängerangabe gefehlt?

Code:

btw - die Variablen hab ich mal umbenannt, weil zB MailTo leicht zu Irritatiionen führen kann.

 

Hallo und vielen Dank für Eure Antworten,
die Empfängerangabe fehlt nicht, sie wurde weggelassen, weil einzelne Mitarbeiter an unterschiedliche Vorgesetzte berichten und dann entsprechend nur die E-Mailadresse eingeben. Funktioniert auf allen anderen Kisten.

Die Fehlerroutine sagt:
"2046 Der Befehl oder die Aktion ´SendenObjekt´ ist zurzeit nicht verfügbar."

Dabei spielt es keine Rolle, ob ich das Mailprogramm vorher öffne oder nicht.

Gruss
Heinz

 

Hast du eigentlich Outlook auf den betreffenden Rechnern installiert?
Du musst OL nicht als Mailprogramm nutzen, nur ohne Installation funktioniert imho SendObject nicht, da der Befehl aus der Outlook-Bibliothek kommt.
maike

 

Hallo,
nein, Outlook ist nicht installiert und war nie installiert.
Aber es funktioniert ja problemlos auf den anderen Rechnern ohne Outlook.
Gruss
Heinz

 

Sicher? Wie gesagt, du musst OL weder nutzen noch starten, es muss halt nur die Teile der VBA-Bibliothek liefern.
maike

 

Hallo,
in VBA->Extras->Verweise ist Outlook nicht angekreuzt und es funktioniert trotzdem auf den alten Rechnern. Neu aufsetzen, Outlook installieren - hat alles nichts gebracht. Irgendwas ist auf den neuen PCs einfach anders. Jetzt mit der Fehlernummer finde ich allerdings etliche Leidensgenossen.
Ich habe es nun so umgestaltet, dass ein XL-Sheet auf Knopfdruck erstellt wird (liegt auf dem Desktop) und das wird dann als Anlage versendet. Nicht so benutzerfreundlich wie ich das vorhatte, aber dafür sind die zwei neuen Mitarbeiter mit einem schnelleren PC gesegnet.
;-)
Bei der Rumsucherei bin ich auf das gestossen:

FreeVBCode code snippet: vbSendMail.dll Version 3.65-- Easy E-mail Sending in VB, with Attachments



und werde das in der kommenden Woche mal ausprobieren.

Gruss
Heinz

 

Einen Verweis auf Outlook braucht es auch nicht, wie gesagt, nur die Installation. Warum es danach auch noch nicht geht, da bin ich jetzt allerdings überfragt.
maike

 

Lass' Dich nicht in die Irre führen - es wird definitiv keine Outlook-Installation benötigt, um mit DoCmd.SendObject eine E-Mail zu versenden.