Erro no AttachFile

PRISCILA STOCHINI · Outubro 9, 2006

Quem sabe como posso arrumar isso...Código da página...

<!--#include file="funcoes_upload.asp"--><!--#include file="conectando.asp"--><% 'Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------Vcontato = UploadRequest.Item("contato").Item("Value")Vresumo = UploadRequest.Item("resumo").Item("Value")Vduvida = UploadRequest.Item("duvida").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviadosnome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))' Conteudo binario dos arquivos enviadosarquivo = UploadRequest.Item("arquivo").Item("Value")'pasta onde as imagens serao guardadaspasta = Server.MapPath("Obras/")nome_arquivo = "/"&nome_arquivo' pasta + nome dos arquivosVarquivo = "Obras" + nome_arquivo' Fazendo o Upload do arquivo selecionadoif Varquivo <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)For i = 1 to LenB(arquivo)MyFile.Write chr(AscB(MidB(arquivo,i,1)))NextMyFile.Closeend if'----------- DÚVIDAS COM ANEXO -----------HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>DÚVIDAS COM ANEXOS</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"HTML = HTML & "<span style=""font-size: 12px"">Softwares Técnicos</span></p>"HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Dúvida com anexo enviada através do site</p>"HTML = HTML & "<font size=""2"" face=""arial"">"HTML = HTML & "<B>Prezado Usuário: </B>" & Vcontato & "<BR><BR>"HTML = HTML & "<B>Resumo da Dúvida: </B>" & Vresumo & "<BR>"HTML = HTML & "<B>Dúvida: </B>" & Vduvida & "<BR><BR>"HTML = HTML & "<B>Anexo: </B>" & Varquivo & "<BR><BR>"HTML = HTML & "</font>"HTML = HTML & "</body>"HTML = HTML & "</html>"Server.ScriptTimeout = 1000varanexo = Server.MapPath(Varquivo)Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "MULTIPLUS - Softwares Técnicos" myMail.To = "teste@cype.com.br"myMail.Subject = "DÚVIDAS DO SIM - VIA SITE"myMail.BodyFormat = 0 myMail.MailFormat = 0myMail.Attachfile "varanexo"myMail.Body = HTML myMail.Send Set myMail = Nothing Set FSO= Server.CreateObject("Scripting.FileSystemObject")If Fso.FileExists(varanexo) ThenSet anexo = FSO.GetFile(varanexo)anexo.deleteend if

Erro...

error '80004005' /suporte/envia_DUVIDA.asp, line 76

Por favor me ajudem...

brummiejlle · Outubro 9, 2006

Ola Priscila,você já tentou tirar as aspas de "varanexo" ???

Quem sabe como posso arrumar isso...Código da página...

<!--#include file="funcoes_upload.asp"--><!--#include file="conectando.asp"--><% 'Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------Vcontato = UploadRequest.Item("contato").Item("Value")Vresumo = UploadRequest.Item("resumo").Item("Value")Vduvida = UploadRequest.Item("duvida").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviadosnome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))' Conteudo binario dos arquivos enviadosarquivo = UploadRequest.Item("arquivo").Item("Value")'pasta onde as imagens serao guardadaspasta = Server.MapPath("Obras/")nome_arquivo = "/"&nome_arquivo' pasta + nome dos arquivosVarquivo = "Obras" + nome_arquivo' Fazendo o Upload do arquivo selecionadoif Varquivo <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)For i = 1 to LenB(arquivo)MyFile.Write chr(AscB(MidB(arquivo,i,1)))NextMyFile.Closeend if'----------- DÚVIDAS COM ANEXO -----------HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>DÚVIDAS COM ANEXOS</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"HTML = HTML & "<span style=""font-size: 12px"">Softwares Técnicos</span></p>"HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Dúvida com anexo enviada através do site</p>"HTML = HTML & "<font size=""2"" face=""arial"">"HTML = HTML & "<B>Prezado Usuário: </B>" & Vcontato & "<BR><BR>"HTML = HTML & "<B>Resumo da Dúvida: </B>" & Vresumo & "<BR>"HTML = HTML & "<B>Dúvida: </B>" & Vduvida & "<BR><BR>"HTML = HTML & "<B>Anexo: </B>" & Varquivo & "<BR><BR>"HTML = HTML & "</font>"HTML = HTML & "</body>"HTML = HTML & "</html>"Server.ScriptTimeout = 1000varanexo = Server.MapPath(Varquivo)Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "MULTIPLUS - Softwares Técnicos" myMail.To = "teste@cype.com.br"myMail.Subject = "DÚVIDAS DO SIM - VIA SITE"myMail.BodyFormat = 0 myMail.MailFormat = 0myMail.Attachfile "varanexo"myMail.Body = HTML myMail.Send Set myMail = Nothing Set FSO= Server.CreateObject("Scripting.FileSystemObject")If Fso.FileExists(varanexo) ThenSet anexo = FSO.GetFile(varanexo)anexo.deleteend if

