Envio de e-mail

BrunoHP · Setembro 25, 2009

Seguinte no tenho um formulário estilo de mural lá você escolhe o destinatário só que ele puxa apenas o nome e não o e-mail.

Sendo que a mensagem seria individual so para avisar o usuário que ele recebeu uma mensagem, como tbem tem opção para enviar para todos os usuários.

BD Access: Tabela: perfil

Campos: nome, apelido e email

vmail = "email@email.com.br"
		Dim objASPEMail
        Set objASPEMail = Server.CreateObject ("Persits.MailSender")

        objASPEMail.FromName        = "Titulo"
        objASPEMail.From            = request("email")
        objASPEMail.Host            = "localhost"
        objASPEMail.AddAddress      vmail
        objASPEMail.Subject         = "Assunto"
        objASPEMail.Body            = "bla bla bla"
        objASPEMail.IsHTML = True

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        If objASPEMail.Send Then
            EnviaEmail = "OK"
       Else
          EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
     End If

        'Destruindo Objetos
        Set objASPEMail = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If
	End If

Dee · Setembro 25, 2009

objASPEMail.AddAddress  = vmail

faltou um sinal de = nessa linha neh

BrunoHP · Setembro 25, 2009

objASPEMail.AddAddress  = vmail
faltou um sinal de = nessa linha neh

Não mesmo, até porque a variável de cima que ja está preenchendo o e-mail e trazendo para o objASPEMail.AddAddress .

A minha dúvida é! Como faço para carregar o e-mail do BD logo que eu seleciono o usuário no muralm sendo que no BD ja tem o dados dele inclusive o e-mail... gostaria apenas para que o sistema mandasse uma notificação.

Dee · Setembro 25, 2009

Acho que entendi, se eu entendi bem

você tem que fazer um Select no seu banco, trazendo as informações

Sql = "Select * From Usuarios Where Id_Codigo = 2"
' Aqui você execute a Query do jeito que você sabe
' Eu faço assim, sendo que ja tenho a conexao aberta
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql, Conexao, 3, 3

' Pegar do Bando as informações:

Response.Write(Rs("Nome") & "<br>")
Response.Write(Rs("Idade") & "<br>")
Response.Write(Rs("Sexo") & "<br>")
Response.Write(Rs("Profissão"))

BrunoHP · Setembro 25, 2009

Acho que entendi, se eu entendi bem

você tem que fazer um Select no seu banco, trazendo as informações

Sql = "Select * From Usuarios Where Id_Codigo = 2"
' Aqui você execute a Query do jeito que você sabe
' Eu faço assim, sendo que ja tenho a conexao aberta
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql, Conexao, 3, 3

' Pegar do Bando as informações:

Response.Write(Rs("Nome") & "<br>")
Response.Write(Rs("Idade") & "<br>")
Response.Write(Rs("Sexo") & "<br>")
Response.Write(Rs("Profissão"))

Estou colocando a pagina inteira não estou conseguindo buscar o e-mail pelo apelido ou até mesmo pelo nome.

<%
'----- Validação De Usuário
If Session("nomeuser") = "" then
	response.redirect "cadastro.asp"
end if
%>
<%Response.Buffer = True%>
<!--#include file="webcontrol/conexao.asp"-->
<%Response.Buffer = True%>
<%
	Dim i
	Dim ii
	Dim varCont
	
	If Request.Form("txtDe") <> "" Then
		Dim objConn
		Dim varConn
		Dim varSql
		Dim rsIncluir
		Dim varMensagem
		Dim arrayCarinhas(14)
		
		'Cria a conexão com a base de dados
		Set objConn = Server.CreateObject("ADODB.Connection")
		varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("demolay.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
		objConn.Open varConn
	
		arrayCarinhas(0) = "(1)"
		arrayCarinhas(1) = "(2)"
		arrayCarinhas(2) = "(3)"
		arrayCarinhas(3) = "(4)"
		arrayCarinhas(4) = "(5)"
		arrayCarinhas(5) = "(6)"
		arrayCarinhas(6) = "(7)"
		arrayCarinhas(7) = "(8)"
		arrayCarinhas(8) = "(9)"
		arrayCarinhas(9) = "(10)"
		arrayCarinhas(10) = "(11)"
		arrayCarinhas(11) = "(12)"
		arrayCarinhas(12) = "(13)"
		arrayCarinhas(13) = "(14)"
		arrayCarinhas(14) = "(15)"
		
		varSql = "SELECT * "
		varSql = varSql & "FROM MuralRecados "
		
		Set rsIncluir = Server.CreateObject("ADODB.Recordset")
		rsIncluir.CursorType = 0
		rsIncluir.CursorLocation = 2
		rsIncluir.LockType = 3
		rsIncluir.Open varSql, objConn
		
		
		rsIncluir.AddNew
		rsIncluir.Fields("DataInclusao") = Date()
		rsIncluir.Fields("HoraInclusao") = Time()
		rsIncluir.Fields("De") = Request.Form("txtDe")
'		rsIncluir.Fields("Email") = Request.Form("txtEmail")
		rsIncluir.Fields("Para") = Request.Form("txtPara")
		
		varMensagem = Request.Form("areaMensagem")
		For i = 0 to 14
			varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=img/Smiles/" & i+1 & ".gif>")
		Next
		
		rsIncluir.Fields("Mensagem") = varMensagem
		rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")
		rsIncluir.Update
		
		rsIncluir.Close
		Set rsIncluir = Nothing
		
		objConn.Close
		Set objConn = Nothing
		
vmail = "email@email.com.br"

		Dim objASPEMail
        Set objASPEMail = Server.CreateObject ("Persits.MailSender")

        objASPEMail.FromName        = "Cap. Conquista e Integração nº 652"
       objASPEMail.From             = request("email")
        objASPEMail.Host            = "localhost"
        objASPEMail.AddAddress      vmail
        objASPEMail.Subject         = "Voçê tem uma mensagem em nosso mural"
        objASPEMail.Body            = "bla bla bla"
        objASPEMail.IsHTML = True

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        If objASPEMail.Send Then
            EnviaEmail = "OK"
        Else
            EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
        End If

        'Destruindo Objetos
        Set objASPEMail = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If

	End If
	End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)">   
<title><%=BRtitle%></title>
<%=BRfavicon%>
<style type="text/css">
		<!--
			a:active{
				text-decoration: none;
				color: #333333;
			}
			a:hover{
				text-decoration: none;
				color: #000000;
			}
			a:link{
				text-decoration: none;
				color: #333333;
			}
			a:visited{
				text-decoration: none;
				color: #333333;
			}
			.Texto1{
				font-family: Verdana;
				font-size: 10px;
				font-weight: none;
				color: #000000;
				text-decoration: none;
			}
			.Texto2{
				font-family: Verdana;
				font-size: 10px;
				font-weight: bold;
				color: #000000;
				text-decoration: none;
			}
			.Borda1{
				border: 1px solid #999999;
			}
			.Form1{
				border: 1px solid #999999;
				font-family: Verdana;
				font-size: 10px;
				color: #000000;
				text-decoration: none;
				background-color: #F4F4F4;
			}
		-->
		</style>
<script src="js/javascript-flash.js" type=text/javascript></SCRIPT>
		<script language="JavaScript">
		<!--
			location.href.MuralRecados = ("Default.asp");
			<%If Request.Form("txtDe") <> "" Then%>
				opener.location.reload();
				window.close();
			<%End If%>
			
			function Incluir(varForm){
				if (varForm.txtDe.value == ""){
					window.alert ("O campo De é de preenchimento obrigatório");
					varForm.txtDe.focus();
					return false;
				}
/*				if (varForm.txtEmail.value == ""){
					window.alert ("O campo E-mail é de preenchimento obrigatório");
					varForm.txtEmail.focus();
					return false;
				}
				else{
					if (varForm.txtEmail.value.search("@") == -1 || varForm.txtEmail.value.search("[.*]") == -1){
						window.alert ("O e-mail não é válido");
						varForm.txtEmail.focus();
						return false;
					}
				} */
				if (varForm.txtPara.value == ""){
					window.alert ("O campo Para é de preenchimento obrigatório");
					varForm.txtPara.focus();
					return false;
				}
				if (varForm.areaMensagem.value == ""){
					window.alert ("O campo Mensagem é de preenchimento obrigatório");
					varForm.areaMensagem.focus();
					return false;
				}
				varForm.submit();
			}
			
			function Carinhas(varForm, varCarinha){
				var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")
				
				varCarinha = varCarinha - 1;
				
				varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " ";

			}
		-->
		</script>
        <link href="style.css" rel="stylesheet" type="text/css" />
        <link href="css.css" rel="stylesheet" type="text/css" />
