Ir para conteúdo
Fórum Script Brasil
  • 0

Como conseguir fazer isto


matrix2003

Pergunta

Vou tentar explicar melhor, na tabela users tem o campo email e na tabela messages não tem o campo email

O codigo sem o Jmail manda o e-mail para o user ver quando ele se loga no site mais agora to querendo enviar uma menagem para quem vai receber a mensagem que tem uma mensagem para ele no site mais da o erro

jmail.SMTPMail error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/login/mensagem_enviada.asp, line 115

porque ele não encontra o campo email na tabela message só na users mais eu não consigo fazer ele achar este campo olha como estou tentando

sql = "SELECT username FROM Users WHERE username = '" & sendto & "'" não da

sql = "SELECT email FROM Users WHERE username = '" & sendto & "'" não da

sql = "SELECT username, email FROM Users WHERE username = '" & sendto & "'" não da

onde estou errando

porque veja só

aqui

Mail.AddRecipient Request.Form("email")

ele não pega nenhum email do campo form porque não precisa somente tem que fazer a verificação do email do sendto e enviar o email não é

veja o codigo que fiz

<%

'Assign form values to variables

sentfrom =Session("username")

sendto = Request.Form("sendto")

senduser = Request.Form("senduser")

subject = Request.Form("subject")

message = Request.Form("message")

%>

<!--#include file="conexao.asp"-->

<%

'Check the user the message is being sent to exists

sql = "SELECT username FROM Users WHERE username = '" & sendto & "'"

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

rsUser.Open sql, conn, 3, 3

if rsUser.EOF then

nouser()

end if

rsUser.close

set rsUser = nothing

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

rsMessage.open "Messages", conn, 3, 3

rsMessage.AddNew

rsMessage("sentfrom") = sentfrom

rsMessage("sendto") = sendto

rsMessage("subject") = subject

rsMessage("message") = message

rsMessage.Update

rsMessage.close

set rsMessage = nothing

Set Mail = Server.CreateObject("JMail.SMTPMail")

HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"

HTML = HTML & "<html>"

HTML = HTML & "<head>"

HTML = HTML & "</head>"

HTML = HTML & "<body bgcolor=""FFFFFF"">"

HTML = HTML & "<font face=Verdana size=1>"

HTML = HTML & "Olá <b>"& sendto &"</b>, Você tem uma nova mensagem no site Onemasters.com<br>"

HTML = HTML & "- Seguem dados abaixo de quem te enviou<br>"

HTML = HTML & "- Nome: <b>"& username &"</b><br>"

HTML = HTML & "- Assunto: <b>"& subject &"</b><br>"

HTML = HTML & "- Acesse nosso site agora e saiba o que foi postado<br>"

HTML = HTML & "- Sobre você: <b>"& sobre_voce &"</b><br>"

HTML = HTML & "http://www.onemasters.com - Todos os direitos reservados.<br>"

HTML = HTML & "</body>"

HTML = HTML & "</html>"

Mail.ServerAddress = "smtp.onemasters.com"

Mail.Logging = True

Mail.Sender = "admin@onemasters.com"

Mail.SenderName = "Nova Mensagem"

Mail.AddRecipient Request.Form("email")

Mail.Subject = "Nova Mensagem"

Mail.HTMLBody = HTML

Mail.Execute

Set Mail = Nothing

%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

no caso ele não ta capitando o e-mail da tabela user e não do username ele trava aqui Mail.AddRecipient Request.Form("email")

pois não consigo pegar os dados do email de quem vai receber a mensagem

Andreia sera posso fazer assim

<%

'Check the user the message is being sent to exists

sql = "SELECT username FROM Users WHERE username = '" & sendto & "'"

sql = "SELECT email FROM Users WHERE email = '" & sendto & "'"

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

rsUser.Open sql, conn, 3, 3

mais como fica este campo

Mail.AddRecipient Request.Form("email")

pois este campo que ta dando problema

Editado por matrix2003
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...