(Resolvido)Duvida Simples Com Session Para Envio De E-mail

jow · Abril 10, 2008

Bom dia tenho o script abaixo p/ envio de e-mail:

<% 
if session("login") <> true then
  response.redirect "default.asp"
end if
%>
<style type="text/css">
<!--
#apDiv1 {
    position:absolute;
    width:188px;
    height:324px;
    z-index:1;
    left: 23px;
    top: 57px;
}
-->
</style>
<table width="100%" height="480" border="0">
  <tr>
    <td width="14%" valign="top">&nbsp;</td>
    <td width="86%" height="32">&nbsp;</td>
  </tr>
  
  <!-- Menu Topo -->
  <tr>
    <td valign="top">&nbsp;</td>
    <td height="42"><div align="left"><a href="membros.asp">Membros</a>      
                                       <a href="clientes.asp">Clientes</a>
                                     <a href="projetos.asp">Projetos</a>
    <a href="agenda.asp">Agenda</a></div></td>
  </tr>
  
  <!-- Links Esquerda -->
  <!--#include file="includes/links.asp"-->
    
    <!-- Corpo da página -->
      <tr>
        <td valign="top" nowrap scope="col"><div align="left">
        <!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

sql = "Select * from membros"  

set tab = cnn.execute(sql) %>
          
</div>Usu&aacute;rio: <%Response.write(Session("nome")) %>
                <a href="logout.asp">(Sair) </a>

<div class=h3>Notifica&ccedil;&atilde;o de envio de e-email</div>
<br>
<% 
if session("login") <> true then
  response.redirect "default.asp"
end if
%>

<%
'Resgata valor checkbox separados por vírgula.
strP=request.form("box")
titulo=request.form("titulo")
obs=request.form("obs")

ArrP=split( strP , "," ) 'No caso coloquei virgula, pois o separador é este, caso seja outro basta mudara para o desejado.

'Faz o loop para enviar até que dispare todos os selecionados.
for i = 0 to UBound(ArrP)
Set objmail = Server.CreateObject("CDONTS.NewMail") 


objMail.From = "email@yahoo.com.br"  
objMail.To = ArrP(i)
objMail.Cc = ""
objMail.Bcc = ""

objMail.Subject = request.form("titulo") 'titulo da mensagem
sHTML = sHTML & "<html xmlns=""http://www.w3.org/1999/xhtml"">"
sHTML = sHTML & "<head>"
sHTML = sHTML & "<title>Thatto Interativa</title>" 
sHTML = sHTML & "</head>"
sHTML = sHTML & "<body leftmargin=""0"" topmargin=""0"" rightmargin=""0"" bottommargin=""0"" bgcolor=""#FCEFC3"">"
'sHTML = sHTML & request.form("data") 'data do compromisso
'sHTML = sHTML & request.form("hora") 'Hora do compromisso
sHTML = sHTML & request.form("obs") 'corpo da mensagem
sHTML = sHTML & "</body>"
sHTML = sHTML & "</html>"

objMail.MailFormat = 0 
objMail.BodyFormat = 0 
objMail.body = sHTML

objMail.Send
sHTML = ""

On Error Resume Next
set objMail = Nothing

if Err <> 0 Then
Response.Write "Foi encontrado um erro (" & Err.Description & ")."
Response.End
End if

'Fim loop.
next

'Gera alerta de envio ao fim do código.
response.Write("<font face='verdana' size='1'>E-mails enviado com sucesso!</font><br>")
response.Write("<font face='verdana' size='1'>Para: "&strP&".</font>") %>
<a href="agenda.asp">Voltar</a>

<%

'call abre_conectar

'titulo=request.Form("titulo")
'data=request.Form("data")
'hora=request.Form("hora")
'obs=request.Form("obs")

'sql = "insert into agenda (titulo, data, hora, obs, convidar)"
'sql = sql & " values ('"&titulo&"', '"&data&"', '"&hora&"', '"&obs&"', '"&convidar&"')"

'set tab = cnn.execute(sql) 

'call fecha_conectar
'set tab = nothing %>

</div>
</div></td>
      </tr>
    </table></td>
  </tr>
</table>

Acontece q em cada página eu tenho um SESSION q identifica o usuário ... ná página aparece a MENSAGEM

"Bem Vindo Usuário <%Response.write(Session("nome")) %>"       email: <%Response.write(Session("email")) %>

Então no email onde está

objMail.From = "email@yahoo.com.br"

Gostaria q o email "email@yahoo.com.br" fosse o email do usuário logado como faço isso ???

Editado Abril 16, 2008 por jow

Notax · Abril 10, 2008

Uhm... ele digita esse e-mail no form que antecede o envio ou o e-mail está no BD?

jow · Abril 11, 2008

Está no banco de dados esse email tem q ser o mesmo do usuário logado ...

webdeveloper · Abril 11, 2008

Pra que você usa este trecho:

call abre_conectar

sql = "Select * from membros"  

set tab = cnn.execute(sql)

???

Notax · Abril 13, 2008

e porque tem duas vezes isso:

<%
if session("login") <> true then
  response.redirect "default.asp"
end if
%>

???

[]'s Notax

jow · Abril 14, 2008

Bom dia então eu uso esse trecho:

call abre_conectar

sql = "Select * from membros"  

set tab = cnn.execute(sql)

para selecionar o usuário q está logado ... e esse trecho

<%
if session("login") <> true then
  response.redirect "default.asp"
end if
%>

é para verificar se usuário está logado ou não, mas eu acabei colocando duas vezes por engano, porque eu copiei de outra página hehehe ...

Notax · Abril 14, 2008

Ok... e tu já tentou resgatar o campo e-mail assim:

email = Session("email")
objMail.From = email

[]'s Notax

jow · Abril 16, 2008

Brother detonou é isso ai ... Valeuuuu

Entrar

(Resolvido)Duvida Simples Com Session Para Envio De E-mail

Pergunta

jow

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

Notax

Link para o comentário

Compartilhar em outros sites

jow

Link para o comentário

Compartilhar em outros sites

webdeveloper

Link para o comentário

Compartilhar em outros sites

Notax

Link para o comentário

Compartilhar em outros sites

jow

Link para o comentário

Compartilhar em outros sites

Notax

Link para o comentário

Compartilhar em outros sites

jow

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades