Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
liberdade

Enviando e-mail via form

Recommended Posts

Mais uma enquanto não resolvo o outro.

Olá, com esse código aparece a confirmação de envio de e-mail porém não chega nada no destinatário do e-mail.

Troquei por um outro exemplo mais simples e nada tb.. Aparece a tela dizendo que o formulário foi enviado com sucesso mas não chega nada no e-mail, o que acontece?

grata

Ana.

<html>

<head>

<title>Confirmação de Envio</title>

<style type="text/css"> p {font-family: Trebuchet MS; font-size:11pt; color: black}

a {color:darkblue; text-decoration:underline}

body {background:white}

</style>

<!--#include virtual=".\connect.asp"-->

<%

varusuarioid = Request.form ("usuario")

vardescricao = Request.form ("descricao")

vardestino = "[email protected]"

varestacao = Request.ServerVariables ("remote_host")

delimitador="."

varestacao1=Split(varestacao,delimitador)

varestacao=varestacao1(0)

Set EnviarMail = Server.CreateObject("CDONTS.NewMail")

set bdf = Conexao.execute("SELECT numero,dataabe,horaabe,descricao FROM chamados ORDER BY numero DESC")

varnumero = bdf("numero")

varabertura = bdf("dataabe")

varhoraabe = bdf("horaabe")

set usuario_bd = Conexao.execute("SELECT * from func_atual WHERE usuarioid = "&varusuarioid&"")

varusuario = usuario_bd("usuario")

EnviarMail.To = vardestino

EnviarMail.From = "[email protected]"

EnviarMail.Subject = "Sugestões para a Intranet - SECONCI"

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""white"">" _

& "<font face=""Verdana"" size=""2""><b>" _

& "<p align=""justify"">Chamado : "& varnumero &"</p></b></font>" _

& "<p align=""justify""><b><font face=""Verdana"" size=""2"" color=""black"">Abertura : </font> <font face=""Verdana"" size=""2"" color=""darkblue"">"& varabertura & "</font></font> <font face=""Verdana"" size=""2"" color=""darkblue""> "& varhoraabe & "</font></b></p>" _

& "<p align=""justify""><b><font face=""Verdana"" size=""2"" color=""black"">Descricao : </font> <font face=""Verdana"" size=""2"" color=""darkblue"">"& vardescricao &"</font></b></p>" _

& "<hr color=""black"">" _

& "<p align=""justify""><b><font face=""Verdana"" color=""darkblue"">"& varusuario &"</font></b></p>" _

& "<p align=""justify""><b><font face=""Verdana"" size=""2"" color=""black"">Estação de onde foi enviada o chamado - </font> <font face=""Verdana"" size=""2"" color=""darkblue""> "& varestacao &"</font></b></p>" _

& "</body>" _

& "</html>"

EnviarMail.Body = MsgBody

EnviarMail.BodyFormat = 0

EnviarMail.MailFormat = 0

EnviarMail.Send

Set EnviarMail = Nothing

Set usuario_bd = Nothing

%>

</head>

<body bgColor="#00cc00">

<br>

<p align="center"><big>Obrigado por colaborar</big></p>

<br>

<p align="right"><big>Informática</big></p>

<br>

<br>

<br>

<center>

<input type="button" name="bt_fechar" value="Fechar" onClick="javascript:window.close();"

ID="Button1">

</center>

</body>

</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Oi Ana,

não consegui achar o erro da sua pg...

ta parecendo que o email nao ta puxando as variaveis......

eu fiz uma pagina desse tipo hoje....

ainda é só um exemplo pra mostrar pros chefes..

tem muita coisa pra melhorar, mas ela ta funcionando direitinho..

se quiser usa-la para tirar exemplo e fazer a sua..

ta muito parecida com a sua...

Esse é meu Inclui_Exclui_GroupManager.asp

<!-- #include virtual="conexoes/db_xxxxxx_xxxxx.asp" -->
<%

'Aumentando o tempo de expiração da página
Timeout = Server.ScriptTimeout
Server.ScriptTimeout = (Timeout * 10)

'------VARIAVEL DE SESSAO DO USUARIO

strUnidade = trim(mid(Session("Unidade"),1,4))
strNome = Session("Nome_usr")
strMatricula = trim(mid(Session("Matricula"),15,7))

