none
AspEmail : Connection refused RRS feed

  • Pergunta

  • 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
    quinta-feira, 28 de janeiro de 2010 18:47

Todas as Respostas