Supportnet / Forum / Datenbanken
Inhalt von Ordnern ermitteln
Frage
Hallo zusammen!
Ich möchte per SendObject eine Email versenden.
In einem Ordner (z.B. D:\Transfer) befinden sich Dateien (z.B. Hase.doc, Pferd.pdf und Igel.xls). Nun soll Access die Dateinamen ermitteln und Variablen zuordnen damit ich diese Dateinamen in den Emailtext einbinden kann (z.B. "Sie erhalten in der Anlage die Datei Hase.doc, Pferd.pdf und Igel.xls").
Zum zweiten wäre es schön, wenn Access diese Dateien dann noch automatisch der Mail als Anlage beifügt.
Hat da einer eine Idee?
Vielen Dank im vorraus
Willi
Antwort 1 von Marie
Private Sub testFilename()
Dim strFilename As String
strFilename = Dir("D:\Transfer")
Do
Debug.Print strFilename
strFilename = Dir
Loop Until Len(strFilename) = 0
End Sub
Dim strFilename As String
strFilename = Dir("D:\Transfer")
Do
Debug.Print strFilename
strFilename = Dir
Loop Until Len(strFilename) = 0
End Sub

