[Resolvido] Formulário de contato

Esses emails estão cadastrados em uma tabela?

e oq eu ja fez?

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>

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.

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.

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

Que bom qeu resolveu

Abraços