Envio de E-mails

[Vagner Nunes]

Prezados,

Preciso que me ajudem!!!

Preciso criar um formulário em asp onde o visitante possa selecionar o setor e o formulario enviar o e-mail do respectivo setor.

Segue código abaixo:

<form name="form1" method="POST" action="envia_contato_testes.asp">

<table border="0" width="95%" cellpadding="0" cellspacing="0">
  <tr>
    <td width="100%"><br>
              <div align="center">
              <table border="0" cellpadding="2" cellspacing="0" width="446">
                <tr> 
                  <td width="20%" align="right"><font face="Arial" size="2"><b><font color="#666666">Nome:</font>&nbsp;</b></font></td>
                  <td> 
                    <input type="Text" size="40" maxlength="40" name="nome" value="" class="box">                  </td>
                </tr>
                <tr> 
                  <td align="right"><font face="Arial" size="2"><b><font color="#666666">E-mail:&nbsp;</font></b></font></td>
                  <td> 
                    <input size="40" maxlength="60" name="email" value="" class="box">                  </td>
                </tr>
                <tr> 
                  <td align="right"><font face="Arial" size="2"><b><font color="#666666">Assunto:&nbsp;</font></b></font></td>
                  <td> 
                    <input type="Text" size="40" maxlength="60" name="assunto" value="" class="box">                  </td>
                </tr>
                <tr>
                  <td valign="top" align="right"><font face="Arial" size="2"><b><font color="#666666">Setor</font><font color="#666666">:&nbsp;</font></b></font></td>
                  <td><label>
                    <select name="select" class="box">
                      <option>Selecione um setor</option>
                      <option value="email1@hotmail.com">Biblioteca</option>
                      <option value="email2@hotmail.com">Secretaria</option>
                    </select>
                  </label></td>
                </tr>
                <tr> 
                  <td valign="top" align="right"><font face="Arial" size="2"><b><font color="#666666">Mensagem:&nbsp;</font></b></font></td>
                  <td> 
                    <textarea rows="5" cols="42" name="mens" class="box"></textarea>                  </td>
                </tr>

          </center>
                <tr> 
                  <td valign="top" align="right" colspan="2">
                    <p align="center"><br>
                    <input type="Submit" value=" Enviar " name="Submit1" class="box">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                    <input type="reset" value=" Limpar " name="reset1" class="box">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
                </tr>
                <tr> 
                  <td valign="top" align="right" colspan="2">
                    <p align="left"></td>
                </tr>
              </table>
              </div>
          <center>

              <p align="center">
                
    </center>
    </td>
  </tr>
</table>        

</form>

Ele chama o arquivo abaixo:

<%@ Language=VBScript %>
<%
If request.querystring("op") = 1 then
   Set mail = CreateObject("CDONTS.NewMail")
   mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem 
   [color=#FF0000]mail.To = request.form("setor") ' e-mail de quem vai receber a mensagem [/color]
   mail.CC = "vv@cesat.br" ' Com Cópia 
   'mail.BodyFormat = 1 ' parametro de formatação 
   'mail.MailFormat = cdoMailFormatText ' parametro de formatação 
   'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
   mail.Subject = "Contato (CESAT) - " & request.form("assunto")
   mail.Body = "Nome: " & request.form("nome") & vbCrLf  & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Setor: " & request.form("setor") & vbCrLf & "Mensagem: " & request.form("mens")
   mail.Send 
   Set mail = Nothing 
else

end if
%>

Alguém pode me ajudar,

Sds,

Vagner Nunes

[Ted k']

troque o nome de select:

<select name="select" class="box">

para:

<select name="setor" class="box">

[Vagner Nunes]

troque o nome de select:

<select name="select" class="box">

para:

<select name="setor" class="box">

Fiz a auteração, porém ele aparece a mensagem de envio corretamente mas o e-mail não chega.

[Ted k']

se for local, tem que configurar o IIS para enviar, se for na net, e olhe essa linha:

Set mail = CreateObject("CDONTS.NewMail")

falta o SERVER

Set mail = Server.CreateObject("CDONTS.NewMail")

[Vagner Nunes]

se for local, tem que configurar o IIS para enviar, se for na net, e olhe essa linha:

Set mail = CreateObject("CDONTS.NewMail")

falta o SERVER

Set mail = Server.CreateObject("CDONTS.NewMail")

A página de envio está com o código correto na linha mail.To

<%@ Language=VBScript %>

<%

If request.querystring("op") = 1 then

Set mail = Server.CreateObject("CDONTS.NewMail")

mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem

mail.To = request.form("setor") ' e-mail de quem vai receber a mensagem

mail.CC = "ogoulart@cesat.br" ' Com Cópia

'mail.BodyFormat = 1 ' parametro de formatação

'mail.MailFormat = cdoMailFormatText ' parametro de formatação

'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

mail.Subject = "Contato (CESAT) - " & request.form("assunto")

mail.Body = "Nome: " & request.form("nome") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Setor: " & request.form("setor") & vbCrLf & "Mensagem: " & request.form("mens")

mail.Send

Set mail = Nothing

else

end if

%>

[Ted k']

vamos partir para o POG

coloque assim:

mail.To = ""&request.form("setor")&""

veja agora se vai chegar