Subversion Repositories DevTools

Rev

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

Rev 6643 Rev 6646
Line 113... Line 113...
113 
                Response.Write "<br>Emailing using: " & SMTP_HOST
 113 
                Response.Write "<br>Emailing using: " & SMTP_HOST
114 
                Dim myMail
 114 
                Dim myMail
115 
    		    Set myMail=Server.CreateObject("Persits.MailSender")
 115 
    		    Set myMail=Server.CreateObject("Persits.MailSender")
116 
        		myMail.Host = SMTP_HOST
 116 
        		myMail.Host = SMTP_HOST
117 
        		myMail.Subject="NODESPEC FILES Generated from Deployment Manager"
 117 
        		myMail.Subject="NODESPEC FILES Generated from Deployment Manager"
118 
        		myMail.From="releasem@erggroup.com"
 118 
        		myMail.From="releasem@vixtechnology.com"
119 
        		myMail.AddAddress objAccessControl.UserEmail
 119 
        		myMail.AddAddress objAccessControl.UserEmail
120 
        		' Attach the file
 120 
        		' Attach the file
121 
        		myMail.AddAttachment LocalPath &".zip"
 121 
        		myMail.AddAttachment LocalPath &".zip"
122 
        		myMail.Body = "Your requested node spec files .."
122 
        		myMail.Body = "Your requested node spec files .."
123 
        		myMail.Send
 123 
        		myMail.Send