WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/projects_issues_report.asp

 	Call Footer()
 	NewTextFile.Close()
 	Set NewTextFile=Nothing
-	Dim myMail, LocalPath
+	Dim LocalPath
-	Set myMail=Server.CreateObject("Persits.MailSender")
 	LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
-	myMail.Host = SMTP_HOST
+    'myMail.AddAddress Request("user")&"@erggroup.com"
-	myMail.Subject="Projects Report"
+    Send_Email "Release Manager Notification",_
-	myMail.From="releasem@erggroup.com"
+               adminEmail, _
-	myMail.AddAddress Request("user")&"@erggroup.com"
+               objAccessControl.UserEmail,_
-	' Attach the file
-	myMail.AddAttachment LocalPath
+               "Projects Report"  , _
-	myMail.Body = "Your requested report..."
+               "Your requested report...",_
-	myMail.Send
+               LocalPath
-	set myMail=nothing
 	Response.write "<b>Report Generated Successfully and Emailed!</b>"
 End If
 Call Destroy_All_Objects
 %>

Subversion Repositories DevTools