Set objRsUnidade=Server.CreateObject("ADODB.Recordset")


'------UNIDADE

strSQL1 = "SELECT Cgc_unidade, co_subunidade, No_Unidade FROM dbo.tb_AdmUnidade"

With objRsUnidade
    .ActiveConnection = db
    .CursorType = adOpenForwardOnly
    .Source = strSQL1
    .Open
End With

'----CASO NAO SEJA AUTENTICA O USUARIO = ERRO


If strMatricula = "" or strUnidade = "" Then
        Response.redirect ("http://www.xxxx.mg.xxxxx/global/ErroAcesso.asp")
End If

%>

<!-- FUNCAO JAVA SCRIPT QUE DA AS FUNÇÕES DOS BOTOES-->

<script language="JavaScript"> 
function enviar_1() { 
document.form.action='EnviaMail_Inclui.asp'; 
document.form.method='POST' 
document.form.submit(); 
} 
function enviar_2() { 
document.form.action='EnviaMail_exclui.asp'; 
document.form.method='POST' 
document.form.submit(); 
} 
</script> 

    <tr><br>
      <td width="100%" colspan="2"><font face="verdana" size="1" color="#EFA273">Usuário </font><font  face="verdana" size="1"> : <%=strNome%> - <%=strMatricula%>  </font></td>
    </tr>
    <br> <tr>
      <td width="100%"><font face="verdana" size="1" color="#EFA273">Unidade</font><font  face="verdana" size="1">: <%=strUnidade%></font></td>
      <td width="100%">  <div align="right">
    </div></td>  </tr>
    
<html>
<head>
<title>SITE</title>
<link rel="stylesheet" href="/estilo/estiloPesquisa.css">
</head>
<body>
</p>

 <form name="form">  <div align="center"> <font face="Arial" size="2"> <legend accesskey="C"> 
 <fieldset>

</font>
<font face="Verdana" color="#314d94" size="2"><b><p>Solicitação de Inclusão/Exclusão de usuários</b></font></legend> </p>
  <table border="0" height="140">
    
<td width="23%"><font face="verdana" size="2" >Matricula(as):</font></td>
<td width="74%"><font face="verdana" size="2" ><input type="text"
 name="matricula" size="20"></font></td>
 </tr>
<tr>
<td width="23%"><font face="verdana" size="2" >Servidor:</font></td>
<td width="74%"><font face="verdana" size="2" ><input type="text"
name="servidor" size="20"></font></td>
</tr>
<tr>
<td width="23%"><font face="verdana" size="2" >Grupo(os):</font></td>
<td width="74%"><font face="verdana" size="2" ><input type="text"
 name="grupo" size="20"></font></td>
 </tr>
 <tr>
<td> </td>
 <td><input type="button" onClick="enviar_1()" value="Adicionar"  class="botao"  >
  <input type="button" onClick="enviar_2()" value="Excluir"  class="botao"> </td>

 </tr>
</form>
 </div>
 </form>
 </body>

<tr><td colspan="4"><font face="verdana" color="red" size="1">*</font><font face="verdana" size="1">Caso seja mais de um usuario/Grupo, separar por "virgulas".</tr></td>
</table>
</fieldset>
</div>
</form>
</body>
</html> 
esse é meio EnviaMail_Inclui.asp
'---Aumentando o tempo de expiração da página
Timeout = Server.ScriptTimeout
Server.ScriptTimeout = (Timeout * 10)

'---PEGANDO A MATRICULA E O USUARIO

strUnidade = trim(mid(Session("Unidade"),1,4))
strNome = Session("Nome_usr")
strMatricula = trim(mid(Session("Matricula"),15,7))

Set objRsUnidade=Server.CreateObject("ADODB.Recordset")


'--Identificando o usuario / Unidade

strSQL1 = "SELECT Cgc_unidade, co_subunidade, No_Unidade FROM dbo.tb_AdmUnidade"

With objRsUnidade
    .ActiveConnection = db
    .CursorType = adOpenForwardOnly
    .Source = strSQL1
    .Open
End With

'--- CASO NAO ESTEJA AUTORIZADO


If strMatricula = "" or strUnidade = "" Then
        Response.redirect ("http://www.xxxxx.xxxx.xxxx/global/ErroAcesso.asp")
End If



'---PEGANDO OS DADOS DO FORMULARIO
  matricula = request.form("matricula")
  servidor = request.form("servidor")
  grupo = request.form("grupo")
  
    
'---------------------------------ENVIO DE EMAIL--------------------------------------
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From= ""&strMatricula&"@dominio.com.br"
  objMail.To= "[email protected],"&strMatricula&"@dominio.com.br"
  objMail.Subject="Solicitação de Inclusão de usuario - SITE"
  objMail.BodyFormat=0
  objMail.MailFormat=0
  objMail.Body= "À<br> SITE<br>C/c SITE<br><br> 1       Favor realizar as alterações abaixo:<br><br>1.1       Favor incluir no Servidor :"&servidor&", Grupo: "&grupo&" o (os) usuário (os): "&matricula&".<br><br>Atenciosamente,<br> "&strNome&"  - "&strMatricula&"<br>SITE"

  on error resume next
  objMail.Send
  Set objMail = nothing
  
  %>
  <br>
  <br>
  <table border="0">
    
  <td width="40%"><a href="javascript:window.close()"><img src="/imagens/sair.gif"
        alt="SAIR"
        style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none"
        align="right"></a></td>
  <tr><td><br>
  <center><font face="verdana" size="2"><b>Solicitação enviada com Sucesso!!!<b></font>
  
</td></tr>
  </table>
e esse o EnviaMail_Exclui.asp
<!-- #include virtual="conexoes/db_xxxxxxxxxxx.asp" -->
<%

'---Aumentando o tempo de expiração da página
Timeout = Server.ScriptTimeout
Server.ScriptTimeout = (Timeout * 10)

'---PEGANDO A MATRICULA E O USUARIO

strUnidade = trim(mid(Session("Unidade"),1,4))
strNome = Session("Nome_usr")
strMatricula = trim(mid(Session("Matricula"),15,7))

Set objRsUnidade=Server.CreateObject("ADODB.Recordset")


'--Identificando o usuario / Unidade

strSQL1 = "SELECT Cgc_unidade, co_subunidade, No_Unidade FROM dbo.tb_AdmUnidade"

With objRsUnidade
    .ActiveConnection = db
    .CursorType = adOpenForwardOnly
    .Source = strSQL1
    .Open
End With

'--- CASO NAO ESTEJA AUTORIZADO


If strMatricula = "" or strUnidade = "" Then
        Response.redirect ("http://www.seusite.com/global/ErroAcesso.asp")
End If



'---PEGANDO OS DADOS DO FORMULARIO
  matricula = request.form("matricula")
  servidor = request.form("servidor")
  grupo = request.form("grupo")
  
    
'---------------------------------ENVIO DE EMAIL--------------------------------------
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  objMail.From= ""&strMatricula&"@mail.caixa"
  objMail.To= "[email protected],"&strMatricula&"@dominio.com.br"
  objMail.Subject="Solicitação de Exclusão de usuario - SITE "
  objMail.BodyFormat=0
  objMail.MailFormat=0
  objMail.Body= "À<br> SITE<br>C/c SITE<br><br> 1       Favor realizar as alterações abaixo:<br><br>1.1       Favor excluir do Servidor :"&servidor&", Grupo: "&grupo&" o (os) usuário (os): "&matricula&".<br><br>Atenciosamente,<br> "&strNome&"  - "&strMatricula&"<br>SITE"

  on error resume next
  objMail.Send
  Set objMail = nothing
  
  %>
  <br>
  <br>
  <table border="0">
    
  <td width="40%"><a href="javascript:window.close()"><img src="/imagens/sair.gif"
        alt="SAIR"
        style="background-color: rgb(255,255,255); color: rgb(255,255,255); border: medium none"
        align="right"></a></td>
  <tr><td><br>
  <center><font face="verdana" size="2"><b>Solicitação de enviada com Sucesso!!!<b></font>
  
</td></tr>
  </table>

eu fiz dois email...

um caso seja para excluir o usuario

outro caso seja para incluir.

achei melhor.

espero ter ajudado........

flwwwwww

Editado por codigofonte

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...