</head>

<body onLoad="JavaScript:document.formIncluir.txtDe.focus();">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <th height="50" align="left" valign="middle" background="images/dock-bg2.gif" class="tit-meustorpedo" scope="row">Mural</th>
                  </tr>
                  <tr>
                    <th align="left" valign="top" scope="row"><table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
                      <tr>
                        <td><table border="0" align="center">
                          <form action="torpedo_envia.asp" method="post" name="formIncluir" id="formIncluir">
                            <tr>
                              <td><font class="Texto2"> De: </font> </td>
                              <td><input type="text" name="txtDe" value="<%=session("apelido")%>" maxlength="35" size="35" class="Form1" readonly="readonly" />                              </td>
                            </tr>
                            
                            <tr>
                              <td><font class="Texto2"> Para: </font> </td>
                              <td><select name="txtPara" class="form" id="txtPara">
                                <option value="0" selected="selected">Selecione</option>
                                <% 	set rs=connnews.execute("Select * from perfil order by apelido ASC")

				While not rs.EOF
					%>
                                <option value="<%=rs("apelido")%>" <%If (rs("apelido") = vsecao) Then Response.Write "selected" End If%>><%=rs("apelido")%></option>
                                <%
					rs.MoveNext
				Wend
				%>
                              <option value="Para Todos">Para Todos</option>
                              </select></td>
                            </tr>
                            <tr>
                              <td><font class="Texto2"> Mensagem: <br />
                                                <br />
                                                <br />
                                                <br />
                                                <br />
                                                <br />
                              </font> </td>
                              <td><textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea>                              </td>
                              <td width="5"></td>
                              <td><table cellpadding="0" cellspacing="0" border="0">
                                <%For i = 1 to 3%>
                                <tr>
                                  <%For ii = 1 to 5%>
                                  <%varCont = varCont + 1%>
                                  <td><a href="#"><img src="img/Smiles/<%=varCont%>.gif" border="0" onclick="JavaScript:Carinhas(formIncluir, <%=varCont%>);" /></a></td>
                                  <%If ii <> 5 Then%>
                                  <td width="5"></td>
                                  <%End If%>
                                  <%Next%>
                                </tr>
                                <%If i <> 3 Then%>
                                <tr>
                                  <td height="5"></td>
                                </tr>
                                <%End If%>
                                <%Next%>
                              </table></td>
                            </tr>
                            <tr>
                              <td></td>
                              <td><input type="button" name="btnColar" value="Colar" class="Form1" onclick="JavaScript:Incluir(formIncluir);" />                              </td>
                            </tr>
                          </form>
                        </table></td>
                      </tr>
                    </table></th>
                  </tr>
                </table></th>
              </tr>
            </table></th>
          </tr>
        </table></th>
      </tr>
      <tr>
        <th align="left" valign="top" scope="row"></th>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td align="center" valign="middle"><!--#include file="botton_torpedo.asp" --></td>
  </tr>
</table>
</body>
</html>
<%
connnews.close
Set connnews = nothing
%>

Dee · Setembro 25, 2009

troque isso

 varSql = "SELECT * "
 varSql = varSql & "FROM MuralRecados "

por isso

 varSql = "SELECT * FROM MuralRecados "

e para buscar o nome dos campos nao precisa por FIELDS.

Somente:

Rs("Nome_do_campo")

tenta para ver

BrunoHP · Setembro 25, 2009

troque isso
 varSql = "SELECT * "
 varSql = varSql & "FROM MuralRecados "
por isso
 varSql = "SELECT * FROM MuralRecados "
e para buscar o nome dos campos nao precisa por FIELDS.

Somente:

Rs("Nome_do_campo")

tenta para ver

Fiz isso mais ñ cosegui http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

xanburzum · Setembro 25, 2009

olha um exemplo, em uma tabela chamada login tenho os campos (nome,login,email)

para fazer um select na tabela, para retornar o email do user você faz assim

<!--#include file="conn/conexao1.asp"-->
<%
 call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT email FROM login WHERE ORDER BY nome"
rs.open SQL,conexao,1,3

depois recupera ele:

'Rs(nome do seu recordset) ("Nome_do_campo")

rs("email")

BrunoHP · Setembro 25, 2009

Nossa eu não estou conseguindo msm...

Alguem poderia me da exemplo usando as tabelas que já tem no meu BD?

Tabela: perfil

