![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) 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
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |