[Resolvido] Escolher E-mail

[w@shin ! ! ! 0]

Olá pessoal tenho esse formulário de contato

 

form.htm

<table width="774" background="form-fundo.gif">
  <form name="nomedoform" action="envio.asp" method="post" >
	<!--DWLayoutTable-->
	<tr> 
	  <th height="21" colspan="3">Formulário de contato</th>
	  <td width="390"></td>
	</tr>
	<tr> 
	  <td width="68" height="26"><label>Contato:</label></td>
	  <td colspan="2"> <select name="destino" class="style1" id="select">
		  <option>Escolha aqui seu contato</option>
		  <option value="davi@bombaspaulo.com.br">Gerência Geral - Davi</option>
		  <option value="gerson.bueno@bombaspaulo.com.br">Vendas - Gerson</option>
		  <option value="edm.soares@bombaspaulo.com.br">Vendas - Edmilson</option>
		  <option value="sidnei@bombaspaulo.com.br">Vendas - Sidnei</option>
		  <option value="marcos.mendes@bombaspaulo.com.br">Assistência Técnica 
		  - Marcos / Victor</option>
		  <option value="financeiro@bombaspaulo.com.br">Financeiro</option>
		</select> </td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="24" valign="top">Empresa:</td>
	  <td colspan="2" valign="top"><input name="empresa" type="text" id="empresa" size="33"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="24" valign="top"><label>Nome</label></td>
	  <td colspan="2" valign="top"><input name="nome" type="text" size="33" 
maxlength="1000"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="24" valign="top">Telefone:</td>
	  <td colspan="2" valign="top"><input name="telefone" type="text" id="telefone" size="33"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="24" valign="top"><label>E-mail:</label></td>
	  <td colspan="2" valign="top"><input name="email" type="text" id="email" size="33" 
maxlength="1000"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="26" valign="top">Assunto:</td>
	  <td colspan="2" valign="top"><input name="assunto" size="33" type="text" id="assunto"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="136" valign="top"><label>Mensagem:</label> </td>
	  <td colspan="2" valign="top"><textarea name="mensagem" cols="25" 
rows="7" id="mensagem" >
</textarea> </td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="26"></td>
	  <td width="49" valign="top"><input name="submit" type="submit" 
value="Enviar" 
class="botao"> </td>
	  <td width="239"></td>
	  <td></td>
	</tr>
	<tr> 
	  <td height="15"></td>
	  <td></td>
	  <td></td>
	  <td></td>
	</tr>
  </form>
</table>

e essa codificaçao em ASP

 

enviado.asp

<%
'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") 
%>

 

Gostaria de que conforme fosse escolhido o e-mail na dropdwn, a mensagem fosse enviada para o destinatário correto. Como faço?

[hargon 64]

objCDOSYSMail.To = Request.Form("destino")

[w@shin ! ! ! 0]

Ok. muito obrigado, problema resolvido