Campos: nome, apelido e email

Sei que com os exemplos que vocês me passaram da para fazer... so que estou com dificuldades.

xanburzum · Setembro 25, 2009

Tabela: perfil

Campos: nome, apelido e email

<!--#include file="conn/conexao1.asp"-->
<%
 call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT email FROM login WHERE ORDER BY nome"
rs.open SQL,conexao,1,3

BrunoHP · Setembro 25, 2009

A mensagem está gravando normal so não esta enviando o e-mail para o usuário selecionado no select do formulário

xanburzum · Setembro 25, 2009

esta gerando algum erro !?!?!?

o objASPEMail esta instalado corretamente ...

certifike-se que os campos From e AddAddress, suan emails válidos.

BrunoHP · Setembro 25, 2009

esta gerando algum erro !?!?!?

o objASPEMail esta instalado corretamente ...

certifike-se que os campos From e AddAddress, suan emails válidos.

Estão certos uso no meu faleconosco.asp recebo normal o e-mail.

So que esse seria diferente teria que puxar o e-mail do usuario cadastrado no BD jogando o e-mail dele junto com o objASPEMail.AddAddress.

no meu faleconosco uso assim...

vmail = "email@email.com.br"

	Dim objASPEMail
        Set objASPEMail = Server.CreateObject ("Persits.MailSender")

        objASPEMail.FromName        = "blup"
        objASPEMail.From            = request("email")
        objASPEMail.Host            = "localhost"
        objASPEMail.AddAddress      vmail
        objASPEMail.Subject         = "Fale conosco"
        objASPEMail.Body            = "bla bla bla"
        objASPEMail.IsHTML          = True

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        If objASPEMail.Send Then
            EnviaEmail = "OK"
        Else
            EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
        End If

        'Destruindo Objetos
        Set objASPEMail = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If

xanburzum · Setembro 25, 2009

coloca assim

objASPEMail.From= rs("email")

precisa colocar o recordset do selectt do bd, e se for mais de um email, coloke dentro de um loop while...

BrunoHP · Setembro 25, 2009

coloca assim

objASPEMail.From= rs("email")

precisa colocar o recordset do selectt do bd, e se for mais de um email, coloke dentro de um loop while...

Deu

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/torpedo_envia.asp, line 94

No

<%
call abreconexao
cria o recordset
Set rsEmail=Server.CreateObject("ADODB.Recordset")
SQLemail="SELECT email FROM perfil WHERE ORDER BY apelido"
rsEmail.open SQLemail,conexao,1,3
%>

Da erro eu tenho que justificar as linhas

<%
'call abreconexao
'cria o recordset
Set rsEmail=Server.CreateObject("ADODB.Recordset")
SQLemail="SELECT email FROM perfil WHERE ORDER BY apelido"
'rsEmail.open SQLemail,conexao,1,3
%>

Para conseguir cadastrar a mensagem.

xanburzum · Setembro 25, 2009

no seu caso

BrunoHP · Setembro 25, 2009

no seu caso

Coloquei assim

<%
'----- Validação De Usuário
If Session("nomeuser") = "" then
	response.redirect "cadastro.asp"
end if
%>
<%Response.Buffer = True%>
<!--#include file="webcontrol/conexao.asp"-->
<%
call abreconexao
'cria o recordset
Set rsEmail=Server.CreateObject("ADODB.Recordset")
SQLemail="SELECT email FROM login WHERE ORDER BY apelido"
rsEmail.open SQLemail,conexao,1,3
%>
<%Response.Buffer = True%>
<%
	Dim i
	Dim ii
	Dim varCont
	sub abreconexao
	
	If Request.Form("txtDe") <> "" Then
		Dim objConn
		Dim varConn
		Dim varSql
		Dim rsIncluir
		Dim varMensagem
		Dim arrayCarinhas(14)
		
		'Cria a conexão com a base de dados
		Set objConn = Server.CreateObject("ADODB.Connection")
		varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("demolay.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
		objConn.Open varConn
	
		arrayCarinhas(0) = "(1)"
		arrayCarinhas(1) = "(2)"
		arrayCarinhas(2) = "(3)"
		arrayCarinhas(3) = "(4)"
		arrayCarinhas(4) = "(5)"
		arrayCarinhas(5) = "(6)"
		arrayCarinhas(6) = "(7)"
		arrayCarinhas(7) = "(8)"
		arrayCarinhas(8) = "(9)"
		arrayCarinhas(9) = "(10)"
		arrayCarinhas(10) = "(11)"
		arrayCarinhas(11) = "(12)"
		arrayCarinhas(12) = "(13)"
		arrayCarinhas(13) = "(14)"
		arrayCarinhas(14) = "(15)"
		
		'varSql = "SELECT * "
		'varSql = varSql & "FROM MuralRecados "
		varSql = "SELECT * FROM MuralRecados"
		
		Set rsIncluir = Server.CreateObject("ADODB.Recordset")
		rsIncluir.CursorType = 0
		rsIncluir.CursorLocation = 2
		rsIncluir.LockType = 3
		rsIncluir.Open varSql, objConn
		
		
		rsIncluir.AddNew
		rsIncluir.Fields("DataInclusao") = Date()
		rsIncluir.Fields("HoraInclusao") = Time()
		rsIncluir.Fields("De") = Request.Form("txtDe")
'		rsIncluir.Fields("Email") = Request.Form("txtEmail")
		rsIncluir.Fields("Para") = Request.Form("txtPara")
		
		varMensagem = Request.Form("areaMensagem")
		For i = 0 to 14
			varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=img/Smiles/" & i+1 & ".gif>")
		Next
		
		rsIncluir.Fields("Mensagem") = varMensagem
		rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")
		rsIncluir.Update
		
		rsIncluir.Close
		Set rsIncluir = Nothing
		
		objConn.Close
		Set objConn = Nothing
			
	Dim objASPEMail
        Set objASPEMail = Server.CreateObject ("Persits.MailSender")

        objASPEMail.FromName        = "Cap. Conquista e Integração nº 652"
        objASPEMail.From            = request("email")
        objASPEMail.Host            = "localhost"
        objASPEMail.AddAddress      = rsEmail("email")
        objASPEMail.Subject         = "Voçê tem uma mensagem em nosso mural"
        objASPEMail.Body            = "bla bla bla"
        objASPEMail.IsHTML          = True

        'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
        If objASPEMail.Send Then
            EnviaEmail = "OK"
        Else
            EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com <a href='mailto:" & p_strEmailTO & "?subject=Erro%20ao%20enviar%20email%20pelo%20site'>" & p_strEmailTO & "</a> e escreva o erro abaixo."
        End If

        'Destruindo Objetos
        Set objASPEMail = Nothing

        If Err.Number <> 0 Then
            EnviaEmail = EnviaEmail & "<br>Erro:" & Err.Description
        End If

	End If
'	End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.5)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.5)">   
<title><%=BRtitle%></title>
<%=BRfavicon%>
<style type="text/css">
		<!--
			a:active{
				text-decoration: none;
				color: #333333;
			}
			a:hover{
				text-decoration: none;
				color: #000000;
			}
			a:link{
				text-decoration: none;
				color: #333333;
			}
			a:visited{
				text-decoration: none;
				color: #333333;
			}
			.Texto1{
				font-family: Verdana;
				font-size: 10px;
				font-weight: none;
				color: #000000;
				text-decoration: none;
			}
			.Texto2{
				font-family: Verdana;
				font-size: 10px;
				font-weight: bold;
				color: #000000;
				text-decoration: none;
			}
			.Borda1{
				border: 1px solid #999999;
			}
			.Form1{
				border: 1px solid #999999;
				font-family: Verdana;
				font-size: 10px;
				color: #000000;
				text-decoration: none;
				background-color: #F4F4F4;
			}
		-->
		</style>
<script src="js/javascript-flash.js" type=text/javascript></SCRIPT>
		<script language="JavaScript">
		<!--
			location.href.MuralRecados = ("Default.asp");
			<%If Request.Form("txtDe") <> "" Then%>
				opener.location.reload();
				window.close();
			<%End If%>
			
			function Incluir(varForm){
				if (varForm.txtDe.value == ""){
					window.alert ("O campo De é de preenchimento obrigatório");
					varForm.txtDe.focus();
					return false;
				}
/*				if (varForm.txtEmail.value == ""){
					window.alert ("O campo E-mail é de preenchimento obrigatório");
					varForm.txtEmail.focus();
					return false;
				}
				else{
					if (varForm.txtEmail.value.search("@") == -1 || varForm.txtEmail.value.search("[.*]") == -1){
						window.alert ("O e-mail não é válido");
						varForm.txtEmail.focus();
						return false;
					}
				} */
				if (varForm.txtPara.value == ""){
					window.alert ("O campo Para é de preenchimento obrigatório");
					varForm.txtPara.focus();
					return false;
				}
				if (varForm.areaMensagem.value == ""){
					window.alert ("O campo Mensagem é de preenchimento obrigatório");
					varForm.areaMensagem.focus();
					return false;
				}
				varForm.submit();
			}
			
			function Carinhas(varForm, varCarinha){
				var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")
				
				varCarinha = varCarinha - 1;
				
				varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " ";

			}
		-->
		</script>
        <link href="style.css" rel="stylesheet" type="text/css" />
        <link href="css.css" rel="stylesheet" type="text/css" />
</head>

<body onLoad="JavaScript:document.formIncluir.txtDe.focus();">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <th align="left" valign="top" background="img/bg-noticias.gif" scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <th height="50" align="left" valign="middle" background="images/dock-bg2.gif" class="tit-meustorpedo" scope="row">Mural</th>
                  </tr>
                  <tr>
                    <th align="left" valign="top" scope="row"><table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
                      <tr>
                        <td><table border="0" align="center">
                          <form action="torpedo_envia.asp" method="post" name="formIncluir" id="formIncluir">
                            <tr>
                              <td><font class="Texto2"> De: </font> </td>
                              <td><input type="text" name="txtDe" value="<%=session("apelido")%>" maxlength="35" size="35" class="Form1" readonly="readonly" />                              </td>
                            </tr>
                            
                            <tr>
                              <td><font class="Texto2"> Para: </font> </td>
                              <td><select name="txtPara" class="form" id="txtPara">
                                <option value="0" selected="selected">Selecione</option>
                                <% 	set rs=connnews.execute("Select * from perfil order by apelido ASC")

				While not rs.EOF
					%>
                                <option value="<%=rs("apelido")%>" <%If (rs("apelido") = vsecao) Then Response.Write "selected" End If%>><%=rs("apelido")%></option>
                                <%
					rs.MoveNext
				Wend
				%>
                              <option value="Para Todos">Para Todos</option>
                              </select></td>
                            </tr>
                            <tr>
                              <td><font class="Texto2"> Mensagem: <br />
                                                <br />
                                                <br />
                                                <br />
                                                <br />
                                                <br />
                              </font> </td>
                              <td><textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea>                              </td>
                              <td width="5"></td>
                              <td><table cellpadding="0" cellspacing="0" border="0">
                                <%For i = 1 to 3%>
                                <tr>
                                  <%For ii = 1 to 5%>
                                  <%varCont = varCont + 1%>
                                  <td><a href="#"><img src="img/Smiles/<%=varCont%>.gif" border="0" onclick="JavaScript:Carinhas(formIncluir, <%=varCont%>);" /></a></td>
                                  <%If ii <> 5 Then%>
                                  <td width="5"></td>
                                  <%End If%>
                                  <%Next%>
                                </tr>
                                <%If i <> 3 Then%>
                                <tr>
                                  <td height="5"></td>
                                </tr>
                                <%End If%>
                                <%Next%>
                              </table></td>
                            </tr>
                            <tr>
                              <td></td>
                              <td><input type="button" name="btnColar" value="Colar" class="Form1" onclick="JavaScript:Incluir(formIncluir);" />                              </td>
                            </tr>
                          </form>
                        </table></td>
                      </tr>
                    </table></th>
                  </tr>
                </table></th>
              </tr>
            </table></th>
          </tr>
        </table></th>
      </tr>
      <tr>
        <th align="left" valign="top" scope="row"></th>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td align="center" valign="middle"><!--#include file="botton_torpedo.asp" --></td>
  </tr>
</table>
</body>
</html>
<%
end sub
connnews.close
Set connnews = nothing
%>

Deu o seguinte erro

Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'rsEmail'

/torpedo_envia.asp, line 97

xanburzum · Setembro 26, 2009

verifique se o rsEmail("email") é um dado valido,esta dando erro de Tipo,da uma response.write

response.write( rsEmail("email") )
response.end()

para ver o k esta sendo passado na variavel

Mário Monteiro · Setembro 30, 2009

qual é a linha 97? post a mesma em um trecho de codigo 5 linhas antes e 5 depois

onde está criando este recorset?,

Arquivado

Envio de e-mail

Recommended Posts

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dee 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

BrunoHP 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas