[Resolvido] Direcionamento de Email

[Vougan 0]

E ai pessoal do Imasters beleza?!?

 

Então, estou com um problema cruel, e não faço a menor ideia de como resolver.

 

Tenho um formulário feito em aspmail, e preciso fazer com que ele direcione o conteúdo escrito no formulário

direcionar para a sessão escolhida.

 

Não sei se fui claro, para ter mais noção do que estou perguntando deixo o link abaixo:

 

formulario do site

 

Se alguém puder dar uma ajudinha eu ficaria muito grato.

 

Valeu pessoal http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ted k' 126]

que sessão escolhida?

 

se for o combo você faz um IF para cada local de e-mail

[Vougan 0]

que sessão escolhida?

 

se for o combo você faz um IF para cada local de e-mail

 

Desculpa cara, sou leigo em asp, não entendi direito, como seria esse combo e o que seria IF?

 

no meu caso tenho as sessões: comercial, RH, Marketing e Diretoria.

 

Quando escolher um destes no menu, ele teria que encaminhar para o local escolhido.

 

Agradeço pela atenção http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ted k' 126]

isso

vamos lá

 

você tem os emails de comercial, rh, marketing e diretoria e o codigo de envio...

 

quando o cara selecionar os combos você faz uma condição IF, ou CASE, mais vamos com IF mesmo...

 

na pagina de envio você faz tipo isso:

 

dim email_receber

if (request.form("sessao") = "comercial") then
email_receber = "comercial@teste.com"

elseif (request.form("sessao") = "rh") then
email_receber = "rh@teste.com"

elseif (request.form("sessao") = "diretoria") then
email_receber = "diretoria@teste.com"
end if

.... restante do codigo

se és leigo, ai vai complicar mais pra você!

 

segue a dica ai...

[Vougan 0]

Cara valeu pela força, porém eu ainda não consegui fazer funcionar.

 

estou usando o componente aspmail, ai ele deu erro na linha onde começa o código que você me passou.

 

Será que estou fazendo errado ou em aspmail é diferente?!?

 

o código que eu usei foi este!

 

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Response.charset="iso-8859-1"
'Servidor de SMTP
Mail.Host = "localhost"
'E-mail do remetente PRECISA SER UM EMAIL VALIDO DO PROPRIO DOMINIO
Mail.From = "contato@dominio.com.br"
'Remetente
Mail.FromName = "Contato pelo Site"
'Assunto da mensagem
Mail.Subject = "Contato pelo site"
'Corpo da mensagem
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Contato" & "</b>" & "</font>" & "<br>" & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Nome: " & "</b>" & "</font>" & request.form("nome") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Destinatário: " & "</b>" & "</font>" & request.form("destinatario") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "E-mail: " & "</b>" & "</font>" & request.form("email") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Assunto: " & "</b>" & "</font>" & request.form("tel") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Cidade: " & "</b>" & "</font>" & request.form("cidade") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "UF: " & "</b>" & "</font>" & request.form("uf") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Mensagem: " & "</b>" & "</font>" & request.form("mensagem") & "<br>"
'Utilize este cdigo caso o formato do e-mail seja HTML
Mail.IsHTML = True
'Utilize este cdigo caso for enviar anexo.
'Mail.AddAttachment("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"),
On Error Resume Next
Mail.Send

dim Mail.AddAddress

if (request.form("destinatario") = "comercial") then
Mail.AddAddress = "meuemail@dominio.com.br"

elseif (request.form("destinatario") = "rh") then
Mail.AddAddress = "meuemail2@dominio.com.br"

elseif (request.form("destinatario") = "diretoria") then
Mail.AddAddress = "meuemail3@dominio.com.br"

If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
Response.redirect "sucesso.htm"
End If
Set Mail = Nothing
%>

[xanburzum 169]

coloca o laço (IF) que o ted´k passou no inicio do code

e esta faltando o campo Mail.AddAddress que é para quem você vai mandar

tenta assim:

 

<%
if (request.form("sessao") = "comercial") then
email_receber = "comercial@teste.com"

elseif (request.form("sessao") = "rh") then
email_receber = "rh@teste.com"

elseif (request.form("sessao") = "diretoria") then
email_receber = "diretoria@teste.com"
end if

Set Mail = Server.CreateObject("Persits.MailSender")
Response.charset="iso-8859-1"
'Servidor de SMTP
Mail.Host = "localhost"
'E-mail do remetente PRECISA SER UM EMAIL VALIDO DO PROPRIO DOMINIO
Mail.From = "contato@dominio.com.br"
'Remetente
Mail.FromName = "Contato pelo Site"
Mail.AddAddress email_receber
'Assunto da mensagem
Mail.Subject = "Contato pelo site"
'Corpo da mensagem
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Contato" & "</b>" & "</font>" & "<br>" & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Nome: " & "</b>" & "</font>" & request.form("nome") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Destinatário: " & "</b>" & "</font>" & request.form("destinatario") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "E-mail: " & "</b>" & "</font>" & request.form("email") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Assunto: " & "</b>" & "</font>" & request.form("tel") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Cidade: " & "</b>" & "</font>" & request.form("cidade") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "UF: " & "</b>" & "</font>" & request.form("uf") & "<br>"
Mail.Body = Mail.Body & "<font face='verdana' size='2' color='#666666'>" & "<b>" & "Mensagem: " & "</b>" & "</font>" & request.form("mensagem") & "<br>"
'Utilize este cdigo caso o formato do e-mail seja HTML
Mail.IsHTML = True
'Utilize este cdigo caso for enviar anexo.
'Mail.AddAttachment("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"),
On Error Resume Next
Mail.Send


%>

[Vougan 0]

Poxa valeu ai cara, o sistema enviou só que não chegou nada na caixa de entrada do e-mail. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Vamos por partes então http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

 

if (request.form("sessao") = "comercial") then
email_receber = "comercial@teste.com"

elseif (request.form("sessao") = "rh") then
email_receber = "rh@teste.com"

elseif (request.form("sessao") = "diretoria") then
email_receber = "diretoria@teste.com"
end if

aqui fiz como você me falou, request.form("destinatario") que é o nome do menudropdown. e = "comercial" que é o item selecionado ai ficou assim

 

if (request.form("destinatario") = "comercial") then
email_receber = "web@teste.com"

elseif (request.form("destinatario") = "rh") then
email_receber = "web2@teste.com"

elseif (request.form("destinatario") = "diretoria") then
email_receber = "web3@teste.com"
end if

ai beleza, os caminhos estão certos, ele não deu erro nenhum e falou que o formulário foi enviado com sucesso.

no campo "Mail.AddAddress" eu coloco assim:

 

...
Mail.AddAddress = "email_receber"
...

Ai ele deveria pegar o que esta no campo destinatario e enviar para o e-mail selecionado correto?!!

 

Estou testando aqui http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif valeu cara!

[Vougan 0]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Valeu pessoal, deu um trabalhão mas consegui fazer funcionar!

 

Brigadão mesmo :D