Jump to content
Fórum Script Brasil
  • 0

Envia Anexo


Guest Marcelo Campos
 Share

Question

Guest Marcelo Campos

Bom dia, eu fiz um formulario de contato, só que não consigo que ele mande o anexo, vou postar o codigo aqui, se alguém puder me ajudar, muito obrigado.

-------------

Form.htm

-------------

<form action="contato_envia.asp" onSubmit="MM_validateForm('nome','','R','e-mail','','RisEmail','código','','R');return document.MM_returnValue">
            <table width="560" border="0">
            <tr><td colspan="2"><div align="center"><span class="tópico">Venha fazer parte da equipe da 8888! Mencione o código da vaga para qual se enquadra, ao enviar seu currículo.<br>
              <br>
            </span>          <img src="imagens/qualificacao_11.jpg" width="560" height="2"></div></td>
            </tr>
            <tr>
              <td height="10" colspan="2"></td>
            </tr>
            <tr>
              <td width="100" class="lado_D">Assunto <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460" class="assunto">   Envio de currículo para 8888! </td>
            </tr>
            <tr>
              <td class="lado_D">*Nome <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460">  
                <input name="nome" type="text" class="campos" id="nome"></td>
            </tr>
            <tr>
              <td class="lado_D">*E-mail <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460">  
                <input name="E-mail" type="text" class="campos" id="e-mail"></td>
            </tr>
            <tr>
              <td class="lado_D">Telefone <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460" class="assunto">  (
                <input name="dddd" type="text" class="ddd" id="dddd" maxlength="2">
                ) 
                <input name="tele" type="text" class="telefone" id="tele"></td>
            </tr>
            <tr>
              <td class="lado_D">*Anexo <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460">  
                <input name="Procurar" type="file" class="anexa" id="Anexo"></td>
            </tr>
            <tr>
              <td class="lado_D">Código da Vaga <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460">  
                <input name="codigo" type="text" class="campos" id="codigo"></td>
            </tr>
            <tr>
              <td class="lado_D">Mensagem <img src="imagens/ponto_dois.jpg" width="3" height="18"></td>
              <td width="460">  
                <input name="mens" type="text" class="mensagem" id="mens"></td>
            </tr>
            <tr>
              <td> </td>
              <td width="460" valign="middle">                <img src="imagens/ponto_dois.jpg" width="3" height="16">
                <input name="Submit" type="submit" class="botao" value="Enviar mensagem">
                <img src="imagens/ponto_dois.jpg" width="3" height="16"></td>
            </tr>
          </table></form>
-------------------------- contato_envia.asp --------------------------
<html>
<%@language = "VBscript"%>
<%
Corpodoemail = "Assunto: Envio de currículo para 8888!" & vbcrlf
Corpodoemail = corpodoemail + "Nome: " & request.form("nome") & vbcrlf
Corpodoemail = corpodoemail + "E-mail: " & request.form("emai") & vbcrlf
Corpodoemail = corpodoemail + "Telefone: " & request.form("dddd") & VBCrLf & VBCrLf & request.form("tele") & vbcrlf
Corpodoemail = copordoemail + objMail.AttachFile Server.MapPath("Procurar") & vbcrlf
Corpodoemail = corpodoemail + "Código da Vaga: " & request.form("codigo") & vbcrlf
Corpodoemail = corpodoemail + "Mensagem: " & request.form("mens") & vbcrlf
gnom = Request.Form("nome")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
x=request.form("nome")
  Mailer.FromName = x
email = request.form("emai")
    Mailer.FromAddress = "[email protected]"
    
    strMailHost = "mail.www.com.br"
  Mailer.RemoteHost = "mail.www.com.br"

  Mailer.Recipient= "[email protected]"

  Mailer.Subject = request.form("assu")
  
  Mailer.BodyText = "Olá tttt:" & VBCrLf & VBCrLf & "Você acabou de receber uma mensagem de " & request.form("nome") & "." & VBCrLf & VBCrLf & "Mensagem:" & VBCrLf & request.Form("mens") & VBCrLf & VBCrLf & "Código da Vaga:" & VBCrLf & request.Form("codigo") & VBCrLf & VBCrLf & "Telefone para contato: " & "( " & request.Form("dddd") & " )  " & request.Form("tele") & VBCrLf & "Nome: " & request.Form("nome") & VBCrLf & "E-mail: " & request.Form("emai")  
  'Corpodoemail
    
    'Mailer.SendMail
    ' Clear.BodyText
    
    If Mailer.SendMail then 
%>

Eu queria que ele mandasse o anexo, que nem do outlook, você anexa e ele chega na caixa de e-mail, e não fica com um link que vai baixar no servidor.

grato.

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

o seu form precisa ter

enctype="multipart/form-data"

dentro da tag <form ... >

Corpodoemail = copordoemail + objMail.AttachFile Server.MapPath("Procurar") & vbcrlf

ele esta chegando aqui porque não deveria ter request.querystring

Link to comment
Share on other sites

  • 0
Guest Marcelo Campos

Cara eu não consegui entender o que você quiz dizer com "ele esta chegando aqui porque não deveria ter request.querystring"

valeu, pela ajuda.

Link to comment
Share on other sites

  • 0
Guest Marcelo Campo]

Ta dando esse erro, quando testo:

-------------------------------------------------------------------------------------------------------

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/final/fconosco_envia.asp, line 9

Corpodoemail = copordoemail + objMail.AttachFile Server.MapPath("procurar") & vbcrlf

-------------------------------------------------------------------------------------------------------

Link to comment
Share on other sites

  • 0
Guest Marcelo Campos

ninguém pode me ajudar, só falta isso pra eu finalizar o projeto, e não encontro isso em lugar algum.

seja um outro codigo, tuturial, sei lá.

Obrigado pela atenção.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...