Cdosys

[Guest - ferio -]

estou usando o script abaixo que peguei na net, mas não tá funcionando. Diz que tem problema na linha 87, que é a do objeto send. O que posso fazer?

<%

if request.form("envia")="enviar" then

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.ig.com.br"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = request.Form("email")

'e-mail do destinatário

objCDOSYSMail.To = "fabricioevangelista@yahoo.com.br"

'assunto da mensagem

objCDOSYSMail.Subject = "Contato pelo Site"

'conteúdo da mensagem

strBody = "Dados" & vbCrLf & vbCrLf & _

"Nome: "& Request("remetente") & vbCrLf & _

"E-Mail: "& Request("email") & vbCrLf & _

"Idade: "& Request("idade") & vbCrLf & _

"Telefone: "& Request("telefone") & vbCrLf & _

"Mensagem: "& Request("mensagem")

strBody = strBody & "."

objCDOSYSMail.TextBody = strBody

'para envio da mensagem no formato html altere o TextBody para HtmlBody

'objCDOSYSMail.TextBody = strBody

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write ("<font color='#FF0000'>'E-mail enviado com suceso!'</font>" )

end if

%>