Ok. primero gracias...soy novato en este tema, puse a funcionar el siguiente codigo pero me gustaria que me ayudes explicando algunas lineas del codigo sobre todo esto:
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.sudsolteros.com"
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oConf.Fields.Update
'Update the CDOSYS Configuration
Set oMail.Configuration = oConf
Y numero dos como es el tratamiento de errores ? si no se udo enviar el mail por algun motivo como le digo al usuario que tuvo un error?
Ahi les va el codigo completo para que lo usen:
<%
Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO
dim oConf
dim sDe
sAsunto="E-Mail de prueba desde ASP"
'Creamos el cuerpo con varias líneas para facilitar la lectura
Set oMail = Server.CreateObject("CDO.Message")
Set oConf = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.sudsolteros.com"
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
oConf.Fields.Update
'Update the CDOSYS Configuration
Set oMail.Configuration = oConf
sDe = request("txt_email")
sAsunto = request("txt_asunto")
sCuerpo = request("txt_cuerpo")
oMail.From = sDe
oMail.To = "
[email protected]"
oMail.Subject = sAsunto
oMail.HTMLBody = sCuerpo
oMail.Send
response.write("su mail se envio")
Set oMail = Nothing
Set oConf = Nothing