PK

Set omail = Server.CreateObject("CDO.Message")<br>
	omail.To= "tom@webtom.com.ar"<br>
<br>
	omail.From=  "tom@webtom.com.ar"<br>
	omail.Subject = "TEST"<br>
	omail.htmlBody = "test"<br>
<br>
	Set Mailconf = Server.CreateObject ("CDO.Configuration")
    ' Outgoing SMTP server <br>
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"<br>
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 <br>
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1<br>
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60<br>
	Set omail.Configuration = Mailconf<br>
<br>
	omail.send<br>
	Set omail=Nothing
<hr>


<%Set omail = Server.CreateObject("CDO.Message")
	omail.To= "tom@webtom.com.ar"
	
	omail.From=  "tom@webtom.com.ar"
	omail.Subject = "TEST"
	omail.htmlBody = "test"
	
	Set Mailconf = Server.CreateObject ("CDO.Configuration")
	' Outgoing SMTP server 
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	Set omail.Configuration = Mailconf
	
	omail.send
	Set omail=Nothing%>
	
    ENVIADO

PK 99