Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 3959
Line 314... Line 314...
314
	Call Footer()
314
	Call Footer()
315
 
315
 
316
	NewTextFile.Close()
316
	NewTextFile.Close()
317
	Set NewTextFile=Nothing
317
	Set NewTextFile=Nothing
318
	
318
	
319
	Dim myMail, LocalPath
319
	Dim LocalPath
320
	Set myMail=Server.CreateObject("Persits.MailSender")
-
 
321
	LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
320
	LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
322
	
321
	
323
	myMail.Host = SMTP_HOST
322
    'myMail.AddAddress Request("user")&"@erggroup.com"
324
	myMail.Subject="Projects Report"
323
    Send_Email "Release Manager Notification",_
325
	myMail.From="releasem@erggroup.com"
324
               adminEmail, _
326
	myMail.AddAddress Request("user")&"@erggroup.com"
325
               objAccessControl.UserEmail,_
327
	' Attach the file
-
 
328
	myMail.AddAttachment LocalPath
326
               "Projects Report"  , _
329
	myMail.Body = "Your requested report..." 
327
               "Your requested report...",_
330
	myMail.Send
328
               LocalPath
331
 
329
    
332
	set myMail=nothing
-
 
333
 
330
 
334
	Response.write "<b>Report Generated Successfully and Emailed!</b>"
331
	Response.write "<b>Report Generated Successfully and Emailed!</b>"
335
End If
332
End If
336
Call Destroy_All_Objects
333
Call Destroy_All_Objects
337
%>
334
%>