Dateien suchen und kopieren
07.03.2005 12:47:50
Bernd
ich bitte um eure Hilfe bei meinem kleinen Problem.
Ich möchte gern (aus Excel heraus) Dateien aus einem lokalen Verzeichnis per Email versenden. Die Dateinamen sollen vom aktiven Tabellenblatt aus Spalte A
ausgelesen werden. Hier stehen die Dateinamen in Form von Auftragsnummern
z.B. 6400
6433
7430
....usw
Die dazugehörigen Datein stehen im Pfad C:\Daten_Email
6400.cs
6433.dwg
7430.dxf
....usw
Eine Datei anhand 1 Zelle (zB. A2) zu suchen und per Email zu versenden funktioniert auch schon. Aber wie erreiche ich, dass der komplette Bereich mit allen vorhandenen Einträgen (nur Spalte A, Anzahl Zellen variabel zwischen 1 bis 15) gesucht und gesendet wird? Schön wäre auch ein MsgBox ob alle Dateien gefunden wurden.
Vorhandener Code:
Sub EmailverschickenmitAnhang()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Aufträge"
.Body = "Im Anhang neue Aufträge"
.To = "emailadresse@t-online.de"
End With
With Application.FileSearch
.NewSearch
.LookIn = "C:\Daten_email\"
.SearchSubFolders = True
.Filename = Range("A2") & ".*"
.Execute
For i = 1 To .FoundFiles.Count
Mail.Attachments.Add .FoundFiles(i)
Next i
End With
Mail.Display
Set Mail = Nothing
Set ouobj = Nothing
End Sub
Ich hoffe Ihr könnt helfen.
Gruß Bernd