Ver Mensaje Individual
  #1 (permalink)  
Antiguo 15/08/2013, 01:45
neofilo
 
Fecha de Ingreso: abril-2012
Ubicación: Madrid (España)
Mensajes: 162
Antigüedad: 12 años, 6 meses
Puntos: 5
Error al enviar mails con CDO.Message

Hola a todos, tengo contratado con 1&1 un dominio y una dirección de email, quiero enviar un email desde ASP pero me da error.

CDO.Message.1 error '80040220'

No es válido el valor de configuración "SendUsing".

/registro-usuario2.asp, línea 134



estoy usando este codigo

Código:
Dim objMail 
Set objMail = Server.CreateObject("CDO.Message") 
Set objConfig = Server.CreateObject("CDO.Configuration") 
schema = "http://schemas.microsoft.com/cdo/configuration/"



'Configuracion: 

objConfig.Fields(schema & "cdoSendUsingMethod") = cdoSendUsingPort



objConfig.Fields(schema & "cdoSMTPServer" )="smtp.1and1.es" 

objConfig.Fields(schema & "cdoSMTPServerPort" )=25 

objConfig.Fields(schema & "cdoSMTPAuthenticate")=cdoBasic 

objConfig.Fields(schema & "cdoSendUserName") = "[email protected]"

objConfig.Fields(schema & "cdoSendPassword") = "xxxxxxxx"



'Update configuration 

objConfig.Fields.Update 

Set objMail.Configuration = objConfig 



objMail.From =" [email protected] " 

objMail.To = "[email protected]" 

objMail.Subject ="Información" 

objMail.TextBody="Ejemplo de CDO.message" 

objMail.Send 



If Err.Number = 0 Then

  Response.Write("Mail enviado")

Else

  Response.Write("Error enviado mail. Coigo: " & Err.Number)

  Err.Clear

End If

Set objMail=Nothing 

Set objConfig=Nothing
el error está en esta linea objMail.Send

me estoy desesperando, a ver si alguien me puede echar una mano.

Por cierto, uso IIS7 como servidor Web por si sirve de informacion.