UWVA#54227 Geen mails meer verzenden naar Tevreden.nl

svn path=/Website/branches/v2018.1/; revision=38716

CUST/UWVA/Export/gen_export_KTO.bat

@@ -1,29 +0,0 @@
-REM GEN_EXPORT_KTO
-REM
-REM UWVA
-REM
-REM Exporteert de ene week alle in de voorgaande 2 weken afgemelde meldingen
-REM (onder bepaalde vakgroeptypen) en de andere week alle in de voorgaande 2
-REM weken plaatsgevonden reserveringen.
-REM Het aangemaakte CSV-bestand wordt gemaild naar Tevreden.
-REM
-REM Context : roep deze file aan indien nodig, of schedule deze
-REM Vereist : de randvoorwaarde voor het gebruik van gen_export
-REM
-REM $Revision$
-REM $Id$
-REM
-REM (c) 2015 Facilitor
-REM
-
-REM ================================================== cleanup
-copy .\KTO\KTO*.csv .\KTO\Backup
-del .\KTO\KTO*.csv
-
-REM ================================================== create exportfile
-CALL ..\..\..\utils\gen_export\gen_export.bat KTO
-
-REM ================================================== mail
-if not exist ".\KTO\KTO*.csv" goto einde
-cscript sendmail.vbs
-:einde

CUST/UWVA/Export/sendmail.vbs

@@ -1,17 +0,0 @@
-Dim fso, folder, files
-Set fso = CreateObject("Scripting.FileSystemObject")
-
-Set folder = fso.GetFolder("d:\Apps\Facilitor\CUST\UWVA\Export\KTO")
-Set files = folder.Files
-For each folderIdx In Files
-   If InStrRev(folderIdx.Name, ".csv") > 0 Then
-      Set objEmail = CreateObject("CDO.Message")
-      objEmail.From = "no_reply@uwva.facilitor.nl"
-      ' objEmail.To = "m.vanderheide@facilitor.nl"
-      objEmail.To = "service@tevreden.nl"
-      objEmail.Subject = "Facilitor: Wekelijkse aanlevering KTO-bestand"
-      objEmail.Textbody = "Automatisch verzonden KTO-bestand."
-      objEmail.AddAttachment "d:\Apps\Facilitor\CUST\UWVA\Export\KTO\" + folderIdx.Name
-      objEmail.Send
-   End If
-Next