[Resolvido] Formulário de contato

[w@shin ! ! ! 0]

Boa tarde pessoal, gostaria de criar um formulario de contato com um dropdown contendo e-mails que o internauta possa escolher antes de enviar em Aspmail.

[mibnetweb 0]

Esses emails estão cadastrados em uma tabela?

[Mário Monteiro 179]

e oq eu ja fez?

[havaianas 0]

implementa isso no seu formulario aspmail

 

<select name="para" class="style1" id="para">
							  <option value="direcao@email.com.br">Direcao</option>
							  <option value="comercial@email.com.br">Comercial</option>
							  <option value="teste@email.com.br">Teste</option>
							  <option value="fulano@email.com.br">Fulano</option>
							  <option value="fulano2@email.com.br">Fulano2</option>
							</select>

[w@shin ! ! ! 0]

Muito obrigado pessoal. Gostaria que dependendo do e-mail escolhido no dropdown quando clicado o botão Enviar redirecione para uma página que execute os comandos necessários e a mensagem chegue ao e-mail correto.

Verifiquei com o Servidor de hospedagem e obtive a infomação de que só tenho suporte a CDONSYS. Gostaria de saber também se muda muito a codificação.

[hargon 64]

Faça uma pesquisa aqui no Fórum, sobre CDOSYS. Existem vários tópicos sobre o assunto, principalmente no Laboratório de Scripts.

 

Sobre o redirecionamento, basta criar alguns IF ou um SELECT CASE para fazer a validação.

 

Qualquer dúvida poste aqui.

[w@shin ! ! ! 0]

Tenho o seguinte código: e está dando erro. CDO.Message.1 error '8004020d'

 

At least one of the From or Sender fields is required, and neither was found.

 

/envio.asp, line 43

O que pode ser?

<%
'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
'SMTP, onde na opticalhost o formato é mail.seudominio.com
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail3.porta81.com.br" 
'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
'porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
'timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSCon.Fields.update 
'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
'e-mail do remetente 
objCDOSYSMail.From = request.Form("email") 
'e-mail do destinatário 
objCDOSYSMail.To = "marcos.mendes@bombaspaulo.com.br" 
'assunto da mensagem 
objCDOSYSMail.Subject = "Contato pelo Site" 
'conteúdo da mensagem 
strBody = "Dados" & vbCrLf & vbCrLf & _ 
"Empresa: "& Request("empresa") & vbCrLf & _ 
"Nome: "& Request("nome") & vbCrLf & _ 
"Telefone: "& Request("telefone") & vbCrLf & _ 
"E-mail: "& Request("email") & vbCrLf & _ 
"Mensagem: "& Request("mensagem") 
strBody = strBody & "." 
objCDOSYSMail.TextBody = strBody 
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = strBody 
'envia o e-mail 
objCDOSYSMail.Send 
'destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
response.write ("Email Enviado com Sucesso") 
%>

 

Pessoal, esse caso consegui resolver. Foi uma falha no formulário no método estava GET, mudei para POST e funcionou normalmente

[Mário Monteiro 179]

Que bom qeu resolveu

 

Abraços