Hallo !
Wie kann ich denn ich in Access, wenn ich eine Abfrage gemacht habe, das Ergebnis dieser Abfrage automatisch in eine eMail packen?
Es grüßt euch,
der Daniel.
Leider schreibst du nicht, welche Access-Version du einsetzt…
Aber wenn es nicht gerade 2.0 ist: Schau doch mal in der Hilfe unter „SendObject“ nach…
Reinhard
Hallo Reinhard. Danke für deine Hilfe bei meinen beiden Fragen.
Das mit dem SendObject klappt zwar (Access 2000), aber er setzt es als anhang in eine Mail. Meinst du das geht das er es als Text direkt in die mail schreibt ?
Grüße vom Daniel.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard. Danke für deine Hilfe bei
meinen beiden Fragen.
Das mit dem SendObject klappt zwar
(Access 2000), aber er setzt es als
anhang in eine Mail. Meinst du das geht
das er es als Text direkt in die mail
schreibt ?
Wenn du HTML-Mail verwendest und bei SendObject HTML als Format verwendest, wird die Abfrage in den HTML-Text hinein gesetzt. Ansonsten musst du die Abfrage wohl erst in eine Textdatei exportieren (bzw. als Recordset öffnen) und dann per VBA in den Message-Body hineinkopieren, z.B. so:
Public Function SendSQL(SQL, STo, Optional Subject = "", Optional Message1 = "", Optional Message2 = "", Optional Sep = ";", Optional CC, Optional BCC)
Dim Tmp, Res, DB As Database, RS As Recordset, Fld As Field
Set DB = CurrentDb
Set RS = DB.OpenRecordset(SQL, dbOpenSnapshot)
Res = "": Tmp = ""
For Each Fld In RS.Fields
Tmp = Tmp & Sep & Fld.Name
Next Fld
Res = Res & vbCrLf & Mid(Tmp, Len(Sep) + 1)
Do While Not RS.EOF
Tmp = ""
For Each Fld In RS.Fields
Tmp = Tmp & Sep & Fld.Value
Next Fld
Res = Res & vbCrLf & Mid(Tmp, Len(Sep) + 1)
RS.MoveNext
Loop
RS.Close
Res = Message1 & Res & vbCrLf & Message2
DoCmd.SendObject acSendNoObject, , acFormatTXT, STo, CC, BCC, Subject, Res, True
End Function
Reinhard
Dank dir für deine Mühe, ich werde es nachher ausprobieren. 
Daniel