20 lines
732 B
Plaintext
20 lines
732 B
Plaintext
|
|
Dim fso, folder, files
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\PCHW\export\EXACT")
|
|
Set files = folder.Files
|
|
For each folderIdx In files
|
|
If InStrRev(folderIdx.Name, ".xml") > 0 Then
|
|
Set objEmail = CreateObject("CDO.Message")
|
|
objEmail.From = "no_reply@pchw.facilitor.nl"
|
|
objEmail.To = "fa@pch-dienstengroep.nl"
|
|
objEmail.Subject = "Facilitor: Bestand met inkoopfacturen Westland"
|
|
objEmail.Textbody = "Automatisch verzonden bestand van geexporteerde facturen."
|
|
objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\PCHW\export\EXACT\" + folderIdx.Name
|
|
objEmail.Send
|
|
End If
|
|
Next
|
|
|
|
|