Galera não estou conseguindo enviar o email para a pessoa que se cadastra no portal. O codigo que estou usando para cadastro e o seguinte...e o do email e o outro abaixo......
Se alguém poder me ajudar ficarei muito grato....
<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, nome, assunto, de, mensagem
'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
assunto = Request.Form("assunto")
de = Request.Form("de")
mensagem = Request.Form("mensagem")
'Cria o objeto RecordSet e atribui a variável
Set objConn = Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("\julliano\db\contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO contato (nome,assunto,de,mensagem) VALUES ('"&nome&"','"&assunto&"','"&de&"','"&mensagem&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
'Redireciona o usuário caso não tenha ocorrido erro na transação
response.redirect "sendmail.asp"
end if
%>
Sendmail.asp
<%
'define o objeto JMAIL
Set JMail = Server.CreateObject ("JMail.message")
JMail.logging=True
JMail.From = request.form ("De")
JMail.FromName = request.form ("Assunto")
JMail.AddRecipient "juliano@curinga.com.br"
JMail.Subject = "Cadastro"
dim body,link
body= body & "Webmaster" & vbcrlf
body= body & "Recebemos sua solitação." & vbcrlf
body= body & "Ainda hoje um de nossos atendentes estara entrando em contato." & vbcrlf
body= body & "Aguarde nosso contato." & vbcrlf
body= body & "_________________________________________________________________" & vbcrlf
body= body & "Name : " & request.form ("Assunto")& vbcrlf
body= body & "E-Mail : " & request.form("De")& vbcrlf
body= body & "Message : " & request.form("Mensagem")& vbcrlf
body= body & "_________________________________________________________________" & vbcrlf
JMail.Body = body
JMail.Send ("mail.thewesthorse.com")
%>
Pergunta
neo
Galera não estou conseguindo enviar o email para a pessoa que se cadastra no portal. O codigo que estou usando para cadastro e o seguinte...e o do email e o outro abaixo......
Se alguém poder me ajudar ficarei muito grato....
Sendmail.aspLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.