Subversion Repositories DevTools

Rev

Rev 1499 | Rev 3936 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1499 Rev 3900
Line 1459... Line 1459...
1459
</form>
1459
</form>
1460
<!-- FOOTER -->
1460
<!-- FOOTER -->
1461
<!--#include file="_footer.asp"-->
1461
<!--#include file="_footer.asp"-->
1462
<%
1462
<%
1463
If email Then
1463
If email Then
1464
   Dim myMail, LocalPath
1464
   Dim LocalPath
1465
   Set myMail=Server.CreateObject("Persits.MailSender")
-
 
1466
   LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
1465
   LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
1467
 
1466
 
1468
   myMail.Host = SMTP_HOST
-
 
1469
   myMail.Subject="Release Comparisons from Release Manager"
1467
   Send_Email   "Release Manager Notification",_
1470
   myMail.From="releasem@erggroup.com"
1468
                adminEmail, _
1471
   myMail.AddAddress objAccessControl.UserEmail
1469
                objAccessControl.UserEmail,_
1472
   ' Attach the file
-
 
1473
   myMail.AddAttachment LocalPath
1470
                "Release Comparisons from Release Manager", _
1474
   myMail.Body = "Your requested report..."
1471
                "Your requested report...",_
1475
   myMail.Send
-
 
1476
 
-
 
1477
   set myMail=nothing
1472
                LocalPath
1478
End If
1473
End If
1479
%>
1474
%>
1480
</body>
1475
</body>
1481
</html>
1476
</html>
1482
<%
1477
<%