

<%' Old Mail Setings

'function SendMail(fromAddr,recipients,adminmail,strSubject,Report,mailComp)
 'if mailComp = "EasyMail" then
	'set mail = server.createobject("EasyMail.SMTP.5")
	'mail.LicenseKey  = "AES/S19I500R1AX30C0Rd000"
	'mail.Priority = 1	
	
	'mail.AddRecipient recipients, recipients,1
	'if adminmail<>"" then mail.AddRecipient adminmail, adminmail,2
	
 	'mail.MailServer  = "74.53.32.211"
	'mail.MailServer  = "90.0.0.250"
	'mail.Subject =  strSubject
	'mail.BodyFormat  = 1
	'mail.FromAddr= fromAddr
	'mail.BodyText  =Report 
	'strMail = mail.Send
	'if strMail=0 then 
		''Response.Write("Mail has been send")
	'else 
		''Response.Write("Mail has not send"&x)
	'end if 
	
	'set mail = nothing
	'strNote=""
'end if
'SendMail = strMail
'end function

' new Mail Settings - Date  from(6-3-09)



dim objErrMail
function SendMail(fromAddr,recipients,recipients1,strSubject,Report,mailComp) 
SendMail = strMail
 if mailComp = "EasyMail" then
 Set objErrMail= Server.CreateObject("CDO.Message")
 With objErrMail
 .From = fromAddr
 .To = recipients
 .Subject = strSubject
 .HTMLBody = Report
 .Configuration.Fields.Item ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Configuration.Fields.Item("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 
 ' // "mail.fyf.in" 
 ' // or 74.53.32.211 
 .Configuration.Fields.Item("https://schemas.microsoft.com/cdo/configuration/sendusername") = "mailsend@fyf.in"
 .Configuration.Fields.Item("https://schemas.microsoft.com/cdo/configuration/sendpassword") = "MlFyf7143"
 .Configuration.Fields.Item("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 .Configuration.Fields.Item("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 .Configuration.Fields.Update                                    
 .Send 
 End With
 end if
end function
%>
