ANEXAR ARQUIVO

DINEY 16/09/2009 12:13:08
#323028
bom dia...

pessoal estou com um duvida de como anexar um arquivo na hora de enviar e-mail atraves de um Form .asp.

no site tenho um form [Ô]curriculo.asp[Ô] e o [Ô]enviacurriculo.;asp[Ô], sei como enviar o email, mas como nunca fiz com anexo não tenho a menor ideia,

no form curriculo.asp coloquei assim:
 
<form  name=[Ô]matricula[Ô] action=[Ô]enviacurriculo.asp[Ô] method=[Ô]post[Ô] onSubmit=[Ô]return checa_dados();[Ô] >
       <tr>
          <td width=[Ô]585[Ô] align=[Ô]center[Ô] bgcolor=[Ô]#FFFFFF[Ô]>
          <img src=[Ô]img/trabalhe.gif[Ô] border=[Ô]0[Ô] >
        </td></tr>

          <tr>
          <td align=[Ô]center[Ô] width=[Ô]585[Ô] height=[Ô]20[Ô] valign=[Ô]top[Ô]>
          <font face=[Ô]Verdana[Ô] style=[Ô]font-size:11px;color=#000000[Ô]>
               Se você quer trabalhar conosco, envie seu curriculo.</font></td></tr></table>

	  <table width=[Ô]585[Ô] border=[Ô]0[Ô] align=[Ô]center[Ô] valign=[Ô]top[Ô] cellpadding=[Ô]0[Ô] cellspacing=[Ô]0[Ô] style=[Ô]border: 1px solid #D8D8D8; background: #FFF;[Ô]>
             <tr>
                  <form method=[Ô]post[Ô] action=[Ô]trabalhe_envia.asp[Ô] name=[Ô]FormInscricao[Ô] onSubmit=[Ô]return verifica(this)[Ô]  ENCTYPE=[Ô]multipart/form-data[Ô]>
                    <table>
                      <tr>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>Nome:</font></td>
                        <td> <font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>
                          <input name=[Ô]nome[Ô] type=[Ô]text[Ô] size=[Ô]30[Ô] id=[Ô]nome[Ô]>
                          </font></td>
                      </tr>
                      <tr>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>Telefone:</font></td>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>
                          <input name=[Ô]fone[Ô] type=[Ô]text[Ô] size=[Ô]15[Ô] id=[Ô]fone[Ô]>
                          </font></td>
                      </tr>
                      <tr>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>E-mail:</font></td>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>
                          <input name=[Ô]email[Ô] type=[Ô]text[Ô] size=[Ô]30[Ô] id=[Ô]email[Ô]>
                          </font></td>
                      </tr>
                      <tr>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>Vaga
                          pretendida</font></td>
                        <td style=[Ô]color:#ff0000;[Ô]> <font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>
                          <input name=[Ô]vaga[Ô] type=[Ô]text[Ô] size=[Ô]30[Ô] id=[Ô]vaga[Ô]>
                          </font></td>
                      </tr>
                      <tr>
                        <td><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]> </font></td>
                        <td style=[Ô]color:#ff0000;[Ô]> </td>
                      </tr>
                      <tr>
                        <td colspan=[Ô]2[Ô] style=[Ô]padding: 15px 0 15px 0;[Ô]> <p><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]><strong>Anexe
                            o seu Currículum</strong><br/>
                            <input type=[Ô]hidden[Ô] name=[Ô]tipos_arquivo[Ô] value=[Ô]doc,xls,txt,pdf[Ô]>
                            <input type=[Ô]hidden[Ô] name=[Ô]tipos_indice[Ô]>
                            <input type=[Ô]hidden[Ô] name=[Ô]arquivo_nome[Ô]>
                            <input type=[Ô]file[Ô] size=40 name=[Ô]arquivo[Ô]>
                            </font></p>
                          <p><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>*
                            São permitidos arquivos com extensão.<b>doc,xls,txt,pdf</b>.</font></p>
                          <p><font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>*
                            Tamanho máximo permitido para arquivos: <b>1
                            Mb.</b><br>
                            <span style=[Ô]color: #FF0000[Ô]>* Arquivos que ultrapassem
                            esse limite não serão enviados.</span> </font></p></td>
                      </tr>
                      <tr>
                        <td colspan=[Ô]2[Ô] style=[Ô]text-align: center;[Ô]> <font size=[Ô]1[Ô] face=[Ô]Verdana, Arial, Helvetica, sans-serif[Ô]>
                          <input type=[Ô]submit[Ô] name=[Ô]Enviar[Ô] value=[Ô]Enviar[Ô] id=[Ô]Enviar[Ô]>
                          </font></td>
                      </tr>


e no form enviacurriculo.asp como ficaria??


<%

Set objCDOSYSMail = Server.CreateObject([Ô]CDO.Message[Ô])

Set objCDOSYSCon = Server.CreateObject ([Ô]CDO.Configuration[Ô])

objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]mail-fwd[Ô]

objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô])= 25


objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô])= 2


objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[Ô])= 30

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = request.Form([Ô]email[Ô])


objCDOSYSMail.To = [Ô]contato@colegiocatavento.com.br[Ô]


objCDOSYSMail.Subject = [Ô]Curriculo[Ô]


strBody = [Ô]Dados enviados para pré-matrícula:[Ô] & vbCrLf & vbCrLf & _
[Ô]Nome: [Ô]& Request([Ô]nomea[Ô]) & vbCrLf & _
[Ô]Fone: [Ô]& Request([Ô]fone[Ô]) & vbCrLf & _
[Ô]E-mail: [Ô]& Request([Ô]email[Ô]) & vbCrLf & _
[Ô]Vaga: [Ô]& Request([Ô]vaga[Ô]) & vbCrLf & _
[Ô]Extensão: [Ô]& Request([Ô]tipos_arquivo[Ô]) & vbCrLf & _
[Ô]Tipo: [Ô]& Request([Ô]tipos_indice[Ô]) & vbCrLf & _
[Ô]Doc.: [Ô]& Request([Ô]arquivo_nome[Ô]) & vbCrLf & _
[Ô]Arquivo: [Ô]& Request([Ô]arquivo[Ô])
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 ([Ô]<font color=[ô]#FF0000[ô]><h3>[ô]Formulário enviado com sucesso![ô]</h3></font>[Ô] )

%>


seria só isso>??

Claudiney
www.cassystems.com.br

DINEY 17/09/2009 16:18:13
#323117
Boa tarde...

ainda não resolvi a situação, não estou conseguindo anexar os arquivos, esta enviando os dados digitados nas caixas mas não anexa o documento... arghh...
este código eu peguei na net, mas não esta funcionando.

o que seria esta parte [Ô]ENCTYPE=[Ô]multipart/form-data[Ô], pois sem ela consigo enviar o e-mail mas quando deixo esta parte sdo codigo não funciona nada da erro de envio.
acho que o problema esta aí. rsrsrs.....

Claudiney
www.cassystems.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar