Abfrageergebnis im Mail.Body nicht als Anlage per Vba

[prime1009]

Hi,
ich suche nach einer Möglichkeit, eine Abfrageergebnis im Body einer Mail (als Tabelle) zu versenden. Es soll so sein, als wenn ich das per Cut and Paste in die mail übertrage, aber per Programmcode ausgeführt werden.

Die Abfrage als Anhang zu Versenden kenn ich, will ich aber nicht, da der Empfänger sonst immer erst den Anhang öffnen muss.

Das Ergebniss müsste dann wie in der Anlage zu sehen sein.

Wäre schön, wenn einer eine Lösung für Access 2003 wüsste. Ich habe beim Googeln nichts gefunden.

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo, 



z. B. so  (ohne Fehlerbehandlung!):

Code [Auswählen] Erweitern

Public Function HTMLMail(SendTo As String, Subject As String, Table As String, HtmFile As String)

Dim strDatei As String, LU As Long
Dim olItem As Object, olApp As Object

Set olApp = CreateObject("Outlook.Application")
Set olItem = olApp.CreateItem(0)

LU = FreeFile

DoCmd.OutputTo acOutputTable, Table, acFormatHTML, HtmFile

With olItem
.To = SendTo
.Subject = Subject

Open HtmFile For Input As LU

Do While Not EOF(1)
strDatei = strDatei & Input(1, LU)
Loop

Close LU
   
.HTMLBody = strDatei
.Display ' oder gleich senden:   .Send

End With

Set olApp = Nothing: Set olItem = Nothing

End Function

[prime1009]

Super, genau das was mir fehlte.  

Vielen Dank für die Lösung!