Hola:
Hace unos dias puse un post con un problema con un formulario en ASP.
El tema es que no me da ningún error, pero tampoco me llegan los
email's al correo. Lo vuelvo a poner, porque esta bastante lioso el
otro, a ver si podeis ver el error que tengo. Muchas Gracias.
<%
Dim oCDO
Set oCDO = CreateObject ("CDO.Message")
Dim iConf
Set iConf = CreateObject ("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
Flds("
http://schemas.microsoft.com/cdo/co...sing") = 2
'tells cdo we're using the local smtp service
Flds("
http://schemas.microsoft.com/cdo/co...tory")
= "c:\inetpub\mailroot\pickup" 'verify that this path is correct
Flds("
http://schemas.microsoft.com/cdo/co...rver")"smtp.distribuidor.com"
Flds("
http://schemas.microsoft.com/cdo/co...port")25
Flds("
http://schemas.microsoft.com/cdo/co...ress")"prueba@distribuidor.com"
Flds.Update 'updates CDO's configuration database
oCDO.To = "prueba@prueba.com"
oCDO.From = "prueba@prueba.com"
oCDO.Subject = "Consulta Web"
oCDO.TextBody = empresa & vbCrLf & actividad & vbCrLf & persona &
vbCrLf & email & vbCrLf & poblacion & vbCrLf & Texto_msg & vbCrLf
oCDO.TextBody = Replace(oCDO.TextBody,vbCrLf,"<BR>")
oCDO.Send
Set oCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
Leer las respuestas