Help
Posted 27 October 2004 - 01:31 PM
É o seguinte. Eu finalmente consegui botar o ASPEMAIL para enviar mensagens em meu servidor. O problema é que eu quero acrescentar mais campos para envio da mensagem, por exemplo, CIDADE, ESTADO ETC...
Alguem pode me ensinar (isso mesmo, ensinar porque eu não sei) como se faz isso. Onde eu tenho que acrescentar campos e etc.
Nesse exemplo abaixo, eu tentei colocar o campo estado, pela variável (?) strEstado. Se quiserem conferir o erro, entem em Teste do E-mail
Desde já agradeço a todos.
Leandro Naves
QUOTE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim Mail 'objeto Email
Dim strFromName 'nome do remetente
Dim strFromEmail 'endereço de Email do remetente
Dim strToEmail 'endereço do destinatario
Dim strSubject, strBody, strEstado 'corpo da mensagem
Dim strThisPage 'o endereco do seu site
Dim strReferringPage 'a referencia URL
Dim bValidInput 'variável Booleana usada na validação
Dim strhost 'nome do servidor
'Retorna o nome do arquivo de script e a url da pagina
strThisPage = Request.ServerVariables("SCRIPT_NAME")
strReferringPage = Request.ServerVariables("HTTP_REFERER")
'define os valores iniciais dos parametros usados em nossa mensagem
strhost = "smtp.abrame.org.br"
strFromName = Trim(Request.Form("txtFromName"))
strFromEmail = Trim(Request.Form("txtFromEmail"))
strToEmail = Trim(Request.Form("txtToEmail"))
strSubject = "Mensagem do Fale Conosco"
strEstado = Trim(Request.form("txtEstado"))
strBody = Trim(Request.Form("txtMessage"))
'monta o corpo da mensagem
strBody = strBody & ""
strBody = strBody & "Abrame - Associação Brasileira dos Magistrados Espíritas" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & " http://www.abrame.org.br " & vbCrLf
'validacao dos dados
bValida_Entrada = True
bValida_Entrada = bValida_Entrada And strFromName <> ""
bValida_Entrada = bValida_Entrada And Valida_Email(strFromEmail)
bValida_Entrada = bValida_Entrada And Valida_Email(strToEmail)
'Se o e-mail é valido envia a mensagem
If bValida_Entrada Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = strFromEmail
Mail.FromName = strFromName
Mail.AddAddress strToEmail
Mail.Subject = strSubject
Mail.Estado = strEstado
Mail.Body = strBody
on error resume next
Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description
end if
Set Mail = Nothing
on error goto 0
' exibe mensagem de agradecimento
%>
<P><b>Sua mensagem foi enviada. Obrigado por ter visitado nosso site , volte sempre !</P></b>
<%
Else
If "http://www.abrame.org.br" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
Response.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLf
End If
'exibe o formulario...
Exibe_Formulario strThisPage, strFromName, strFromEmail, strToEmail, strBody, strEstado
End If
%>
<%
'verifica se o e-mail é valido
Function Valida_Email(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
Valida_Email = bIsValid
End Function
%>
<%
Sub Exibe_Formulario(strPageName, strFromName, strFromEmail, strToEmail, strBody, strEstado)
%>
<html>
<body>
<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
<TABLE BORDER="0">
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">Seu Nome:</span></TD>
<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30"> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">E-mail do Remetente:</span></TD>
<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="50"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"></TD>
<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="50"> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">Estado:</span></TD>
<TD><INPUT NAME="txtEstado" TYPE="text" id="txtEstado" VALUE="<%= strEstado %>" SIZE="50"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="top"><span class="style3">Mensagem:</span></TD>
<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA></TR>
<TR bgcolor="#FFFFFF">
<TD></TD>
<TD><INPUT TYPE="reset" VALUE="Limpar Formulário" name=rstReferral><INPUT TYPE="submit" VALUE="Enviar E-mail" name=subReferral></TD>
</TR>
</TABLE>
</FORM>
</body>
</html>
<%
End Sub
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim Mail 'objeto Email
Dim strFromName 'nome do remetente
Dim strFromEmail 'endereço de Email do remetente
Dim strToEmail 'endereço do destinatario
Dim strSubject, strBody, strEstado 'corpo da mensagem
Dim strThisPage 'o endereco do seu site
Dim strReferringPage 'a referencia URL
Dim bValidInput 'variável Booleana usada na validação
Dim strhost 'nome do servidor
'Retorna o nome do arquivo de script e a url da pagina
strThisPage = Request.ServerVariables("SCRIPT_NAME")
strReferringPage = Request.ServerVariables("HTTP_REFERER")
'define os valores iniciais dos parametros usados em nossa mensagem
strhost = "smtp.abrame.org.br"
strFromName = Trim(Request.Form("txtFromName"))
strFromEmail = Trim(Request.Form("txtFromEmail"))
strToEmail = Trim(Request.Form("txtToEmail"))
strSubject = "Mensagem do Fale Conosco"
strEstado = Trim(Request.form("txtEstado"))
strBody = Trim(Request.Form("txtMessage"))
'monta o corpo da mensagem
strBody = strBody & ""
strBody = strBody & "Abrame - Associação Brasileira dos Magistrados Espíritas" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & " http://www.abrame.org.br " & vbCrLf
'validacao dos dados
bValida_Entrada = True
bValida_Entrada = bValida_Entrada And strFromName <> ""
bValida_Entrada = bValida_Entrada And Valida_Email(strFromEmail)
bValida_Entrada = bValida_Entrada And Valida_Email(strToEmail)
'Se o e-mail é valido envia a mensagem
If bValida_Entrada Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = strFromEmail
Mail.FromName = strFromName
Mail.AddAddress strToEmail
Mail.Subject = strSubject
Mail.Estado = strEstado
Mail.Body = strBody
on error resume next
Mail.Send
mensagem_erro = ""
if err <> 0 then
mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description
end if
Set Mail = Nothing
on error goto 0
' exibe mensagem de agradecimento
%>
<P><b>Sua mensagem foi enviada. Obrigado por ter visitado nosso site , volte sempre !</P></b>
<%
Else
If "http://www.abrame.org.br" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
Response.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLf
End If
'exibe o formulario...
Exibe_Formulario strThisPage, strFromName, strFromEmail, strToEmail, strBody, strEstado
End If
%>
<%
'verifica se o e-mail é valido
Function Valida_Email(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
Valida_Email = bIsValid
End Function
%>
<%
Sub Exibe_Formulario(strPageName, strFromName, strFromEmail, strToEmail, strBody, strEstado)
%>
<html>
<body>
<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
<TABLE BORDER="0">
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">Seu Nome:</span></TD>
<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30"> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">E-mail do Remetente:</span></TD>
<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="50"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"></TD>
<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="50"> </TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="middle"><span class="style3">Estado:</span></TD>
<TD><INPUT NAME="txtEstado" TYPE="text" id="txtEstado" VALUE="<%= strEstado %>" SIZE="50"></TD>
</TR>
<TR bgcolor="#FFFFFF">
<TD ALIGN="right" VALIGN="top"><span class="style3">Mensagem:</span></TD>
<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA></TR>
<TR bgcolor="#FFFFFF">
<TD></TD>
<TD><INPUT TYPE="reset" VALUE="Limpar Formulário" name=rstReferral><INPUT TYPE="submit" VALUE="Enviar E-mail" name=subReferral></TD>
</TR>
</TABLE>
</FORM>
</body>
</html>
<%
End Sub
%>
Posted 31 October 2004 - 11:33 AM
