anexo com Cdonts da error '80004005'

paulojr · Março 3, 2006

Olá pessoal alguem pode me dizer porque meu codigo esta dando esse erro ?

error '80004005' /temp/finaliza.asp, line 96

O codigo é o seguinte:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% ' Esta secao faz o upload do arquivos para o diretório /dadosSet myFileUpload = Server.CreateObject("SoftArtisans.FileUp") if myFileUpload.form("logotipo").UserFilename <> "" then' diretório em que a imagem será salvaPasta = Server.MapPath("logotipos")myFileUpload.Form("logotipo").Path = PastamyFileUpload.form("logotipo").Saveend ifarquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)MMrdn = myFileUpload.form("RDN")MMfonte = myFileUpload.form("fonte")MMfrase = myFileUpload.form("frase")MMqtd_palavras = myFileUpload.form("qtd_palavras")MMvalortxt = myFileUpload.form("valortxt")MMqtd_placas = myFileUpload.form("qtd_placas")MMpreco_placa_unit = myFileUpload.form("preco_placa_unit")MMpreco_total_placas = myFileUpload.form("preco_total_placas")MMvalortotal = myFileUpload.form("valortotal")MMnome = myFileUpload.form("nomecad")MMemail = myFileUpload.form("emailcad")MMend = myFileUpload.form("end")MMcomplemento = myFileUpload.form("complemento")MMbairro = myFileUpload.form("bairro")MMcep1 = myFileUpload.form("cep1")MMcep2 = myFileUpload.form("cep2")MMtelefone = myFileUpload.form("telefone")MMestado = myFileUpload.form("estado")MMcidade = myFileUpload.form("cidade")var_anexo = Pasta &"/"& Arquivovar_nomere = MMnomevar_emailre = MMemailvar_to = "paulo@blancalion.com.br"' Esta secao faz o upload do arquivos para o diretório /dadosIf Err ThenResponse.Write("<b>Erro : </b>" & Err.description & "<br>")Set myFileUpload = nothingResponse.EndEnd If%> <%conteudo = "<html>" &_conteudo = conteudo & "<head>"&_conteudo = conteudo & "<meta http-equiv=""Content-Type""" &_conteudo = conteudo & "content=""text/html; charset=iso-8859-1"">" &_conteudo = conteudo & "<style type=""text/css"">"conteudo = conteudo & "<!--" &_conteudo = conteudo & "body {" &_conteudo = conteudo & "Background-color: #BEA87B;{" &_conteudo = conteudo & "body,td,th {"&_conteudo = conteudo & "font-family: Arial, Helvetica, sans-serif;"&_conteudo = conteudo & "font-size: 12px;"&_conteudo = conteudo & "color: #000000;}" &_conteudo = conteudo & ".style1 {"&_conteudo = conteudo & "font-size: 16px;"&_conteudo = conteudo & "font-weight: bold;"&_conteudo = conteudo & "color: #660000;}"&_conteudo = conteudo & "-->"&_conteudo = conteudo & "</style></head>"&_conteudo = conteudo & "<body>"&_conteudo = conteudo & "<p align=""center"" class=""style1"">Dados do Cliente </p>"&_conteudo = conteudo & "<p>Nome do Cliente: "&MMnome&"<br><br>"&_conteudo = conteudo & "E-mail: "&MMemail&"<br><br>"&_conteudo = conteudo & "Telefone: "&MMtelefone&"<br><br>"&_conteudo = conteudo & "Endereço: "&MMend&"<br><br>"&_conteudo = conteudo & "Complemento:"&MMcomplemento&"<br><br>"&_conteudo = conteudo & "Bairro:"&MMbairro&"<br><br>"&_conteudo = conteudo & "Cep:"&MMcep1&" - "&MMcep2&"<br><br>"&_conteudo = conteudo & "Estado: "&MMestado&" / "&MMcidade&" </p><br>"&_conteudo = conteudo & "<p align=""center"" class=""style1"">Dados para o Orçamento</p>"&_conteudo = conteudo & "<p align=""left"">Fonte Escolhida : "&MMfonte&"<br><br>"&_conteudo = conteudo & "Texto para Gravação:"&MMfrase&"<br><br><br>"&_conteudo = conteudo & "Existem  <span class=""style1"">"&qtd_palavras&"</span> palavras neste texto e o valor a ser cobrado é <span class=""style1"">R$"&MMvalortxt&"</span>. por <span class=""style1"">"&MMqtd_placas&"</span> gravações.<br><br>"&_conteudo = conteudo & "Placas a serem gravadas <span class=""style1"">"&MMqtd_placas&"</span>.<br><br>"&_conteudo = conteudo & "Valor Unitário da Placa <span class=""style1"">R$"&MMpreco_placa_unit&"</span>.<br><br>"&_conteudo = conteudo & "Valor Total das Placas <span class=""style1"">R$"&MMpreco_total_placas&"</span>.</p><br><br>"&_conteudo = conteudo & "<p align=""left""><span class=""style1"">Valor Total da Compra é de R$"&MMvalortotal&"</span><br><br><br><br></p>"&_conteudo = conteudo & "</body>"conteudo = conteudo & "</html>"%><% Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = MMemail Mailer.To = "paulo@blancalion.com.br" Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0 ' parametro de formatação if var_anexo <> "" thenMailer.AttachFile var_anexo ' Anexoend ifMailer.Subject = "Assunto do E-mail" Mailer.Body = conteudo If Mailer.Send Then RESPONSE.Redirect("enviado.asp")End If Set Mailer = Nothing%>

