Não Envia Email
#1
Posted 01/06/2005, 11:36
O e-mail não é enviado...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim msg
'---------
Sub EmailUsNLib
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = "portal@escolainterativa.com.br"
msg.To=vEmail
msg.Subject = "Liberacao de usuario - Escola Interativa"
vBody = " Prezado(a) " & vNome & "," & chr(10) & chr(10) & chr(10)
vBody = vBody & " Agradecemos a sua visita e interesse no Portal Escola Interativa (www.escolainterativa.com.br). " & chr(10) & chr(10)
vBody = vBody & " Informamos que o conteúdo do site é destinado ao público da área educacional e seu acesso provisório é orientado a profissionais desta área." & chr(10)
vBody = vBody & " O benefício do uso completo do Portal é exclusivo dos alunos e professores das escolas conveniadas ao Material Didático Expoente." & chr(10) & chr(10)
vBody = vBody & "Caso deseje obter mais informações sobre a Sistema Educacional Expoente, acesse o site www.expoente.com.br. Se preferir entre em contato pelo telefone 0800 41 4424 " & chr(10) & chr(10)
vBody = vBody & " Atenciosamente," & chr(10) & chr(10)
vBody = vBody & " Equipe Escola Interativa "
msg.Body = vBody
msg.Send
Set msg = Nothing
end sub
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
public vEmail
public strEmail
Dim objCDOMail
vEmail = ""
strEmail = Request("Email")
call EmailUsNLib
%>
Acho q é algum erro da variavel q vem do form, pos se coloco um end. fixo ele dá certo...
#2
Posted 01/06/2005, 12:30
posta ai o seu form...
#3
Posted 01/06/2005, 13:23
vemail = nome@fulano.com.br
mas preciso q funcione com a variavel do form
meu form:
<form id="frmEntrada" name="frmEntrada" method="post">
<tr bgcolor="#CCCCCC">
<td height="30" align="left" valign="middle" style="border-top-style: double">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"color="#000080"><i>
<strong>Identificação</strong></i></font> </td>
<td height="30" style="border-top-style: double"> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="35%" height="30" align="right"> <strong>Usuário (login) : * </strong>
</td>
<td width="65%" height="30"> <input name="txtUsuario" size="20" maxlength="10" id="txtUsuario" tabindex="1" value="<%=vIdUsuario%>"
<% If vTpMovimentacao = "A" then %>DISABLED <% End If %>>
(Crie seu código ex: josesilva OBS: somente letras e números!) </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Senha : * </strong>
</td>
<td height="30">
<input type="password" name="txtSenha" size="10" maxlength="6" id="txtSenha" tabindex="2" value="<%=vSenha%>">
(Crie sua senha, com no máximo 6 caracteres)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Confirme a Senha : * </strong>
</td>
<td height="30">
<input type="password" name="txtCSenha" size="10" maxlength="6"id="txtCSenha" tabindex="3" value="<%=vCSenha%>">
(Confirme a senha digitada acima)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Nome Completo : * </strong>
</td>
<td height="30">
<input name="txtNome" size="50" id="txtNome" maxlength="50" tabindex="4" value="<%=vNome%>">
(Sem abreviaturas)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Sexo : * </strong>
</td>
<td height="30">
<input type="radio" name="optSexo" value="F" tabindex="5" style="Border: none" <%If vSexo = "F" then %> CHECKED <%End If %>>
Feminino
<input type="radio" name="optSexo" value="M" tabindex="6" style="Border: none" <%If vSexo = "M" then %> CHECKED <%End If %>>
Masculino
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Data Nascimento : * </strong>
</td>
<td height="30">
<input name="txtData_Nasc" size="13" maxlength="10" id="txtData_Nasc" align="left"
language="javascript" tabindex="7" value="<%=vData_Nasc%>">
(dd/mm/aaaa)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>E-mail : * </strong>
</td>
<td height="30">
<input name="txtEmail" size="30" id="txtEmail" maxlength="50" tabindex="8" value="<%=vEmail%>">
Preciso q a mensagem da outra pag vá para vEmail.
Obrigada
#4
Posted 01/06/2005, 13:41
qual o nome do seu form?
como vc ta resgatando
strEmail = Request("Email")
não teria q resgatar
strEmail = Request.form("txtEmail")
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#5
Posted 01/06/2005, 13:50
Não consegui regatar dessa maneira, teria um exemplo?
#6
Posted 01/06/2005, 14:04
Bem, primeiro... qual seu conhecimento de ASP? basico, intermediário, avançado?
Você consegue ler seu código e entender?
Vou tentar te explicar um pouco...
Sua página de cadastro, creio eu...
<form id="frmEntrada" name="frmEntrada" method="post">
<tr bgcolor="#CCCCCC">
<td height="30" align="left" valign="middle" style="border-top-style: double">
<font face="Verdana, Arial, Helvetica, sans-serif" size="2"color="#000080"><i>
<strong>Identificação</strong></i></font> </td>
<td height="30" style="border-top-style: double"> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="35%" height="30" align="right"> <strong>Usuário (login) : * </strong>
</td>
<td width="65%" height="30"> <input name="txtUsuario" size="20" maxlength="10" id="txtUsuario" tabindex="1" value="<%=vIdUsuario%>"
<% If vTpMovimentacao = "A" then %>DISABLED <% End If %>>
(Crie seu código ex: josesilva OBS: somente letras e números!) </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Senha : * </strong>
</td>
<td height="30">
<input type="password" name="txtSenha" size="10" maxlength="6" id="txtSenha" tabindex="2" value="<%=vSenha%>">
(Crie sua senha, com no máximo 6 caracteres)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Confirme a Senha : * </strong>
</td>
<td height="30">
<input type="password" name="txtCSenha" size="10" maxlength="6"id="txtCSenha" tabindex="3" value="<%=vCSenha%>">
(Confirme a senha digitada acima)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Nome Completo : * </strong>
</td>
<td height="30">
<input name="txtNome" size="50" id="txtNome" maxlength="50" tabindex="4" value="<%=vNome%>">
(Sem abreviaturas)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Sexo : * </strong>
</td>
<td height="30">
<input type="radio" name="optSexo" value="F" tabindex="5" style="Border: none" <%If vSexo = "F" then %> CHECKED <%End If %>>
Feminino
<input type="radio" name="optSexo" value="M" tabindex="6" style="Border: none" <%If vSexo = "M" then %> CHECKED <%End If %>>
Masculino
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>Data Nascimento : * </strong>
</td>
<td height="30">
<input name="txtData_Nasc" size="13" maxlength="10" id="txtData_Nasc" align="left"
language="javascript" tabindex="7" value="<%=vData_Nasc%>">
(dd/mm/aaaa)
</td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="30" align="right" valign="middle"> <strong>E-mail : * </strong>
</td>
<td height="30">
<!-- Este "Name" é o nome do seu INPUT, é este nome que você tem que usar no request -->
<input name="txtEmail" size="30" id="txtEmail" maxlength="50" tabindex="8" value="<%=vEmail%>">
Acho que deu para entender...
agora passando para o seu código... ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim msg
'---------
Sub EmailUsNLib
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = "portal@escolainterativa.com.br"
' Aqui você ta dizendo que o e-mail do destinatário, isso é, para quem vai o e-mail será o e-mail que estiver na variável vEmail. Agora olha um pouco abaixo do seu código o q vc faz...
msg.To=vEmail
msg.Subject = "Liberacao de usuario - Escola Interativa"
vBody = " Prezado(a) " & vNome & "," & chr(10) & chr(10) & chr(10)
vBody = vBody & " Agradecemos a sua visita e interesse no Portal Escola Interativa (www.escolainterativa.com.br). " & chr(10) & chr(10)
vBody = vBody & " Informamos que o conteúdo do site é destinado ao público da área educacional e seu acesso provisório é orientado a profissionais desta área." & chr(10)
vBody = vBody & " O benefício do uso completo do Portal é exclusivo dos alunos e professores das escolas conveniadas ao Material Didático Expoente." & chr(10) & chr(10)
vBody = vBody & "Caso deseje obter mais informações sobre a Sistema Educacional Expoente, acesse o site www.expoente.com.br. Se preferir entre em contato pelo telefone 0800 41 4424 " & chr(10) & chr(10)
vBody = vBody & " Atenciosamente," & chr(10) & chr(10)
vBody = vBody & " Equipe Escola Interativa "
msg.Body = vBody
msg.Send
Set msg = Nothing
end sub
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
public vEmail
public strEmail
Dim objCDOMail
' Lembra... vc disse que a variável que iria dizer o destinatário era esta... e o que vc ta dizendo para a variável? que ela terá um valor igual a vazio... assim nunca quer será enviado para ninguem...
vEmail = ""
' Dai aqui... vc ta dizendo que a variável strEmail vai ser igual ao campo Email, mas vc nem tem campo Email no seu formulário... ( se tem, eu num vi... ) mas mesmo assim , vc nem a chama no seu codigo ASP, então decida-se... hehe
strEmail = Request("Email")
call EmailUsNLib
%>
a principio, o certo de ficar, seria assim:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
vEmail = request.form("txtEmail")
'---------
Sub EmailUsNLib
Set msg = Server.CreateObject("CDONTS.NewMail")
msg.From = "portal@escolainterativa.com.br"
msg.To=vEmail
msg.Subject = "Liberacao de usuario - Escola Interativa"
vBody = " Prezado(a) " & vNome & "," & chr(10) & chr(10) & chr(10)
vBody = vBody & " Agradecemos a sua visita e interesse no Portal Escola Interativa (www.escolainterativa.com.br). " & chr(10) & chr(10)
vBody = vBody & " Informamos que o conteúdo do site é destinado ao público da área educacional e seu acesso provisório é orientado a profissionais desta área." & chr(10)
vBody = vBody & " O benefício do uso completo do Portal é exclusivo dos alunos e professores das escolas conveniadas ao Material Didático Expoente." & chr(10) & chr(10)
vBody = vBody & "Caso deseje obter mais informações sobre a Sistema Educacional Expoente, acesse o site www.expoente.com.br. Se preferir entre em contato pelo telefone 0800 41 4424 " & chr(10) & chr(10)
vBody = vBody & " Atenciosamente," & chr(10) & chr(10)
vBody = vBody & " Equipe Escola Interativa "
msg.Body = vBody
msg.Send
Set msg = Nothing
end sub
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
public vEmail
Dim objCDOMail
call EmailUsNLib
%>
Bem, tente assim.. e veja se funciona... se num funcionar... da um berro ai.. que tento ajudar de outra forma...
a, ia esquecendo... se quiser.. to dando um curso de ASP gratuito aqui...
vale apena dar uma lida...
http://forum.brclube...p?showforum=235
No mais.. qualquer coisa... berra ai....
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
#7
Posted 01/06/2005, 14:19
MAs havia feito da maneira como vc orientou, primeiramente, mas não envia o e-mail para o endereço q está em vEmail. Então estou desde as 8 da manhã tentando td q passa pela cabeça, mas não está dando certo...
Farei o curso, obrigada!
Se puder me ajudar, agradeço muito.
Ainda... Tbém posso colocar essa sub no mesmo código e chama-la pelo link... mas tbém da erro:
<td colspan=2><center><a href=Call EmailUsNLib>Usuário Não Liberado</a><center> <br></td>" & VBCrLf
Não sei chamar dentro do link... não sei se é assim, mas já tentei vária maneiras...
Edição feita por: ka@, 01/06/2005, 14:27.
#8
Posted 01/06/2005, 15:05
mesmo assim não funcionou ??
o email que vc está usando é valido neh ??
vamos tentar resolver isso
#9
Posted 01/06/2005, 15:14
Espero q possam me ajudar...
---
Acho q a maioia das minhas tentativas é locuragem, pensei em passar o vEmail por querystring assim:
email4.asp?vUser="& vEmail & ">
e na outra pag:
vEmail = request.QueryString("vEmail")
mas tbém não pega o valor da variável...
Preciso de uma luz!!!
Edição feita por: ka@, 01/06/2005, 15:30.
#10
Posted 01/06/2005, 16:00
Vou postar o q fiz, pq é horrível só dizerem no fórum q conseguiram e não falam como.
Alterei no form (link):
email4.asp?txtEmail="& vEmail & "
Na pg asp:
vEmail = request.QueryString("txtEmail")
Muitíssimo Obrigada, sem vcs não conseguiria!!!
Vou participar das aulas, ok!!
Beijos, Kátia
#11
Posted 01/06/2005, 16:54
procura na net tbm um curso de asp em video .. no google vc encontra... mto bom tbm..
qualquer coisa
posta ae
#12
Posted 01/06/2005, 17:02
a, e boas aulas.. num esqueças de dar presença.. hehehe e fazer os exercicios.. q ja tem...
* Administração e Configuração de Servidores;
* Combinação Perfeita: NGINX + PHP + VARNISH + HAPROXY
* otavio*iporto.com ~ Tel: +55 51 3366 0177 | +55 51 4063 7343 |
* @iporto
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)