Jump to content


Photo

Não Envia Email


  • Faça o login para participar
11 replies to this topic

#1 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 11:36

Oq há de errado neste código?

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 viniciusjau

viniciusjau

    Veterano

  • Usuários
  • 1492 posts
  • Sexo:Masculino
  • Localidade:Jaú
  • Interesses:Web Designer em Geral

Posted 01/06/2005, 12:30

o que vc quer dizer com end. fixo ??

posta ai o seu form...

#3 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 13:23

qdo ao eu dou um valor não variavel ex:

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">&nbsp; </td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="35%" height="30" align="right"> <strong>Usuário (login)&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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 &nbsp;:&nbsp;*&nbsp;</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&nbsp;&nbsp;
<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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 01/06/2005, 13:41

<input name="txtEmail" size="30" id="txtEmail" maxlength="50" tabindex="8" value="<%=vEmail%>">

qual o nome do seu form?

como vc ta resgatando

strEmail = Request("Email")


não teria q resgatar

strEmail = Request.form("txtEmail")
* Otávio Nogueira
* 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 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 13:50

nome do meu form: name="frmEntrada"

Não consegui regatar dessa maneira, teria um exemplo?

#6 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 01/06/2005, 14:04

Naum...
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">&nbsp; </td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="35%" height="30" align="right"> <strong>Usuário (login)&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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 &nbsp;:&nbsp;*&nbsp;</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&nbsp;&nbsp;
<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&nbsp;:&nbsp;*&nbsp;</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&nbsp;:&nbsp;*&nbsp;</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....

;) (y)
* Otávio Nogueira
* 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 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 14:19

Meu conhecimento, como pode notar, é bem básico!
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...

:wacko:

Edição feita por: ka@, 01/06/2005, 14:27.


#8 viniciusjau

viniciusjau

    Veterano

  • Usuários
  • 1492 posts
  • Sexo:Masculino
  • Localidade:Jaú
  • Interesses:Web Designer em Geral

Posted 01/06/2005, 15:05

poxa.. a maneira que o Luis Otávio explico está certinha....

mesmo assim não funcionou ??
o email que vc está usando é valido neh ??

vamos tentar resolver isso

#9 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 15:14

Sim... tbém acho q está correta.. e o e-mail é válido, pois recebe uma outra mensagem qdo clico no bt enviar. Mas esta mensagem só deverá ser enviada qdo clico no link Usuario Não Liberado.

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 ka@

ka@

    Normal

  • Usuários
  • 63 posts
  • Sexo:Não informado

Posted 01/06/2005, 16:00

Yuppiii!!!!!!!!!!! Conseguimos!!!!

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 (y)

#11 viniciusjau

viniciusjau

    Veterano

  • Usuários
  • 1492 posts
  • Sexo:Masculino
  • Localidade:Jaú
  • Interesses:Web Designer em Geral

Posted 01/06/2005, 16:54

legals...

procura na net tbm um curso de asp em video .. no google vc encontra... mto bom tbm..

qualquer coisa
posta ae
(y)

#12 Luis Otávio

Luis Otávio

    Super Veterano

  • Usuários
  • 3113 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre
  • Interesses:- Desenvolvimento de aplicações Web com linguagem server-side PHP.

    - Desenvolvimento de aplicações Web com linguagem cliente-side JavaScript, conhecedor e utilizador da biblioteca jQUERY e todas suas características.

    - Otimização de Desempenho aplicados a performance de banco de dados Mysql.

    - Otimização de Desempenho para servidores Web utilizando-se como Webserver NGINX em conjunto com Varnish.

    - Sólidos conhecimentos no CMS WordPress para novas implementações, manutenção, criação e otimização de Plugins.

    - Práticas de atendimento, relacionamento e suporte ao cliente. Trabalhando voltado ao público desde o lançamento da empresa iPORTO.COM, criando laços e vínculos com os mais de Mil clientes da empresa e os braços do grupo.

Posted 01/06/2005, 17:02

Eba, que bom que conseguiu... hehe... ja tava me dando um nervoso... hehe
a, e boas aulas.. num esqueças de dar presença.. hehehe e fazer os exercicios.. q ja tem...

;) (y)
* Otávio Nogueira
* 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




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq