Enviar e-mail automaticamente

[Alessancost 0]

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 "<a href=""contribuicao.asp"">Colaboração</a> - <font color=""#999999"" title=""Página atual"">Aviso</font></div><div class=""sombra11"">Obrigado pela colaboração<div class=""texto1"">Obrigado pela colaboração</div></div><div class=""fonte03"">Sua colaboração foi enviada com sucesso para o <b>Dicionário " & Trim(Request.Form("tipo")) &" ("& Trim(Request.Form("enviar")) &")</b></div>"

Else

Response.Write("<a href=""contribuicao.asp"">Colaboração</a> - <font color=""#999999"" title=""Página atual"">Erro</font></div><div class=""sombra11"">Seja um colaborador<div class=""texto1"">Seja um colaborador</div></div><div class=""fundo04""><img src=""../img/02_exclamacao.gif"">  Erro</div><div class=""fundo13"">Ocorreu um erro ao enviar sua colaboração! Tente novamente em alguns minutos.</div><br><div align=""center""><input type=""submit"" value="" Voltar "" onClick=""java script:history.go(-1)"" class=""but01""></div>")

End If%>

[filipecrosk 0]

E aonde você executa a função???Function SendMail(Subject, Sender, Recipient, Body)???aí nessa página você só esta criando a função... mas não esta usando-a.abracos