Office: (Office 2007) Abfrage & E-Mail versenden

Hallo,

ich habe eine Abfrage mit mehreren Empfängern (Schüler,E-Mail).

Die Empfänger sollen alle eine Mail mit Anhang (Excel Datei, liegt auf Laufwerk C:\“….ABC“)
erhalten.

Wie kann ich über einen Button im Formular die ganze Aktion automatisch ablaufen lassen?

VG
Sonnenschein07

:)

 

Hier wirst Du um eine Outlookautomatisierung nicht umhin kommen.
Suche hier im Access-Forum mal nach Outlook oder den OLConnector von Sascha.

 

Es gibt freilich auch noch die Möglichkeiten
a) Mail per Lotus Notes oder anderem Client versenden
b) direkt per SMTP versenden
c) einen Aufruf der Funktion Shell() mit Angabe von mailto:// ruft den Standard-Mail-Handler auf

 

Moin,
du könntest auch über die Funktion SQL Liste die Namen in den String stTo schreiben und die Excel Datei in eine Abfrage (SELECT Anweisung als Querydef.SQL) wandeln. Dann per SendObject losschicken (dies funktioniert auch mit Thunderbird *wink.gif*):

Code:

maike

 

Das stimmt natürlich; sorry, ich hatte/habe die MS-Brille auf *wink.gif*
Und da liegt Outlook natürlich nahe...

 

Hallo maikek,

in der Abfrage gibt es die Spalte "E-Mail", es soll eine Mail an alle Mailadressen versendet werden.

Es soll nicht jeder Mailadresse im Code eingebaut sein.

VG

 

Dann musst Du eine kleine Prozedur schreiben, die Dir alle E-Mail Adressen aus nicht-leeren Feldern hintereinander in einen String einfügt. Beispiel für so was findest Du, wenn Du hier im Forum nach "Felder verketten" suchst.

Und den String, der sich da ergibt, den übergibst Du der von Dir gewählten Lösung ... aber bitte in BCC und nicht in TO *wink.gif*

 

Hallo,

hier mal meine Test-DB.

Im frm_Schüler_Übersicht soll über die Schaltfläche E-Mail eine Mail an alle
Schüler gehen, die durch die Abfrage gefiltert werden.

VG
sonnenschein07

 

Hallo!

Voraussetzung:

1. Outlook ist dein Standard-Mail-Programm
2. Alle Schüler haben eine Mailadresse (sonst müsste man noch in der Abfrage auf "Nicht Ist Null" prüfen)

Füge deinem E-Mail-Button folgende COde hinzu:
Code:

 

Hallo,

der Code funktioniert.

Über DoCmd.SendObject versuche ich eine Excel Datei vom Pfad C: mit als Anhang zu schicken.
Die Mail öffnet sich in Outlook und eine Fehlermeldung "Laufzeitfehler 2501" kommt.

Habe ich in der Codezeile einen Fehler?

DoCmd.SendObject , acFormatXLS, "C:\Dokument\Test03.XLS", Mid(Empfaenger, 2), , , "Betreff", Mailtext, True

VG
Sonnenschein07

 

Einen Anhang wirst Du mit SendObject so nicht hinbekommen.
SendObject versendet das anzugebene Datenbankobjekt (ggf. im XLS-Format).
Weitere Informationen hierzu in der OnlineHilfe (am besten Cursor auf SendObject und F1 drücken!)

Ansonsten bleibt die bereits angesprochene Automatisierung von Outlook.

 

Hallo!

Sorry. Da habe nicht richtig gelesen und den Anhang vergessen...

Grüße
Ingo

 

Hallo,

den Laufzeitfehler 2501 konnte ich schon selbst erledigen, dieser Fehler kam sobald man nicht sendet.

Kann ich den Anhang (Excel Datei) nicht erst in Access kopieren und dann als Anhang an die Mail anhängen?

Code:

VG

 

Nochmal:
SendObject kann keine Anhänge verwalten. Schau Dir doch mal die, bereits angesprochene, OnlineHilfe zu SendObject an.

Wenn diese Exceldatei etwas ist, was aus der DB erstellt wurde (z.B. eine exportierte Abfrage) kannst Du diese Abfrage als "Objekt" senden... einen Anhang im Sinne von "Ich hänge noch x Dateien an die Mail an" geht mit SendObject nicht.

 

Hallo!

Lies doch mal die Antwort von Benny. Mit DoCmd.SendObject geht das nicht. Du musst (sofern vorhanden) mit Outlook arbeiten. Ich bin gerade dabei ein Beispiel zusammenzustellen.

Alternativ verwendest du meinen Code und fügst per Hand die Exceldatei an die Mail.

Wirst du Outlook mit dieser Datenbank verwenden?

Grüße
Ingo