A linha 96 contem

Mailer.AttachFile var_anexo ' Anexo

Obrigado Mais uma vez galera

paulojr · Março 3, 2006

Olá galera, pra variar achei o problema, o erro nao esta no código mas sim com a porcaria da LOCAWEB que nao permite o envio de anexo via CDONTS, tive que alterar para CDOSYS só que agora estou recebendo o email com o anexo mas no lugar do conteudo HTML vem escrito FALSE.o codigo como ficou --->>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% ' Esta secao faz o upload do arquivos para o diretório /dadosSet myFileUpload = Server.CreateObject("SoftArtisans.FileUp") if myFileUpload.form("logotipo").UserFilename <> "" then' diretório em que a imagem será salvaPasta = Server.MapPath("logotipos")myFileUpload.Form("logotipo").Path = PastamyFileUpload.form("logotipo").Saveend ifarquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1)MMrdn = myFileUpload.form("RDN")MMfonte = myFileUpload.form("fonte")MMfrase = myFileUpload.form("frase")MMqtd_palavras = myFileUpload.form("qtd_palavras")MMvalortxt = myFileUpload.form("valortxt")MMqtd_placas = myFileUpload.form("qtd_placas")MMpreco_placa_unit = myFileUpload.form("preco_placa_unit")MMpreco_total_placas = myFileUpload.form("preco_total_placas")MMvalortotal = myFileUpload.form("valortotal")MMnome = myFileUpload.form("nomecad")MMemail = myFileUpload.form("emailcad")MMend = myFileUpload.form("end")MMcomplemento = myFileUpload.form("complemento")MMbairro = myFileUpload.form("bairro")MMcep1 = myFileUpload.form("cep1")MMcep2 = myFileUpload.form("cep2")MMtelefone = myFileUpload.form("telefone")MMestado = myFileUpload.form("estado")MMcidade = myFileUpload.form("cidade")var_anexo = Pasta &"/"& Arquivo' Esta secao faz o upload do arquivos para o diretório /dadosSet myFileUpload = nothing%> <%conteudo = "<html>" &_conteudo = conteudo & "<head>"&_conteudo = conteudo & "<meta http-equiv=""Content-Type""" &_conteudo = conteudo & "content=""text/html; charset=iso-8859-1"">" &_conteudo = conteudo & "<style type=""text/css"">"conteudo = conteudo & ""&_conteudo = conteudo & "</style></head>"&_conteudo = conteudo & "<body>"&_conteudo = conteudo & "Dados do Cliente "&_conteudo = conteudo & "Nome do Cliente: "&MMnome&" "&_conteudo = conteudo & "E-mail: "&MMemail&" "&_conteudo = conteudo & "Telefone: "&MMtelefone&" "&_conteudo = conteudo & "Endereço: "&MMend&" "&_conteudo = conteudo & "Complemento:"&MMcomplemento&" "&_conteudo = conteudo & "Bairro:"&MMbairro&" "&_conteudo = conteudo & "Cep:"&MMcep1&" - "&MMcep2&" "&_conteudo = conteudo & "Estado: "&MMestado&" / "&MMcidade&" "&_conteudo = conteudo & "Dados para o Orçamento"&_conteudo = conteudo & "Fonte Escolhida : "&MMfonte&" "&_conteudo = conteudo & "Texto para Gravação:"&MMfrase&" "&_conteudo = conteudo & "Existem "&qtd_palavras&" palavras neste texto e o valor a ser cobrado é R$"&MMvalortxt&". por "&MMqtd_placas&" gravações. "&_conteudo = conteudo & "Placas a serem gravadas "&MMqtd_placas&". "&_conteudo = conteudo & "Valor Unitário da Placa R$"&MMpreco_placa_unit&". "&_conteudo = conteudo & "Valor Total das Placas R$"&MMpreco_total_placas&". "&_conteudo = conteudo & "Valor Total da Compra é de R$"&MMvalortotal&" "&_conteudo = conteudo & "</body>"conteudo = conteudo & "</html>"%><% 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields (" http://schemas.microsoft.com/cdo/configuration/smtpserver ") = "smtp2.locaweb.com.br" 'porta do SMTP objCDOSYSCon.Fields (" http://schemas.microsoft.com/cdo/configura.../smtpserverport ") = 25 'porta do CDO objCDOSYSCon.Fields (" http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 ' timeout objCDOSYSCon.Fields (" http://schemas.microsoft.com/cdo/configura...nnectiontimeout ") = 300 objCDOSYSCon.Fields.update ' atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon ' Nome do Destinatario objCDOSYSMail.From = MMnome ' E-mail do Destinatario objCDOSYSMail.To = "paulo@blancalion.com.br" ' Assunto do E-mail objCDOSYSMail.Subject = "Orçamento" ' conteúdo da mensagem ' para envio da mensagem no formato html altere a propriedade TextBody para HtmlBody objCDOSYSMail.HtmlBody = conteudo' Anexa um arquivo que esta em uma URL 'objCDOSYSMail.AddAttachment "http://www.dominio.com.br/imagem/nome_arquivo.jpg" ' Anexa um arquivo que esta em sua area de ftp objCDOSYSMail.AddAttachment var_anexo 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.write "E-mail enviado com Sucesso..." %>

alguem tem alguma ideia do porque nao vem o conteudo ?

Entrar

Arquivado

anexo com Cdonts da error '80004005'

Recommended Posts

paulojr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

paulojr 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante