Office: (Office 2016) Abfrage als Anhang per Email (VBA) versenden

Ich habe diesen Code.
Nun möchte ich noch eine Access Abfrage als Anhang (Excel Format) mitsenden.
Ich habe den befehl im Access "objEmail.Attachments" gefunden, aber weiss nicht wie ich angeben kann, welche Abfrage er nehmen soll und in welchem Format.


bisheriger Code ohne Anhang.
----
Private Sub Email_Senden()

'----< USE OUTLOOK APP >----
Dim app_Outlook As Outlook.Application
Set app_Outlook = New Outlook.Application

'--< Email einstellen >--
Dim objEmail As Outlook.MailItem
Set objEmail = app_Outlook.CreateItem(olMailItem)
objEmail.To = "Empfaenger@empfaenger.me"
objEmail.Subject = "Software"
objEmail.HTMLBody = "Guten Tag
Anhang beachten und bearbeiten."
objEmail.Display True

objEmail.Send
'--< Email einstellen >--

'< Abschluss >
Set objEmail = Nothing
Set app_Outlook = Nothing
'

'--------
End Sub

:)

 

Hi, Du wirst die als Excel-exportierte Abfrage zunächst speichen müssen, um die Datei dann anzuhängen.

Code:

 

Mit anderen Worte, du musst aus der Abfrage erst einmal ein Excel Sheet generieren.
Attachment.Add erwartet dann den Pfad des generierten Files.
Siehe auch Hilfe:
https://docs.microsoft.com/de-de/off...6)&rd=true

 

Danke für die Antwort.
Also ohne Export und Import gehts nicht?

 

Was nicht "da" ist, kannst du auch nicht "anhängen".
Die Abfrage ist definiert über den SQL-String. Attachment.Add sieht es nicht vor Abfragenamen und Überführungstyp (.xlsx) zu übermitteln

 

... wenn Du die exportierte Datei dann nicht mehr brauchst, kannst Du sie NACH dem anhängen an die Mail wieder löschen:

Code:

 

Das mit Export/Import funktioniert.
Ich habe nun 5 verschiedene Empfänger-Adressen, welche als Basis die gleiche Abfrage haben, nur dass bei jedem Empfänger nur sein Teil "Spalte Empfänger filtern" exportiert wird und dann an ihn versendet wird.
Da muss sicher eine If schleife gebaut werden für Export und Versand?

 

Nicht unbedingt.
Eine Schleife, die durch ein geöffnetes RecordSet iteriert, tut es auch.

 

...verstehe ich richtig, dass Du 5 verschiedene Abfragen hast, je Empfänger eine?

 

Ich habe eine Tabelle mit Abteilung und deren Email-Adresse
Eine andere Tabelle mit diversen Daten und eine spalte Abteilung.

Es soll nun pro Abteilung "Tabelle Abteilung" ein Email versenden mit den Daten aus der Tabelle Daten der Abteilung" aber jeweils nur die Daten zur entsprechende Abteilung.
Die Daten als Anhang.

Also brauche ich doch eine schleife, welche pro Datensatz "Tabelle Abteilung" ein Email macht und die entsprechende Daten der Abteilung Exportiert/Importiert ins neu geöffnete Email zum versenden.

Also wie könnte so eine Schleife aussehen?
Den VBA Schleifen habe ich noch nie gemacht.
Nur einfache schon in PHP.

 

Habe bis jetzt alles mit Makros gemacht und möchte nun umsteigen auf VBA, da dies eher die Zukunft ist.

 

Wie man Schleifen in Access (VBA) bildet, lässt sich doch sehr leicht nachlesen in unzähligen Beiträgen im Internet.

 

Hi, so ganz trivial ist das nicht. Ich würde die Tabelle Abteilung mit einer Schleife durchlaufen und für jede Abteilung die Daten über eine Tabellenerstellungsabfrage in eine Tabelle schreiben. Diese Tabelle dann exportieren und an die Mail anhängen.

Ich habe Dir mal eine kleine Beispieldatenbank gebaut. Meine Tabelle Kunden ist dabei Deine Abteilungstabelle, meine Verkäufe sind deine Abteilungsdaten. In Modul1 befindet sich der Code der für jeden Kunden "seine" Verkäufe in eine separate Exceldatei exportiert und an eine Mail anhängt.

ich bin bei deiner Variante des Outlook-Zugriffs geblieben, daher musst Du evtl. unter Extras Verweise die Outlook-Bibliothek neu einbinden, falls Du eine ältere Version von Outlook hast.

Schau Dir das mal in Ruhe an, melde Dich gerne, wenn Du Fragen hast.

 

Die Tabellenerstellungsabfrage ist diesbezüglich nicht unbedingt nötig, denn die ResultSets von Abfragen lassen sich ebenfalls als Quelle für den Export verwenden.
Die notwendigen Änderungen der Filter lassen sich relativ einfach dynamisch in Abhängigkeit vom aktuellen Datensatz im RecordSet generieren, z.B. so:
Code: