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]
Hallo,
z. B. so (ohne Fehlerbehandlung!):
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
Super, genau das was mir fehlte. :)
Vielen Dank für die Lösung!