ARAI#52128 Aanpassing emailadres dagrapportages

svn path=/Website/branches/v2018.1/; revision=38740
This commit is contained in:
Sander Schepers
2018-08-07 12:22:21 +00:00
parent 61d3e8e2e6
commit 93c294f965

View File

@@ -7,7 +7,7 @@ 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 = "w7esp56tzt3p4fayc28d@rai.nl"
objEmail.To = "c.overmars@rai.nl;w7esp56tzt3p4fayc28d@rai.nl"
objEmail.Subject = "Facilitor: Dagrapportage van " & day(date) -1 & "-" & month(date) & "-" & year(date)
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