bnmbertsu,yu,yu,fffffffy,ltdfg

hjkhhndndndnd,trt bnmbertsu,yu,yu,fffffffy,ltdfg

<%
'Send Mail for Web

Sub SendMail()
'sMailServer = "mail.rediffmailpro.com"
'sMailServer = "smtp.gmail.com"
'	Set objMail = Server.CreateObject("CDO.Message")
'	Set objConf = Server.CreateObject("CDO.Configuration") 
'	Set objFields = objConf.Fields
	
'	With objFields
'		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")  = sMailServer
'		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'		.Update 
'	End With

Const cdoSendUsingMethod        = _
	"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
	"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort         = _
	"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout  = _
	"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate       = _
	"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic                  = 1
Const cdoSendUserName           = _
	"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword           = _
	"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Const cdoSMTPUseSSL           = _
	"http://schemas.microsoft.com/cdo/configuration/smtpusessl"

Dim objConfig  ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields

'Server port (typically 25)
'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587

'Use SSL for the connection (False or True)
'objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
	.Item(cdoSendUsingMethod)       = cdoSendUsingPort
	.Item(cdoSMTPServer)            = "smtp.gmail.com"
	.Item(cdoSMTPServerPort)        = 465
	.Item(cdoSMTPConnectionTimeout) = 10
	.Item(cdoSMTPAuthenticate)      = cdoBasic
	.Item(cdoSendUserName)          = "sandeep@therealidea.com"
	.Item(cdoSendPassword)          = "sandeep2309"

.Item(cdoSMTPUseSSL)          = True
	.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
	.To       = sTo 
	.From     = sFrom 
	.Subject  = sSubject '"SMTP Relay Test"
	.HTMLBody = sBody '"SMTP Relay Test Sent @ " & Now()
	.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

'	With objMail
'		Set .Configuration = objConf
'		.From = sFrom
'		.To = sTo
'		.Subject = sSubject
'		.HTMLBody = sBody
'		.AddAttachment sFile
'	End With
    
 '   Err.Clear 
'	on error resume next
'
 '   objMail.Send
	'if len(Err.Description) = 0 then
    '    mes = " Message sent to " + sTo
     '   mes = mes + " TESTS COMPLETED SUCCESSFULLY!"
      '  IsSuccess = true
    'else
	'	mes = " " + Err.Description + " TESTS FAILED!"
	'end if
	'Set objFields = Nothing
	'Set objConf = Nothing
	'Set objMail = Nothing
End sub

' if len(mes) > 0 then	Alert(mes) end if

Sub Alert(html)
	if IsSuccess then
		Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
	else
		Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
	end if
End Sub
%>