Enviar mail con CDO Hola Gente, estoy realizando un formulario para mi web y quiero que las consultas me lleguen a mi mail ([email protected]) No se que le tengo que corregir a mi codigo ya que probe de todo y no puedo hacerlo funcionar... Creo que el problema esta en como declaro mi mail pero no puedo terminar de hacerlo funcionar... Aca se los dejo y les agradezco de antemano!!!!
Saludos y feliz año 2015!
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' Envia el mensage utilizando la red (SMTP) thenetwork).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.live.com" 'Servidor smtp del dominio
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Puerto
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Usar SSL (dejar FALSE)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Tiempo de espera de conexion al servidor SMTP
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Tipo de autenticacion basica
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]" ' Cuenta de Correo que va a autentificar
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="acapongomicontraseña" ' Clave correcta de la cuenta de correo que va a autentificar
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = Request.Form("para")
ObjSendMail.Subject = Request.Form("titulo")
ObjSendMail.From = Request.Form("de")
ObjSendMail.TextBody = Request.Form("com")
ObjSendMail.Send
Set ObjSendMail = Nothing
response.redirect ("mail.asp") ' Redirecciona a la pagina del formulario
%>
