Usando CDO para enviar emails

[Andre H.S. Mendes]

<%
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem)
Select Case Componente

Case "CDO"
        Set cdoConfig = Server.CreateObject("CDO.Configuration")
        cdoConfig.Fields.Item(sch & "sendusing") = 2
        cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
        cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com"
        cdoConfig.Fields.Item(sch & "sendusername") = "usuario"
        cdoConfig.Fields.Item(sch & "sendpassword") = "senha"
        cdoConfig.fields.update
        Set cdoMessage = Server.CreateObject("CDO.Message")
        Set cdoMessage.Configuration = cdoConfig
        cdoMessage.From = NomeEmail
        cdoMessage.To = ParaEmail
        cdoMessage.Subject = Assunto
        cdoMessage.TextBody = Mensagem
        cdoMessage.Send
        Set cdoMessage = Nothing
        Set cdoConfig = Nothing

End Select
End Function
%>

estou tentando usar essa funcao para enviar email, porem não esta enviando email algum. não sei onde está o problema

Obrigado.

[.Andreia.]

não está aparece erro nenhum ?

você está rodando local ou na web ?

[Guest gotaum]

<%
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem)
Select Case Componente

Case "CDO"
        Set cdoConfig = Server.CreateObject("CDO.Configuration")
        cdoConfig.Fields.Item(sch & "sendusing") = 2
        cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
        cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com"
        cdoConfig.Fields.Item(sch & "sendusername") = "usuario"
        cdoConfig.Fields.Item(sch & "sendpassword") = "senha"
        cdoConfig.fields.update
        Set cdoMessage = Server.CreateObject("CDO.Message")
        Set cdoMessage.Configuration = cdoConfig
        cdoMessage.From = NomeEmail
        cdoMessage.To = ParaEmail
        cdoMessage.Subject = Assunto
        cdoMessage.TextBody = Mensagem
        cdoMessage.Send
        Set cdoMessage = Nothing
        Set cdoConfig = Nothing

End Select
End Function
%>

estou tentando usar essa funcao para enviar email, porem não esta enviando email algum. não sei onde está o problema

Obrigado.