malufla
-
Total de itens
1 -
Registro em
-
Última visita
Sobre malufla
malufla's Achievements
0
Reputação
-
Estou tentando desenvolver um formulário que envia um e-mail com anexo, mas estou com probleminha. Quando tento enviar um pdf em anexo aparece esse erro "erro '80004005' /novo/envia_email.asp, line 22". Erro nessa linha msg.AttachFile caminho O que estou fazendo de errado ? Me ajudem!! Obrigada INDEX.ASP <html> <head> <title>ENVIA E-MAIL COM ANEXO</title> </head> <body> <% Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script Case "upload" 'caso a acao seja upload, executa script do SaFileUp Set Upload = Server.CreateObject("Persits.Upload.1") Count = upload.Save("d:\web\localuser\nomedapasta\www\novo\anexo") Set FSO = CreateObject("scripting.FileSystemObject") Set Folder = FSO.GetFolder("d:\web\localuser\nomedapasta\www\novo\anexo") Set Files = Folder.Files For each objUploadedFile In Upload.Files arquivo = objUploadedFile.ExtractFileName 'response.Write(": " & objUploadedFile.ExtractFileName) seq = seq + 1 Next 'criei uma session para armazenar o no do arquivo session("arquivo") = arquivo Case "email" 'caso a acao seja email, executa script do CDOSYS End Select %> <div style=" margin:20px 0 10px;" id="form-anexo"> <form action="?acao=upload" method="post" enctype="multipart/form-data" name="frm_upload" id="frm_upload"> <input name="file" type="file" size="40" required> <input name="Upload" type="submit" id="Upload" value="Anexar"> </form> </div> <form method="POST" action="envia_email.asp"> <div> <label>Nome </label> <input type="text" name="txt_nome" size="24"> </div> <div> <label>E-mail </label> <input type="text" name="txt_email" size="24"> </div> <div> <label>Assunto:</label> <input type="text" name="txt_assunto" size="24"> </div> <div> <label>Mensagem:</label> <textarea rows="2" name="txt_mensagem"cols="20"></textarea> </div> <div> <label>Anexo:</label> <input type="text" name="txt_anexo" size="24" value="<%= session("arquivo") %>"> </div> <input type="submit" value="Enviar" name="b1"> </form> </body> </html> ENVIA_EMAIL.ASP <% dim arquivo arquivo = session("arquivo") caminho = "d:\web\localuser\nomedapasta\www\testeanexo\arq\" caminho = caminho & arquivo 'Vamos recuperar os valores do formulário nome = Request.Form("txt_nome") email = Request.Form("txt_email") assunto = Request.Form("txt_assunto") mensagem = Request.Form("txt_mensagem") 'Agora vamos criar o objeto Cdonts e enviar a mensagem Set msg = Server.CreateObject("CDONTS.NewMail") msg.From = email msg.To="seuemail@provedor.com" msg.Subject = assunto& " Curriculo" texto = mensagem msg.Body = nome&vbcrlf&texto 'Bom ai esta a linha onde vai anexar o arquivo ao e-mail msg.AttachFile caminho 'ERRO NESSA LINHA msg.Send Set msg = Nothing 'Avisamos ao usuário que sua mensagem foi enviada corretamente. Response.write "<script type=""text/javascript"">" Response.write "alert('Sua mensagem foi enviada com sucesso!...');" Response.write "window.location.href='index.asp';" Response.write "</script>" session.Abandon() %>