Erro em mensagens com CDO.

[GuiOdaguiri 0]

Pessoal,

Estou tendo erro neste código. na linha 23. " cdoMessage.Send". Se alguem puder me ajudaRRR

 

valew

<%  ' Definindo uma variavel auxiliar  sch = "http://schemas.microsoft.com/cdo/configuration/"  ' Criando o objeto de configuração do CDO  Set cdoConfig = Server.CreateObject("CDO.Configuration")  ' Definindo as configurações  cdoConfig.Fields.Item(sch & "sendusing") = 2  cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1  cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.academiabulls.com"  cdoConfig.Fields.Item(sch & "sendusername") = "webmaster=webmaster@academiabulls.com"  cdoConfig.Fields.Item(sch & "sendpassword") = "webmaster"  cdoConfig.fields.update  ' Criando o objeto de msg do CDO  Set cdoMessage = Server.CreateObject("CDO.Message")  ' Associando as configurações ao obj Mensagem  Set cdoMessage.Configuration = cdoConfig' Definido variaveis da msg  remetente = request.form ("chave")   cdoMessage.From = remetente  cdoMessage.To = "email de quem irão receber as mensagens"  cdoMessage.Subject = request.Form("assunto")  cdoMessage.Send  Set cdoMessage = Nothing  Set cdoConfig = Nothing    Texto = " Sua mensagem foi postada com sucesso"  Response.Write(Texto)%>

[Salgado 4]

Que erro?