Ir para conteúdo
Fórum Script Brasil
  • 0

Envia Anexo

Guest Marcelo Campos

Perguntado por Guest Marcelo Campos,

 Share

Pergunta

Guest Marcelo Campos

Guest Marcelo Campos

Postado
Postado

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 = "manda@www.com.br"
    
    strMailHost = "mail.www.com.br"
  Mailer.RemoteHost = "mail.www.com.br"

  Mailer.Recipient= "manda@www.com.br"

  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 para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
Guest Marcelo Campos

Guest Marcelo Campos

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
Guest Marcelo Campo]

Guest Marcelo Campo]

Postado
Postado

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 para o comentário
Compartilhar em outros sites
  • 0
Guest Marcelo Campos

Guest Marcelo Campos

Postado
Postado

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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...