e-mail mit mehrere Anhänge aus access versenden
Karl Donaubauer
Gesendet: 05.03.12 16:13
Betreff: RE: e-mail mit mehrere Anhänge aus access versenden



Elite Veteran

Beiträge: 848
50010010010025
Ort: Wien
alexschedel - 05.03.12
...
Das Problem bei Deinem Code, ist dass ich jeweils nur diese Dateien senden kann, die in der Funktion definiert sind:

cMyItem.Attachments.Add "c:\export2.txt"

Ich will aber bei jeder e-mail die Anhänge frei auswählen, also diese die in einer Tabelle im Unterformular aufgeführt werden.
Gibt es eine Möglichkeit diese Dateien über z.B. eine Schleife aus dem Unterformular anzuhängen?

MyItem.Attachments.Add "mit Hilfe einer Schleife wähle alle Datensätze aus Tabelle in Unterformular"
...

Willst du alle DS aus dem UFo oder nur "frei ausgewählte"? Falls letzteres, wie, mit welcher Methode ausgewählt?

Wenn es alle sein sollen und der Code im Hauptformular steht, sieht entsprechender Luftcode ca. so aus:

'oben in der Prozedur

Dim rsAttach As DAO.Recordset
Set rsAttach = Me!DeinUfo.RecordSetClone

'statt der fixen Add-Zeilen eine Schleife

Do Until rsAttach.EOF
MyItem.Attachments.Add rsAttach!DeinFeldMitDemPDFPfad
Loop

-----
Servus
Karl
*********
https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Top of the page Bottom of the page