Neueste Datei anfügen.bat

Dim objMail, objOutlook,oList
'---------------------------------------  
Const FOLDER1 = "C:\Ordner1"  
Const FOLDER2 = "C:\Ordner2"  

Const MAILTO = "sample@gmail.com"  
Const SUBJECT = "Löhne"  
Const BODY = "Dein Body"  

'---------------------------------------  
Set objOutlook = CreateObject("Outlook.Application")  

Set objMail = objOutlook.CreateItem(0)
With objMail
	.To = MAILTO
	.Subject = SUBJECT
	.Body = BODY
	'Dateien im Ordner 1 einlesen  
	Set oList = getNewestFiles(FOLDER1,"pdf")  
	If oList.RecordCount > 0 Then
		oList.MoveFirst
		For i = 1 To oList.RecordCount
			If i = 3 Then Exit For
			.Attachments.Add oList.Fields("name").Value  
			oList.MoveNext
		Next
		oList.Close
	Else
		MsgBox "Keine entsprechenden Dateien im Ordner 1 gefunden"  
	End If
	'Dateien im Ordner 2 einlesen  
	Set oList = getNewestFiles(FOLDER2,"xml")  
	If oList.RecordCount > 0 Then
		oList.MoveFirst
		.Attachments.Add oList.Fields("name").Value  
		oList.Close
	Else
		MsgBox "Keine entsprechenden Dateien im Ordner 2 gefunden"  
	End If
	.Display
End With

Set objOutlook = Nothing
Set oList = Nothing
Set objMail = Nothing

'Bestimmte Dateien eines Verzeichnisses in ein Recordset einlesen und Absteigend nach Datum sortieren  
Function getNewestFiles(strFolder,strEXT)
	Set objList = CreateObject("ADOR.Recordset")  
	Set fso = CreateObject("Scripting.Filesystemobject")  
	objList.Fields.Append "name", 200, 255  
	objList.Fields.Append "date", 7  
	objList.Open
	For Each file In fso.GetFolder(strFolder).Files
		If fso.GetExtensionName(file.Path) = strEXT Then
			objList.AddNew
			objList("name").Value = file.Path  
			objList("date").Value = file.DateLastModified  
			objList.Update
		End If
	Next
	objList.Sort = "date DESC"  
	Set getNewestFiles = objList
	Set fso = Nothing
End Function