Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

designmix

como mandar email para o local certo?

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

galera ... tenho um formulario que vai ser usando para, tres site, so que tenho que indentificar o site da onde o form foi solicidado. E mandar o conteudo do form para o email referente ao site.

 

 

ESSE É MEU SCRIPT QUE ESTA MANDANDO PARA UM EMAIL SO

 

ASP

[*]<!--#include FILE="bib_conexao.asp"-->

[*]

[*]<%

[*]

[*]site =request.servervariables("ALL_http")

[*]nome = Request.Form("nome")

[*]Sobre_nome = Request.Form("Sobre_nome")

[*]tel = Request.Form("tel")

[*]email = Request.Form("email")

[*]cidade = Request.Form("cidade")

[*]Cod_est = Request.Form("Cod_est")

[*]pais = Request.Form("pais")

[*]login = Request.form("login")

[*]Senha = Request.Form("senha")

[*]Data_nasc = Request.Form("data_nasc")

[*]profissao = Request.Form("profissao")

[*]grupo = Request.Form("grupo")

[*]

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, grupo, ) "

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')"

[*]

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]

[*]strMyEmailAddress = "jaffar@photopro.com.br"

[*]

[*]

[*]

[*]strReturnEmailAddress = Request.Form("email")

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]

[*]

[*]

[*]

[*]

[*]If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

[*]

[*]strReturnEmailAddress = strMyEmailAddress

[*]End If

[*]

[*]

[*]

[*]Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

[*]

[*]

[*]

[*]

[*]objCDOMail.From = Request.Form("Nome") & " " & Request.Form("") & " <" & strReturnEmailAddress & ">"

[*]

[*]

[*]objCDOMail.To = strMyEmailAddress

[*]

[*]

[*]objCDOMail.Cc = strCCEmailAddress

[*]

[*]

[*]objCDOMail.Subject = ""

[*]

[*]

[*]objCDOMail.Body = strBody

[*]

[*]

[*]objCDOMail.MailFormat = CdoMailFormatText

[*]

[*]

[*]objCDOMail.Importance = 1

[*]

[*]

[*]objCDOMail.Send

[*]

[*]

[*]

[*]Set objCDOMail = Nothing

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

galera fiz assim .. pare que deu certo... mais esta dando erro na linha

 

 

Microsoft VBScript compilation error '800a03ea' Syntax error /teste/enviar.asp, line 8 elseif------^
Meu script

 

ASP

[*]<%

[*]URL = Request.ServerVariables("HTTP_REFER")

[*]

[*]if URL = "www.photopro.com.br" then

[*]send_mail = "jaffar@photopro.com.br"

[*]elseif

[*]URL = "www.dtp.com.br" then

[*]send_mail = "jaffar@dtp.com.br"

[*]end if

[*]

[*]nome = Request.Form("nome")

[*]Sobre_nome = Request.Form("Sobre_nome")

[*]tel = Request.Form("tel")

[*]email = Request.Form("email")

[*]cidade = Request.Form("cidade")

[*]Cod_est = Request.Form("Cod_est")

[*]pais = Request.Form("pais")

[*]login = Request.form("login")

[*]Senha = Request.Form("senha")

[*]Data_nasc = Request.Form("data_nasc")

[*]profissao = Request.Form("profissao")

[*]grupo = Request.Form("grupo")

[*]

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, grupo)"

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')"

[*]

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Email: " & Request.Form("email") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]

[*]Set objMailer = Server.CreateObject("CDONTS.NewMail")

[*]objMailer.To = send_mail

[*]objMailer.From = Request.Form("email")

[*]objMailer.Subject = "Email vindo de " & Request.Form("grupo")

[*]objMailer.Body = strbody

[*]objMailer.Send

[*]Set objMailer = Nothing

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

poe isso na mesma linhaelseif URL = "www.dtp.com.br" then assimelseif URL = "www.dtp.com.br" then

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

paro de dar erro mais esta mandarndo ,,, para o mesmo mesmo e mail nao esta mandando para o mesmo emailjaffar@dtp.com.breu estou no site www.photopro.com.br ai ele me manda para o email da dtp e nao da photopro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

istoURL = Request.ServerVariables("HTTP_REFER")pega o link completo e não só o dominio, acho que sempre vai dar no else...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

a pagina que tem o link... se for a index será

 

http://www.photopro.com.br/index.asp

 

se for outra o caminho...

 

ou então você pega o dominio a partir da URL com funções de manipulação de string

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

nossaque confusaumcomo eu xeguei depois..nao sei em que pé vcs taumcomo esta seu codigo agora, e o que acontece com ele?

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

O que acontece estou entando mandar um email atraz de um form, mais tenho que pegar a pagina da onde esta vindo para poder mandar para o email certo.

 

Tentei colocar o caminho completo como so o www.site.com.br

 

 

mais nada deu certo, o script so manda o email para um email .

 

Tentei colocar assim www.photopro.com.br/teste/form.asp mais nao deu certo

 

ASP

[*]<!--#include FILE="_conn/bib_conexao.asp"-->

[*]

[*]<%

[*]URL = Request.ServerVariables("HTTP_REFER")

[*]

[*]if URL = "www.photopro.com.br" then

[*]send_mail = "jaffar@photopro.com.br"

[*]elseif URL = "www.dtp.com.br" then

[*]send_mail = "jaffar@dtp.com.br"

[*]end if

[*]

[*]nome = Request.Form("nome")

[*]Sobre_nome = Request.Form("Sobre_nome")

[*]tel = Request.Form("tel")

[*]email = Request.Form("email")

[*]cidade = Request.Form("cidade")

[*]Cod_est = Request.Form("Cod_est")

[*]pais = Request.Form("pais")

[*]login = Request.form("login")

[*]Senha = Request.Form("senha")

[*]Data_nasc = Request.Form("data_nasc")

[*]profissao = Request.Form("profissao")

[*]grupo = Request.Form("grupo")

[*]

[*]

[*]strSQL = "INSERT INTO d_clientes (nome, sobre_nome, tel, email, cidade, cod_est, pais, login, senha, data_nasc, profissao, grupo)"

[*]strSQL = strSQL & "values ('"& nome & "','" & sobre_nome & "','" & tel & "','" & email & "','" & cidade & "','" & cod_est & "','" & pais & "','" & login & "','" & senha & "','" & data_nasc & "','" & profissao & "','" & grupo & "')"

[*]

[*]

[*]

[*]Response.Buffer = True

[*]

[*]

[*]Dim strBody

[*]Dim objCDOMail

[*]Dim strMyEmailAddress

[*]Dim strCCEmailAddress

[*]Dim strReturnEmailAddress

[*]

[*]strBody = "Name: " & Request.Form("Nome") & " " & Request.Form("") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Sobre Nome: " & Request.Form("Sobre_nome") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Email: " & Request.Form("email") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Cidade: " & Request.Form("cidade") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Estado: " & Request.Form("cod_est") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Pais: " & Request.Form("pais") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Login: " & Request.Form("login") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "senha: " & Request.Form("senha") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Data nascimento: " & Request.Form("data_nasc") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Profissâo: " & Request.Form("profissao") & vbCrLf & vbCrLf

[*]strBody = strBody & vbCrLf & "Grupo: " & Request.Form("grupo") & vbCrLf & vbCrLf

[*]

[*]Set objMailer = Server.CreateObject("CDONTS.NewMail")

[*]objMailer.To = send_mail

[*]objMailer.From = Request.Form("email")

[*]objMailer.Subject = "Email vindo de " & Request.Form("grupo")

[*]objMailer.Body = strbody

[*]objMailer.Send

[*]Set objMailer = Nothing

[*]

[*]call abre_conexao

[*]conn.Execute strSQL

[*]call fecha_conexao

[*]%>

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

ASP

[*]URL = Request.ServerVariables("HTTP_REFER")

[*]

[*]busca1 = CStr("photopro.com.br")

[*]busca2 = CStr("dtp.com.br")

[*]if inStr(URL,busca1) <> 0 then

[*] send_mail = "jaffar@photopro.com.br"

[*]elseif inStr(URL,busca2) <> 0 then

[*] send_mail = "jaffar@dtp.com.br"

[*]end if

[*]

 

ja tentou fazer assim?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito