Enviar e-mail automaticamente

Bom dia

Eu criei uma página que quando acessada deveria enviar um e-mail automaticamente mas quando acesso a página o e-mail não é enviado e não apresenta nenhum erro. O que eu fiz de errando? Obrigado

>
<%Function SendMail(Subject, Sender, Recipient, Body)

SendMail = False

Select Case Application(ScriptName & "EmailComponent")

Case "CDONTS"

Set objNewMail = Server.CreateObject ("CDONTS.NewMail")

objNewMail.BodyFormat = 1

objNewMail.MailFormat = 0

objNewMail.Send Sender, Recipient, Subject, Body

SendMail = True

Case "JMail"

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = Application(ScriptName & "SMTPServer")

JMail.Sender = Sender

JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Execute

SendMail = True

case "aspMail"

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

objNewMail.FromAddress = Sender

objNewMail.RemoteHost = Application(ScriptName & "SMTPServer")

objNewMail.AddRecipient Recipient

objNewMail.Subject = Subject

objNewMail.BodyText = Body

objNewMail.SendMail

SendMail = True

case "SMTP"

Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")

objNewMail.MailServer = Application(ScriptName & "SMTPServer")

objNewMail.Recipients = Recipient

objNewMail.Sender = Sender

objNewMail.Subject = Subject

objNewMail.Message = Body

objNewMail.SendMail2

SendMail = True

case "aspEMail"

Set objNewMail = Server.CreateObject("Persits.MailSender")

objNewMail.From = Sender

objNewMail.Host = Application(ScriptName & "SMTPServer")

objNewMail.AddAddress Recipient

objNewMail.Subject = Subject

objNewMail.Body = Body

objNewMail.Send

SendMail = True

End Select

End Function%>

<%tmpMessage = tmpMessage & "Link quebrado: "%>

<form action="erro.asp" name="form1" method="post" style="display:none;">

<input type="text" name="destino" value="Download - Link quebrado"><input type="text" name="enviar" value="suporte@juseundi.com.br"><input type="text" name="email" value="suporte@juseundi.com.br">

<textarea name="Message"><%= tmpMessage %></textarea></form>

<%strBody = Trim(Request.Form("Message"))

strBody = Replace(strBody, "", Trim(Request.Form("email")))

If SendMail(Trim(Request.Form("destino")), Trim(Request.Form("email")), Trim(Request.Form("enviar")), strBody) = True Then

Response.Write "Colaboração - AvisoObrigado pela colaboraçãoObrigado pela colaboraçãoSua colaboração foi enviada com sucesso para o Dicionário " & Trim(Request.Form("tipo")) &" ("& Trim(Request.Form("enviar")) &")"

Else

Response.Write("Colaboração - ErroSeja um colaboradorSeja um colaborador  ErroOcorreu um erro ao enviar sua colaboração! Tente novamente em alguns minutos.
")

End If%>