bestimmte Dateien aus Ordner in Email
11.10.2019 16:31:20
Thomas
in einem Order sind viele .pdf-Dateien, die namentlich über VBA-speichern wie folgt zusammengesetzt werden:
"Bericht_OK" + "Zelle A1" + "VA" + "Zelle A2" + "Zelle A3" (wobei A3 auch mal leer sein kann)
Beispiel:
Bericht_OK 12 VA 2019.pdf
Bericht_OK 12 VA 2019 modi.pdf
Bericht_OK 12 VA 2019 modi und gepr.pdf
Bericht_OK 13 VA 2019.pdf
...
Gibt es eine VBA-Möglichkeit, in Bezug auf Zelle A1 und A2 alle zutreffenden .pdf-Dateien aus dem Ordner auszuwählen und automatisch an eine Email (Outlook) zu hängen? Die Überprüfung des Dateinamen müsste also immer in Bezug auf Zelle A1 und A2 bis zum Jahr laufen, ein erweiterter Dateiname sollte dabei irrelevant sein - nur bei Übereinstimmung beider Zellangaben (A1 und A2 im Dateinamen) sollen die entsprechenden Dateien angehangen werden.
In diesem Fall: A1 = 12 und A2 = 2019
Ergebnis: die ersten drei Dateien würden angehangen werden, Datei "Bericht_OK 13 VA 2019" und andere nicht...
Geht so etwas? Als kleiner Start vorne weg:
Sub Anlagenhinzufügen()
Set objOutlookMsg = Application.CreateItem(olMailItem)
With objOutlookMsg
.To = "xy@firma.de"
.Subject = "Betreff"
.HTMLBody = "Anbei die Listen:"
d = Dir("C:\*.pdf")
While d ""
.Attachments.Add "C:\" & d
d = Dir
Wend
.Display
End With
End Sub
Besten Dank und Gruß
Thomas