WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/branches/dpurdie/common/reports_def.asp

       NewTextFile.Close
       Set NewTextFile=Nothing
       ' EMAIL CSV report if user has requested it
       If emailReport Then
-         Dim myMail, LocalPath
+         Dim LocalPath
-         Set myMail=Server.CreateObject("Persits.MailSender")
          LocalPath = Server.MapPath("docs\ReleaseDEVIStatus_"&objAccessControl.UserName&".csv")
-         myMail.Host = SMTP_HOST
-         myMail.Subject="Release DEVI Status Report (csv) from Release Manager"
+         Send_Email   "Release Manager Notification",_
-         myMail.From=ADMIN_EMAIL
+                       adminEmail, _
-         myMail.AddAddress objAccessControl.UserEmail
+                       objAccessControl.UserEmail,_
-         ' Attach the file
-         myMail.AddAttachment LocalPath
+                       "Release DEVI Status Report (csv) from Release Manager", _
-         myMail.Body = "Your requested report..."
+                       "Your requested report...",_
-         myMail.Send
-         set myMail=nothing
+                       LocalPath
       End If
    End If
 End Sub
 %>

Subversion Repositories DevTools