Subversion Repositories DevTools

Rev

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

Rev 5958 Rev 6646
Line 1244... Line 1244...
1244 
		Set myMail=Server.CreateObject("Persits.MailSender")
 1244 
		Set myMail=Server.CreateObject("Persits.MailSender")
1245 
		LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
 1245 
		LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
1246
1246
1247 
		myMail.Host = SMTP_HOST
 1247 
		myMail.Host = SMTP_HOST
1248 
		myMail.Subject="Release Comparisons from Release Manager"
 1248 
		myMail.Subject="Release Comparisons from Release Manager"
1249 
		myMail.From="releasem@erggroup.com"
 1249 
		myMail.From="releasem@vixtechnology.com"
1250 
		myMail.AddAddress objAccessControl.UserEmail
 1250 
		myMail.AddAddress objAccessControl.UserEmail
1251 
		' Attach the file
 1251 
		' Attach the file
1252 
		myMail.AddAttachment LocalPath
 1252 
		myMail.AddAttachment LocalPath
1253 
		myMail.Body = "Your requested report..."
1253 
		myMail.Body = "Your requested report..."
1254 
		myMail.Send
 1254 
		myMail.Send