Estou tentando enviar um email e não consigo. Não sei o q pode estar acontecendo. Alguem poderia me ajudar, olhem como fiz:
<% response.Charset="ISO-8859-1"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = "187.12.85.24"
Mail.IsHTML = True
Mail.From = "radiocidade@uvv.br" ' From address
Mail.FromName = "Rádio Cidade" 'optional
Mail.AddAddress Session("mail")
' message subject
Mail.Subject = "Conclusão do Cadastro - Rádio Cidade"
corpo = "<p style='font-family:verdana,arial; font-size:12px; color:#757575;'>Olá "& Session("nome") & ",<br /><br />"
corpo = corpo & "Para completar o seu cadastro no site da Rádio Cidade e ter acesso a todo conteúdo, clique no link abaixo:<br />"
corpo = corpo & "<a href=http://radiocidade.uvv.br/finaliza_cad.asp?id="& Session("id_ouv") &"&ss="& Session.SessionID &">Concluir cadastro</a><br /><br />"
corpo = corpo & "Ou copie e cole, no seu navegador, a seguinte URL: http://radiocidade.uvv.br/finaliza_cad.asp?id="& Session("id_ouv") &"&ss="& Session.SessionID &"<br /><br />"
corpo = corpo & "<a href='http://radiocidade.uvv.br' target='_blank'><img src='http://radiocidade.uvv.br/images/logomarca_mail.gif' width='100' height='88' alt='Rádio Cidade 97,7 - ES - Brasil' title='Rádio Cidade 97,7 - ES - Brasil' border='0'></a><br />27 3350-9770</p>"
' message body
Mail.Body = corpo
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
'response.Write(bSuccess)
'response.End()
if strErr <> "" then
Session("alerta") = "alertaErro"
Session("resposta") = "Ocorreu o seguinte erro: " & Err.Description
end if
if bSuccess then
Session("alerta") = "alertaOk"
Session("resposta") = "Aguarde alguns instantes e acesse o e-mail " & Request.QueryString("mail") & " para concluir seu cadastro.<br />Verifique seu anti-spam."
end if
Response.Redirect("cadastro.asp?confirma=ok")
Set Mail = Nothing %>
Desenvolvedor Web