Erro...

error '80004005' /suporte/envia_DUVIDA.asp, line 76

Por favor me ajudem...

PRISCILA STOCHINI · Outubro 9, 2006

Se eu colocar as aspas, não roda e se não colocar, passa direto, não recebe o email, nem envia o email..

PRISCILA STOCHINI · Outubro 9, 2006

Pessoal, que pode me ajudar...

<!--#include file="funcoes_upload.asp"--><!--#include file="conectando.asp"--><% 'Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------Vcontato = UploadRequest.Item("contato").Item("Value")Vresumo = UploadRequest.Item("resumo").Item("Value")Vduvida = UploadRequest.Item("duvida").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviadosnome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))' Conteudo binario dos arquivos enviadosarquivo = UploadRequest.Item("arquivo").Item("Value")'pasta onde as imagens serao guardadaspasta = Server.MapPath("Obras/")nome_arquivo = "/"&nome_arquivo' pasta + nome dos arquivosVarquivo = "Obras" + nome_arquivo' Fazendo o Upload do arquivo selecionadoif Varquivo <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)For i = 1 to LenB(arquivo)MyFile.Write chr(AscB(MidB(arquivo,i,1)))NextMyFile.Closeend if'----------- DÚVIDAS COM ANEXO -----------HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>DÚVIDAS COM ANEXOS</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"">MULTIPLUS</span><br/>"HTML = HTML & "<span style=""font-size: 12px"">Softwares Técnicos</span></p>"HTML = HTML & "<p style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Dúvida com anexo enviada através do site</p>"HTML = HTML & "<font size=""2"" face=""arial"">"HTML = HTML & "<B>Prezado Usuário: </B>" & Vcontato & "<BR><BR>"HTML = HTML & "<B>Resumo da Dúvida: </B>" & Vresumo & "<BR>"HTML = HTML & "<B>Dúvida: </B>" & Vduvida & "<BR><BR>"HTML = HTML & "<B>Anexo: </B>" & Varquivo & "<BR><BR>"HTML = HTML & "</font>"HTML = HTML & "</body>"HTML = HTML & "</html>"Server.ScriptTimeout = 1000varanexo = Server.MapPath(Varquivo)Set myMail = CreateObject("CDONTS.NewMail") myMail.From = "MULTIPLUS - Softwares Técnicos" myMail.To = "teste@cype.com.br"myMail.Subject = "DÚVIDAS DO SIM - VIA SITE"myMail.BodyFormat = 0 myMail.MailFormat = 0myMail.Attachfile varanexomyMail.Body = HTML myMail.Send Set myMail = Nothing Set FSO= Server.CreateObject("Scripting.FileSystemObject")If Fso.FileExists(varanexo) ThenSet anexo = FSO.GetFile(varanexo)anexo.deleteend if'---------- CONFIRMAÇÃO DE ENVIO DA DÚVIDA -------------'selecionando o registro cadastrado para preparar o envio de emailsql = "Select * from suptec where codigo = '"&Vcodigo&"'"'executando recordset para pesquisar se os dados foram cadastradosSet rs = bco.Execute(sql)'verificando se houve erro, se não houve envia por emailif rs.eof then Response.Write("Registro não encontrado.Erro na gravação")else'definimos o endereço de email que irá enviar o emailVemail = "suporteweb@multiplus.com"'criamos o obejto do cdontsSet EnviarMail = Server.CreateObject("CDONTS.NewMail")'recebe o valor do recordset com o email cadastradoEnviarMail.To = rs("email")'recebe o email de quem envia da variavel VemailEnviarMail.From = Vemail'Assunto do emailEnviarMail.Subject = "Confirmação de Cadastro da Dúvida"'corpo do email armazenado na variavelHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"HTML = HTML & "<html>"HTML = HTML & "<head>"HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>CONFIRMAÇÃO DE ENVIO DA DÚVIDA</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""#FFFFFF"">"HTML = HTML & "<p align=""center""><span style=""font-family: Arial, Helvetica, sans-serif; font-size: 24px"" color=""#FF0000"">SIM - Suporte por Internet MULTIPLUS</span><BR><BR>"HTML = HTML & "<p align=""center""><span style=""font-size: 18px; font-family: Arial, Helvetica, sans-serif"">Sua dúvida foi recebida com sucesso e em breve o Departamento de Suporte Técnico da MULTIPLUS irá respondê - la.</span> </p><BR><BR><BR>"HTML = HTML & "</body>"HTML = HTML & "</html>"'propriedade recebe a variavel do corpo do emailEnviarMail.Body = HTMLEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0EnviarMail.Send 'fecha o objeto CDONTSSet EnviarMail = Nothingif Err.Number <> 0 ThenResponse.Write("Erro:" & Err.Description &".")elseResponse.Write("Email Enviado")End ifEnd if'fechando e destuindo a conexãobco.CloseSet bco = NothingURL = "http://www.multiplus.com/SIM/PRINCIPALXYZ000.HTM"Response.Redirect(URL) %>

