Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

gabrielsor

[Resolvido] Gerar excel e enviar por email

Por , em ASP Clássico

Recommended Posts

gabrielsor    0

gabrielsor
Postado

Seguinte pessoal...

tenho um código que gera um arquivo em excel, porém gostaria que automaticamente ao gerar esse arquivo, fosse enviado um email com esse arquivo anexo.

Estou tentando utilizar o envio de email com o cdonts, mas acho que minha lógica ta fraca e nao to conseguindo...

vou postar os codigos e se alguém puder me dar uma luz...

 

ARQUIVO QUE GERA EXCEL (funcionando 100%)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("db\banco.mdb") 

sql3 = request.form("excel")

sql = ""& sql3 & ""
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "orcamento.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Referência</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Empresa</th>")
act.WriteLine("<th nowrap>Nota</th>")
act.WriteLine("<th nowrap>Instrumento</th>")
act.WriteLine("<th nowrap>Marca</th>")
act.WriteLine("<th nowrap>Capacidade</th>")
act.WriteLine("<th nowrap>Modelo</th>")
act.WriteLine("<th nowrap>Fabricação</th>")
act.WriteLine("<th nowrap>Patrimônio</th>")
act.WriteLine("<th nowrap>Acessório</th>")
act.WriteLine("<th nowrap>Valor Unitário</th>")
act.WriteLine("<th nowrap>Contato</th>")
act.WriteLine("<th nowrap>Obs</th>")
act.WriteLine("<th nowrap>Valor</th>")
act.WriteLine("<th nowrap>CAL.</th>")
act.WriteLine("<th nowrap>P.E</th>")
act.WriteLine("<th nowrap>Pgto.</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("autonum") & "</td>")
act.WriteLine("<td align=""left"">"& rs("ddata") & "</td>")
act.WriteLine("<td align=""left"">"& rs("empresa") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nota") & "</td>")
act.WriteLine("<td align=""left"">"& rs("instrumento") & "</td>")
act.WriteLine("<td align=""left"">"& rs("marca") & "</td>")
act.WriteLine("<td align=""left"">"& rs("capacidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("modelo") & "</td>")
act.WriteLine("<td align=""left"">"& rs("fabricacao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("patrimonio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("acessorio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vunitario") & "</td>")
act.WriteLine("<td align=""left"">"& rs("contato") & "</td>")
act.WriteLine("<td align=""left"">"& rs("obs") & "</td>")
act.WriteLine("<td align=""left"">"& rs("valor") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vcalibracao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pentrega") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pgto") & "</td>")
act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close


%>

<script>
		window.location.href = "orcamento.xls";
</script>

</body>
</html>

CÓDIGO DO ENVIO DE EMAIL QUE ESTOU TENTANDO UTILIZAR...

<%
Option Explicit                                   'Obrigatoriedade de declaração de variáveis
Dim ObjMail                                       'Declaração da variável
Set ObjMail = Server.CreateObject("CDONTS.NewMail")    'Inicia o objeto NewMail
ObjMail.To = "email@email.com"                                   'Destinatário
ObjMail.From = "email@email.com"                                                'Remetente
ObjMail.Subject = "Orçamento"                             'Título
ObjMail.Body = "Segue anexo o excel com o orçamento"          'Texto da mensagem
ObjMail.AttachFile = "arquivoanexo"                           'Anexo da mensagem
ObjMail.Send                                                                                 'Envia mensagem
Set ObjMail = nothing                     'Liberados recursos da mensagem
%>

Bom, é isso ai pessoas, o envio de email através de um form ta tranquilo, porém ao tentar integrar essa geração automatica do excel, complica...

entaooo...se alguém ai puder me ajudar, ficarei muitoo grato :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Aqui:

<script> window.location.href = "orcamento.xls";</script>

 

Ele realmente é criado no servidor ?

Se for, nesta linha:

ObjMail.AttachFile = "arquivoanexo"

usa o servermappatch e o nome do arquivo a ser anexado ficaria = / - assim:

ObjMail.AttachFile = "'"&Servermappatch&"'"orcamento.xls"

 

Mais ou menos isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

Aqui:

<script> window.location.href = "orcamento.xls";</script>

 

Ele realmente é criado no servidor ?

Se for, nesta linha:

ObjMail.AttachFile = "arquivoanexo"

usa o servermappatch e o nome do arquivo a ser anexado ficaria = / - assim:

ObjMail.AttachFile = "'"&Servermappatch&"'"orcamento.xls"

 

Mais ou menos isso

 

Sim, este arquivo é gerado no proprio servidor com dados de uma consulta feita no bd.

Então é só eu colocar o codigo do email na msm página do arquivo que gera o excel e colocar o:" ObjMail.AttachFile = "'"&Servermappatch&"'"orcamento.xls" " ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Em tese, creio que sim.

Você tem que mostrar onde está o arquivo que deseja anexar, caso esse arquivo esteja no mesmo local que a pagina que roda esse script, basta isso, caso contrario, teria que apontar para ond fica, pode também usar desta forma:

ObjMail.AttachFile = "orcamento.xls"

ou

ObjMail.AttachFile = "./orcamento.xls"

ou

ObjMail.AttachFile = "../orcamentos/orcamento.xls"

 

Os dois primeiros indicam que está no mesmo diretorio, o ultimo indica que estar noutra pasta, precisa ver como funcionará no seu sistema.

O ServerMapPatch é bom pois mostra o caminho completo, porem se por algum motivo o script gerar um erro, ele mostrará o caminho completo aos arquivos, o que dependendo da situação não é muito bom.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

Em tese, creio que sim.

Você tem que mostrar onde está o arquivo que deseja anexar, caso esse arquivo esteja no mesmo local que a pagina que roda esse script, basta isso, caso contrario, teria que apontar para ond fica, pode também usar desta forma:

ObjMail.AttachFile = "orcamento.xls"

ou

ObjMail.AttachFile = "./orcamento.xls"

ou

ObjMail.AttachFile = "../orcamentos/orcamento.xls"

 

Os dois primeiros indicam que está no mesmo diretorio, o ultimo indica que estar noutra pasta, precisa ver como funcionará no seu sistema.

O ServerMapPatch é bom pois mostra o caminho completo, porem se por algum motivo o script gerar um erro, ele mostrará o caminho completo aos arquivos, o que dependendo da situação não é muito bom.

 

 

bom, vou tentar fazer isso e jaja posto o resultado...

por enquanto eh isso...

vlwwww :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro ????

olha este exemplo de exportar para excel, a diferença esta no envio, no anexo

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!--#include file="conexao/conexao.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%

sql = "SELECT * FROM tinscricao ORDER BY data DESC"
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "Inscricoes.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("arquivos/" & arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Curso</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Nome</th>")
act.WriteLine("<th nowrap>Endereço</th>")
act.WriteLine("<th nowrap>Bairro</th>")
act.WriteLine("<th nowrap>Cidade</th>")
act.WriteLine("<th nowrap>Estado</th>")
act.WriteLine("<th nowrap>Celular</th>")
act.WriteLine("<th nowrap>Telefone</th>")
act.WriteLine("<th nowrap>E-mail</th>")
act.WriteLine("<th nowrap>Mensagem</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("curso") & "</td>")
act.WriteLine("<td align=""left"">"& rs("data") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nome") & "</td>")
act.WriteLine("<td align=""left"">"& rs("endereco") & "</td>")
act.WriteLine("<td align=""left"">"& rs("bairro") & "</td>")
act.WriteLine("<td align=""left"">"& rs("cidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("estado") & "</td>")
act.WriteLine("<td align=""left"">"& rs("celular") & "</td>")
act.WriteLine("<td align=""left"">"& rs("telefone") & "</td>")
act.WriteLine("<td align=""left"">"& rs("email") & "</td>")
act.WriteLine("<td align=""left"">"& rs("mensagem") & "</td>")

act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
%>
<script>
	alert("Arquivo gerado com sucesso!");
	window.location.href = "arquivos/inscricoes.xls";
</script>
</body>
</html>

e verifique o caminho do AttachFile ,se esta correto

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

ele gera algum erro ????

olha este exemplo de exportar para excel, a diferença esta no envio, no anexo

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!--#include file="conexao/conexao.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%

sql = "SELECT * FROM tinscricao ORDER BY data DESC"
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "Inscricoes.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("arquivos/" & arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Curso</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Nome</th>")
act.WriteLine("<th nowrap>Endereço</th>")
act.WriteLine("<th nowrap>Bairro</th>")
act.WriteLine("<th nowrap>Cidade</th>")
act.WriteLine("<th nowrap>Estado</th>")
act.WriteLine("<th nowrap>Celular</th>")
act.WriteLine("<th nowrap>Telefone</th>")
act.WriteLine("<th nowrap>E-mail</th>")
act.WriteLine("<th nowrap>Mensagem</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("curso") & "</td>")
act.WriteLine("<td align=""left"">"& rs("data") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nome") & "</td>")
act.WriteLine("<td align=""left"">"& rs("endereco") & "</td>")
act.WriteLine("<td align=""left"">"& rs("bairro") & "</td>")
act.WriteLine("<td align=""left"">"& rs("cidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("estado") & "</td>")
act.WriteLine("<td align=""left"">"& rs("celular") & "</td>")
act.WriteLine("<td align=""left"">"& rs("telefone") & "</td>")
act.WriteLine("<td align=""left"">"& rs("email") & "</td>")
act.WriteLine("<td align=""left"">"& rs("mensagem") & "</td>")

act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
%>
<script>
	alert("Arquivo gerado com sucesso!");
	window.location.href = "arquivos/inscricoes.xls";
</script>
</body>
</html>

e verifique o caminho do AttachFile ,se esta correto

 

gerar o excel ele gera direitinho como disse antes, o exemplo que você mostrou é praticamente igual ao que estou usando, o problema esta exatamente na hora de integrar o envio de email com esse código de gerar o excel...

fiz o que o Vinicius falou porém não deu certo, vou postar o codigo como ficou e o erro que gerou.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("db\banco.mdb") 

sql3 = request.form("excel")

sql = ""& sql3 & ""
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "orcamento.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Referência</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Empresa</th>")
act.WriteLine("<th nowrap>Nota</th>")
act.WriteLine("<th nowrap>Instrumento</th>")
act.WriteLine("<th nowrap>Marca</th>")
act.WriteLine("<th nowrap>Capacidade</th>")
act.WriteLine("<th nowrap>Modelo</th>")
act.WriteLine("<th nowrap>Fabricação</th>")
act.WriteLine("<th nowrap>Patrimônio</th>")
act.WriteLine("<th nowrap>Acessório</th>")
act.WriteLine("<th nowrap>Valor Unitário</th>")
act.WriteLine("<th nowrap>Contato</th>")
act.WriteLine("<th nowrap>Obs</th>")
act.WriteLine("<th nowrap>Valor</th>")
act.WriteLine("<th nowrap>CAL.</th>")
act.WriteLine("<th nowrap>P.E</th>")
act.WriteLine("<th nowrap>Pgto.</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("autonum") & "</td>")
act.WriteLine("<td align=""left"">"& rs("ddata") & "</td>")
act.WriteLine("<td align=""left"">"& rs("empresa") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nota") & "</td>")
act.WriteLine("<td align=""left"">"& rs("instrumento") & "</td>")
act.WriteLine("<td align=""left"">"& rs("marca") & "</td>")
act.WriteLine("<td align=""left"">"& rs("capacidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("modelo") & "</td>")
act.WriteLine("<td align=""left"">"& rs("fabricacao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("patrimonio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("acessorio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vunitario") & "</td>")
act.WriteLine("<td align=""left"">"& rs("contato") & "</td>")
act.WriteLine("<td align=""left"">"& rs("obs") & "</td>")
act.WriteLine("<td align=""left"">"& rs("valor") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vcalibracao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pentrega") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pgto") & "</td>")
act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
       
%>


<script>
		window.location.href = "orcamento.xls";
</script>

<%
option explicit
Dim ObjMail                                       
Set ObjMail = Server.CreateObject("CDONTS.NewMail")    
ObjMail.To = "gabriel...@terra.com.br"                                   
ObjMail.From = "gabriel..@terra.com.br"                                 
ObjMail.Subject = "Orçamento"                            
ObjMail.Body = "Segue anexo o excel com o orçamento"         
ObjMail.AttachFile = " '"&Servermappatch&"'"orcamento.xls" "                   
ObjMail.Send                                                                                 
Set ObjMail = nothing                    
%>

</body>
</html>

Erro:

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/excel_2.asp, line 163

 

option explicit

^

 

se tiro o option explicit do código ele gera esse erro:

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/excel_2.asp, line 189

 

ObjMail.AttachFile = " '"&Servermappatch&"'"orcamento.xls" "

--------------------------------------------^

 

 

 

 

***

Consegui remover os erros substituindo o ObjMail.AttachFile = " '"&Servermappatch&"'"orcamento.xls" "

pelo caminho no servidor que seria "/orcamento.xls", porém ele nao envia nda para o email...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

isto esta acontecendo pois você esta dando

 

<script>
                window.location.href = "orcamento.xls";
</script>

 

antes de enviar o email... com isso é redirecionado antes de enviar o email, coloque no final depois de enviar o email.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

isto esta acontecendo pois você esta dando

 

<script>
                window.location.href = "orcamento.xls";
</script>

 

antes de enviar o email... com isso é redirecionado antes de enviar o email, coloque no final depois de enviar o email.

 

 

fazendo o que me falou, aparece o seguinte erro:

 

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/excel_2.asp, line 167

 

800401f3

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você deve realizar o redirecionamento após o envio, como disse o patrique

Certifique-se que você está usando o Dim nas variáveis sem o uso de AS e esta declarando todas.

 

Certifique-se de usar apenas 'Next' em vez de "Next i '... VBScript não necessita de controlar a variável de controle,Certifique-se de não criar uma seqüência como esta:

 

myString = "" coisas "

 

 

Certifique-se de não misturar sintaxe JavaScript VBScript em uma página

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

impossível, isso ai não geraria o erro, faça como quando não ocorreu o erro e coloque esse redirecionamento por último.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

impossível, isso ai não geraria o erro, faça como quando não ocorreu o erro e coloque esse redirecionamento por último.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Charset="ISO-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("db\banco.mdb") 

sql3 = request.form("excel")

sql = ""& sql3 & ""
Set Rs = Conexao.Execute(SQL)

arquivo_excel= "orcamento.xls"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr bgcolor=""#C0C0C0"">")
act.WriteLine("<th nowrap>Referência</th>")
act.WriteLine("<th nowrap>Data</th>")
act.WriteLine("<th nowrap>Empresa</th>")
act.WriteLine("<th nowrap>Nota</th>")
act.WriteLine("<th nowrap>Instrumento</th>")
act.WriteLine("<th nowrap>Marca</th>")
act.WriteLine("<th nowrap>Capacidade</th>")
act.WriteLine("<th nowrap>Modelo</th>")
act.WriteLine("<th nowrap>Fabricação</th>")
act.WriteLine("<th nowrap>Patrimônio</th>")
act.WriteLine("<th nowrap>Acessório</th>")
act.WriteLine("<th nowrap>Valor Unitário</th>")
act.WriteLine("<th nowrap>Contato</th>")
act.WriteLine("<th nowrap>Obs</th>")
act.WriteLine("<th nowrap>Valor</th>")
act.WriteLine("<th nowrap>CAL.</th>")
act.WriteLine("<th nowrap>P.E</th>")
act.WriteLine("<th nowrap>Pgto.</th>")


act.WriteLine("</tr>")

While NOT Rs.EOF

Act.WriteLine("<tr>")
act.WriteLine("<td align=""left"">"& rs("autonum") & "</td>")
act.WriteLine("<td align=""left"">"& rs("ddata") & "</td>")
act.WriteLine("<td align=""left"">"& rs("empresa") & "</td>")
act.WriteLine("<td align=""left"">"& rs("nota") & "</td>")
act.WriteLine("<td align=""left"">"& rs("instrumento") & "</td>")
act.WriteLine("<td align=""left"">"& rs("marca") & "</td>")
act.WriteLine("<td align=""left"">"& rs("capacidade") & "</td>")
act.WriteLine("<td align=""left"">"& rs("modelo") & "</td>")
act.WriteLine("<td align=""left"">"& rs("fabricacao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("patrimonio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("acessorio") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vunitario") & "</td>")
act.WriteLine("<td align=""left"">"& rs("contato") & "</td>")
act.WriteLine("<td align=""left"">"& rs("obs") & "</td>")
act.WriteLine("<td align=""left"">"& rs("valor") & "</td>")
act.WriteLine("<td align=""left"">"& rs("vcalibracao") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pentrega") & "</td>")
act.WriteLine("<td align=""left"">"& rs("pgto") & "</td>")
act.WriteLine("</tr>")

rs.movenext
Wend

act.WriteLine("</table></body></html>")

act.close
       
%>

<%
Dim ObjMail                                       
Set ObjMail = Server.CreateObject("CDONTS.NewMail")    
ObjMail.To = "gabrielsorrentino@terra.com.br"                                   'Destinatário
ObjMail.From = "gabrielsorrentino@terra.com.br"                                 'Remetente
ObjMail.Subject = "Orçamento"                            
ObjMail.Body = "Segue anexo o excel com o orçamento"         
ObjMail.AttachFile = Server.MapPath("orcamento.xls")             
ObjMail.Send                                                                                 
Set ObjMail = nothing                    
%>

<script>
		window.location.href = "orcamento.xls";
</script>



</body>
</html>

Assim gera o erro, se eu coloco o <script> para cima "funciona"...

ahh...se eu deixo o option explicit no codigo, independente do lugar que eu colocar o envio do email, ele mostra o option como erro...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

opa....

coloquei a descrição do erro errado

 

o erro que esta gerando , talvez não tenha o componente instalado no server

certifique-se que você está passando um pedido válido de identificação (que é chamado ProgID). Se você estiver usando um terceiro objeto COM, você pode precisar registrar o primeiro objeto, veja se tem instalado o componente, e ao inves de usar o window.location.href, use o response.redirect

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

opa....

coloquei a descrição do erro errado

 

o erro que esta gerando , talvez não tenha o componente instalado no server

certifique-se que você está passando um pedido válido de identificação (que é chamado ProgID). Se você estiver usando um terceiro objeto COM, você pode precisar registrar o primeiro objeto, veja se tem instalado o componente, e ao inves de usar o window.location.href, use o response.redirect

 

uhnn...o site ta hospedado no uolhost...como faço para verificar se há disponibilidade desse componente?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

exemplo.

 

link

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrielsor    0

gabrielsor
Postado

Problema resolvido, fiz exatamente como antes, porém usando o CDOSYS, segui o tutorial do próprio uolhost e ficou belezinha... :clap:

Vlww pela ajuda ae galeraa!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito