25 sur 702 entre Av. Juárez
y 9 Pte.
Col. La Paz C.p. 72160
Puebla, México
Tel. +52 (222) 2.96.73.39
Fax. +52 (222) 2.96.73.40
mail:admisiones@isu.com.mx
<%
Dim objMail,objConfig
Dim nombre
Dim correo
Nombre = Request.Form("nombre")
Correo = Request.From("correo")
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
with objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="200.57.129.2"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'.Fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "admisiones@isu.com.mx"
'.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Fields.Update
end with
Set objMail.Configuration = objConfig
objMail.From = name5
objMail.To = "sistemas@sistemaieu.edu.mx"
objMail.Subject = "Ejemplo"
objMail.HTMLBody = "Ejemplo de Correo"
objMail.Send
if objMail.Send then
Response.Write "El Mail fue Enviado con Exito"
else
Response.Write "El Mail no pudo ser Enviado"
end if
set objMail = Nothing
Dim objMail,objConfig
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
with objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="200.57.129.2"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'.Fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "admisiones@isu.com.mx"
'.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Fields.Update
end with
Set objMail.Configuration = objConfig
objMail.From = Correo
objMail.To = "sistemas@sistemaieu.edu.mx"
objMail.Subject = Nombre
bjMail.Password = "asesoria"
objMail.HTMLBody = "Ejemplo de Correo"
objMail.Send
if objMail.Send then
Response.Write "El Mail fue Enviado con Exito"
else
Response.Write "El Mail no pudo ser Enviado"
end if
set objMail = Nothing
%>