esse é meu código....o que preciso dele é anexar arquivo nele (fazer o upload) e enviar o email. Quem pode verificar pra mim...??? Não sei onde tá o erro..

brummiejlle · Outubro 9, 2006

Ok, você disse que passa direto... mas se não deu nenhuma mensagem de erro pode ser que o email foi enviado. As vezes o email fica, por algum motivo, algum tempo no servidor de e-mail. Tenho esse problema frequentemente, parece que o e-mail não foi enviado mas depois de algum tempo o e-mail chega.Se não ocorreu erro mas você não recebeu, faça testes com outros e-mails, tipo algum hotmail, yahoo.

Se eu colocar as aspas, não roda e se não colocar, passa direto, não recebe o email, nem envia o email..

PRISCILA STOCHINI · Outubro 9, 2006

De resto vcs acham que tá tudo certo no código????Não está fazendo o upload...

PRISCILA STOCHINI · Outubro 9, 2006

Está passando direto por essa págin, não está fazendo nem o upload do arquivo nem enviando o email..

brummiejlle · Outubro 9, 2006

Desculpe mas tenho que fazer várias perguntas:você conseguiu enviar algum e-mail ?você recebeu o e-mail mas não veio o anexo, é isso?Não dá nenhuma mensagem de erro?Pode ser que você esteja com problema na biblioteca que envia e-mail.Sugiro você fazer um teste pra ver primeiro se o envio de e-mail está funcionando, depois tentarfazer funcionar a parte do upload.Para fazer o teste você pode comentar a linha abaixo:myMail.Attachfile varanexoOu você apenas tentar enviar sem anexar nenhum email, mas acho que é importante se certificarque a rotina de e-mail está funcionando.

De resto vcs acham que tá tudo certo no código????Não está fazendo o upload...

PRISCILA STOCHINI · Outubro 9, 2006

Respondendo suas perguntas...Não recebi email nenhum dessa página...Nem email, nem anexo...Não dá erro nenhum...passa direto...Posso estar te passando todos os códgos pra você dar um olhada, estou desde as 13:00 vendo esse bendito código nao enchergo mais nada...Bom, se puder, já vai a ideia do sistema..A ideia do sistema no momento é...O usuario envia sua dúvida pelo site, e tem sua resposta tb pelo site.Tenho um formulario que o usuario preenche e pode ou não anexar arquivos. Após o submit deste formulario, o usuario receber um email com a confirmação do cadastro, os dados e o NOME desse arquivo (se houver arquivo, se não tem que ir vazio) vão para um BD e se houver arquivo envia um email pra empresa com esse anexado.Tenho também o formulario de resposta que também poderá ou não anexar arquivos. Este tem que enviar email de resposta ao usuario tendo ou não tendo arquivos.Ao mesmo tempo tem que fazer o update dos dados resposndidos pelo tecnico no banco.Grata, Priscila

Arquivado

Erro no AttachFile

Recommended Posts

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

brummiejlle 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

brummiejlle 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

brummiejlle 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PRISCILA STOCHINI 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante