saber si tiene el CDOsys el servidor

[mauroshek]

Buenos dias, yo tengo el mismo inconveniente (que en este mensaje), error '80040211'. y la linea q muestra es la que tiene el codigo: mail.Send

Escribí el codigo response.write err.description pero no se exactamente donde ubicarlo... me podrias ayudar con la solucion de este error 80040211 por favor.

set mail=server.CreateObject("CDO.Message")
mail.Subject = request.form("equipo")
mail.Sender= request.form("usuario")
mail.To = "xxxxxxxxxxxxxxxxx"
mail.HTMLBody = request.form("solic") mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxxxx" mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 110 mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mail.Configuration.Fields.Update
response.write err.description
mail.Send

set mail=nothing


Gracias...

[Valery-Net]

El error indica que el email no pude ser enviado.

mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 110

Porque usas el puerto 110, cambialo por 25

Adicionalmente no incluyes el usuario y password necesario para enviar el email.

[Myakire]

Solo por no dejar la duda original si quieres usar al objeto Err sería más o menos así:

Código ASP:

On Error resume Next
set mail=server.CreateObject("CDO.Message")
mail.Subject = request.form("equipo")
mail.Sender= request.form("usuario")
mail.To = "xxxxxxxxxxxxxxxxx"   
mail.HTMLBody = request.form("solic")    mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxxxx" mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 110 mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
mail.Configuration.Fields.Update
 
mail.Send
If Err.Number <> 0 then
response.write "Error: " & err.description
Error.Clear
End If
 

[Adler]

Y para cerrar el circulo y responder al anunciado del tema

Código ASP:

<&#37;
Dim theComponent(5)
Dim theComponentName(5)
    
theComponent(0) = "ADODB.Connection"
theComponent(1) = "Scripting.FileSystemObject"
theComponent(2) = "CDONTS.NewMail"
theComponent(3) = "Persits.Upload.1"
theComponent(4) = "CDO.Message"
    
theComponentName(0) = "ADODB"
theComponentName(1) = "FileSystemObject"
theComponentName(2) = "CDONTS"
theComponentName(3) = "Persits Upload"
theComponentName(4) = "CDOSYS"
    
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
 
 
Dim i
For i=0 to UBound(theComponent)
If Not IsObjInstalled(theComponent(i)) Then
Else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""100%"">" & vbCrLf
Response.Write "<b>" & theComponentName(i) & "</b><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
Next 
%>
 

Suerte