Error Con CDO !!!! Hola a todos, tengo un formulario que envia un correo, uso el CDO, al poner una cuenta de mi server si envia sin problemas pero al poner una cuenta externa(ejm. Hotmail.com, Terra.com) me sale error y no envia..como puedo solucionarlo???
Aca pongo el codigo q uso
'mail al user
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.update
End With
Set ObjMensaje = Server.CreateObject("CDO.Message")
Set objmensaje.Configuration = cdoConfig
ObjMensaje.from = "[email protected]" 'correo que envia
ObjMensaje.To = "[email protected]" ' a donde debe llegar el correo
ObjMensaje.Subject = "Tienes un mensaje desde FyFdaruich.com" ' titulocuenta de correo quien lo recibe
cad1="Nombre y Apellidos : " & nombre
cad2="Razón Social : " & razon
cad3="Teléfono : " & telefono
cad4="E-mail : " & email
cad5="Desea que se le contacte a travez de : " & trato
cad6="Ud. desea : " & cotiza
cad7="Tipo de Seguro : " & seguro
cad8="Mensaje : " & obs
ObjMensaje.TextBody = cad1 & Vbcrlf & cad2 & Vbcrlf & cad3 & Vbcrlf & cad4 & Vbcrlf & cad5 & Vbcrlf & cad6 & Vbcrlf & cad7 & Vbcrlf & cad8
ObjMensaje.Send
Set ObjMensaje = Nothing
