admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ARAI#52128 -- Verstuur de dagrapportage als mail

Browse Source 
svn path=/Website/branches/v2017.3/; revision=38043
This commit is contained in:
Robin Stoker
2018-05-31 14:45:14 +00:00
parent 9ffbecf333
commit a412fcb04a
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
CUST/ARAI/export/sendmail.vbs Normal file
View File

@@ -0,0 +1,18 @@
Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("d:\Apps\Facilitor\Fplace5i\CUST\ARAI\export\PDF")
Set files = folder.Files
For each folderIdx In files
If InStrRev(folderIdx.Name, ".pdf") > 0 Then
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "no_reply@rai.facilitor.nl"
objEmail.To = "r.stoker@facilitor.nl;c.overmars@rai.nl"
objEmail.Subject = "Facilitor: Dagrapportage"
objEmail.Textbody = "Deze email is automatisch verzonden en bevat een PDF van de laatste dagrapportage."
objEmail.AddAttachment "d:\Apps\Facilitor\Fplace5i\CUST\ARAI\export\PDF\" + folderIdx.Name
objEmail.Send
End If
Next