Estou tentando enviar um email via vbscript. Aqui está o meu código de email: oculto o endereço de email, é claro. No meu código real, estou usando um endereço de email válido.

Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message") 
objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.oa.caiso.com" 
objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDO.Configuration.Fields.Update 
objCDO.To = "[email protected]"
objCDO.From = Sender
objCDO.cc = ""
objCDO.bcc = ""
objCDO.Subject = txtSubject
objCDO.HTMLBody = Replace(sBody, Chr(10),"<br>")
On Error GoTo 0
On Error Resume Next
objCDO.Send
If Err.Number <> 0 Then 
    Response.Write "Just after the send command "
    Response.Write "Err.Number is " & Err.Number & "<br>"
    On Error GoTo 0
End If
set objCDO = nothing

Quando esse código é executado, vejo o seguinte erro:

Logo após o comando send Err.Number é -2147220978

Agora, quando pesquiso esse número de erro, não há nenhuma referência para o código de erro -2147220978 De fato, uma pesquisa no Google pelo número -2147220978 não retorna nenhum resultado.

Você tem alguma idéia do que esse código de erro estranho significa?