Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ROBERTO PEREIRA

Formulário de contato envio de email

Por , em ASP Clássico

Recommended Posts

ROBERTO PEREIRA    0

ROBERTO PEREIRA
Postado

Pessoal, tenho o seguinte código. Roda blza, mas não chega e-mail nenhum, onde está o erro? Grato pela atenção de todos.

 

<body>

<table width="40%"  border="1" align="left">
<tr>
 <td>

<%
Dim Mail 		          ' objeto mail 
Dim FromName 			  ' nome do remetente
Dim FromEmail 			  ' endereço de Email do remetente
Dim ToEmail 			  ' endereço do destinatario
Dim Subject, strBody 	          ' corpo da mensagem
Dim ThisPage 			  ' o endereco do seu site
Dim RefPage 		  	  ' a referencia URL 
Dim Val_Input 			  ' variável Booleana usada na validação 
Dim Host 			  ' nome do servidor

' Retorna o nome do arquivo de script e a url da pagina
ThisPage = Request.ServerVariables("SCRIPT_NAME")
RefPage = Request.ServerVariables("HTTP_REFERER")

Host	  = "torpedeiro.fortalnet.com.br" ' nome do seu servidor
strBody   = Trim(Request.Form("Message"))
Subject   = "Novo contato"
ToEmail   = Trim(Request.Form("ToEmail"))
FromName  = Trim(Request.Form("FromName"))
FromEmail = Trim(Request.Form("FromEmail"))

strBody = "Teste"

val_ent = True
val_ent = val_ent And FromName <> ""
val_ent = val_ent And val_email(FromEmail)
val_ent = val_ent And val_email(ToEmail)

If val_ent Then    
   Set Mail = Server.CreateObject("Persits.MailSender") 
   Mail.Host = Host
   Mail.From = FromEmail
   Mail.FromName = FromName
   Mail.AddAddress ToEmail
   Mail.Subject = Subject
   Mail.Body = strBody
   on error resume next
   Mail.Send
   mensagem_erro = ""
   if err <> 0 then
      mensagem_erro = "Ocorreu o erro: " & Err.description
   end if
   Set Mail = Nothing
   on error goto 0
   response.write "<P><b>Sua mensagem foi enviada com sucesso!</P></b>"
Else
   If "http://torpedeiro.fortalnet.com.br" & Request.ServerVariables("HTTP_HOST") & ThisPage = RefPage Then
      Response.Write "Verifique os campos por favor!" & "<BR>" & vbCrLf  
   End If
   Forms_x ThisPage, FromName, FromEmail, ToEmail, strBody
End If

Function val_email(strEmail)

    Dim xVal

    xVal = True		

    If Len(strEmail) < 5 Then
    	 xVal = False
    Else
		 If Instr(1, strEmail, " ") <> 0 Then
            xVal = False
         Else
    	    If InStr(1, strEmail, "@", 1) < 2 Then    
		       xVal = False
	        Else
    	  	   If InStrRev(strEmail, ".") < _
				  InStr(1, strEmail, "@", 1) + 2 Then
  				  xVal = False
		       End If
	        End If
	     End If
    End If
   
    val_email = xVal
		
End Function

Sub Forms_x (strPageName, FromName, FromEmail, ToEmail, strBody) %>


     <FORM ACTION="<%=strPageName%>" METHOD="post" name=frmReferral>
      <TABLE BORDER="0">
    	<TR>
    	  	<TD VALIGN="top" ALIGN="right">
			<STRONG>Nome:</STRONG></TD>
    		<TD><INPUT TYPE="text" NAME="FromName" VALUE="<%=FromName%>" SIZE="50"></TD>
    	</TR>
    	<TR>
    		<TD VALIGN="top" ALIGN="right">
		    <STRONG>Remetente:</STRONG></TD>
   			<TD><INPUT TYPE="text" NAME="FromEmail" VALUE="<%=FromEmail%>" SIZE="50"></TD>
    	</TR>
    	<TR>
   			<TD VALIGN="top" ALIGN="right">
  		    <STRONG>Email:</STRONG></TD>
    	    <TD><INPUT TYPE="text" NAME="ToEmail" VALUE="<%=ToEmail%>" SIZE="50"></TD>
    	</TR>
    	<TR>
    		<TD VALIGN="top" ALIGN="right">
			<STRONG>Mensagem:</STRONG></TD>
    		<TD><textarea tabindex="" name="Message" value"<%=strBody%>" rows="5" cols="50"></textarea>
    	</TR>
    	<TR>
			<TD></TD>
			<TD><INPUT TYPE="reset"  VALUE="Limpar Dados" class="botoes" name=rstReferral>  
				<INPUT TYPE="submit" VALUE="Enviar" class="botoes" name=subReferral></TD>
    	</TR>
      </TABLE>
     </FORM>
	</td>
   </tr>
  </table>
  </body>
 </html>
<% End Sub %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verifique se o email e host são válidos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você precisa configurar corretamente o SMTP

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito