Ir para conteúdo

POWERED BY:

Arquivado

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

edgard

mandar email

Por , em ASP Clássico

Recommended Posts

edgard    0

edgard
Postado

Gente, como eu posso mandar um email mas usando aspé assim, eu fiz uma tela e passo as informações com o action para um aspe la eu trato as informações para ficar bonito quando enviar o email, mas eu nao sei os códigos que faz ser enviado o email...tem algum tutorial que podem me informar, pois ai eu procuro ou se nao, se der para deixar aqui mesmo como fazer, agradeço do mesmo jeito...Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Procura no fórum sobre JMAIL, ASPMAIL ou CDONTS. ;) Ou então da uma olhada neste tutorial que ensina a usa o CDONTShttp://www.imasters.com.br/web/conteudo/se...719&codsecao=33

Muito obrigado carinha... era isso mesmo que eu estava precisando, ja fiz e funcionou direitinho no meu micro, mas quando eu coloquei no servidor...deu esse erroMicrosoft VBScript runtime error '800a0046' Permission denied /administracao/enviar_email.asp, line 86 a linha 86 é essaEnviarMail.Sendsera que você poderia me ajudar novamente ou outra pessoa, muito obrigado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Já vi esse erro... mas não lembro o q é.

 

As vezes pode ser erro no codigo.

 

Posta ele aqui se possivel!

 

B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Isso pode acontecer se seu Host não permitir o uso do CDONTS, entre em contato com o suporte para se informar sobre qual componente de email está disponivel.

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Isso pode acontecer se seu Host não permitir o uso do CDONTS, entre em contato com o suporte para se informar sobre qual componente de email está disponivel.

Então Hargon, eu vou postar o meu código aqui... obrigadoMas vou te falar uma coisa também, e vai para o Salgado OK, eu estive dando uma olhada no forum antes de vocês me mandarem estas respostas, e vi uma que você tinha falado com um usuario sobre o mesmo problema, e dei uma olhada no servidor da empresa e realmente, la ele usa AspEmail e não CDONTS, acredito que esse seja o problema, então vou ter que procurar o código certo para enviar email pelo aspemail certo?!!! ACHO QUE É ISSOmas o meu código vai abaixo pra você dar uma olhada se puder ta bom Hargon, muito obrigado pela força de vocês...****ESSE É O CÓDIGO ASP****<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Administração</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%Dim var_mail, var_empresa, var_endereco, var_bairro, var_cidade, var_cep, var_contato, var_telefone, var_cnpj, var_to, EnviarMail, MsgBodyvar_empresa = Request.QueryString("empresa")var_endereco = Request.QueryString("endereco")var_bairro = Request.QueryString("bairro")var_cidade = Request.QueryString("cidade")var_cep = Request.QueryString("cep")var_contato = Request.QueryString("contato")var_telefone = Request.QueryString("telefone")var_cnpj = Request.QueryString("cnpj")var_mail = Request.QueryString("emailcontato")var_to = "edgard@guaruja.sp.gov.br"Set EnviarMail = Server.CreateObject("CDONTS.NewMail")EnviarMail.To = var_toEnviarMail.From = var_mailEnviarMail.Subject = "CADASTRO"MsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<div align=""center"">" _& "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">" _& "<tr>" _& "<td bgcolor=""#364B85""><div align=""center""><b><font color=""#FFFFFF"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">TESTE; - Cadastro</font></b></div></td>" _& "</tr>" _& "</table>" _& "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">" _& "<tr>" _& "<td bgcolor=""#6A95B5""><font color=""#FFFFFF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">E-mail para contato: " & var_mail & "</font></td>" _& "</tr>" _& "</table>" _& "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">" _& "<tr bgcolor=""#E9EFF3"">" _& "<td width=""28%""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Empresa:</font></td>" _& "<td width=""72%""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_empresa & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#FFFFFF"">" _& "<td bgcolor=""#FFFFFF""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Endereço:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_endereco & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#E9EFF3"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Bairro:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_bairro & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#FFFFFF"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Cidadde:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cidade & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#E9EFF3"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">CEP:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cep & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#FFFFFF"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Pessoa de contato:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_contato & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#E9EFF3"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Telefone:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_telefone & "</font></td>" _& "</tr>" _& "<tr bgcolor=""#FFFFFF"">" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">CNPJ:</font></td>" _& "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cnpj & "</font></td>" _& "</tr>" _& "</table>" _& "</div>" _& "</body>" _& "</html>"EnviarMail.Body = MsgBodyEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0EnviarMail.SendSet EnviarMail = NothingResponse.redirect "obrigado.htm"%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O código parece está correto.

 

O que o salgado disse faz sentido mesmo.

 

Caso você não consiga resolver, poste aqui novamente que tentarei te ajudar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
Site do Componente, lá tem um exemplo da sintaxe do componente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Site do Componente, lá tem um exemplo da sintaxe do componente.

Obrigado gente... eu fiz novamente e fiz usando o Persits.MailSender e desta vez funcionou, o e-mail é enviado mas ocorre um erro na linha em que eu redirecionoO Errro é este abaixo gente!!!Response object error 'ASP 0156 : 80004005' Header Error /administracao/enviar_email.asp, line 91 The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content. Teria como me ajudar novamente, obrigado!!!a linha 91 é essa aquiResponse.redirect "informacoes.html"Vou mandar o meu código<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>Administração</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><%Dim var_mail, var_empresa, var_endereco, var_bairro, var_cidade, var_cep, var_contato, var_telefone, var_cnpj, var_to, EnviarMail, MsgBodyvar_empresa = Request.QueryString("empresa")var_endereco = Request.QueryString("endereco")var_bairro = Request.QueryString("bairro")var_cidade = Request.QueryString("cidade")var_cep = Request.QueryString("cep")var_contato = Request.QueryString("contato")var_telefone = Request.QueryString("telefone")var_cnpj = Request.QueryString("cnpj")var_mail = Request.QueryString("emailcontato")var_to = "edgard@guaruja.sp.gov.br"Set EnviarMail = Server.CreateObject("Persits.MailSender")EnviarMail.IsHTML = TrueEnviarMail.Host = "mail.teste.sp.gov.br"EnviarMail.From = var_mailEnviarMail.FromName = "edgard@guaruja.sp.gov.br"EnviarMail.Subject = "CADASTRO"EnviarMail.AddAddress "edgard@guaruja.sp.gov.br"Msg = "<html>"Msg = Msg & "<head>"Msg = Msg & "</head>"Msg = Msg & "<body bgcolor=""#FFFFFF"">"Msg = Msg & "<div align=""center"">"Msg = Msg & "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">"Msg = Msg & "<tr>"Msg = Msg & "<td bgcolor=""#364B85""><div align=""center""><b><font color=""#FFFFFF"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Teste - Cadastro</font></b></div></td>"Msg = Msg & "</tr>"Msg = Msg & "</table>"Msg = Msg & "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">"Msg = Msg & "<tr>"Msg = Msg & "<td bgcolor=""#6A95B5""><font color=""#FFFFFF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">E-mail para contato: " & var_mail & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "</table>"Msg = Msg & "<table width=""50%"" cellspacing=""0"" cellpadding=""2"">"Msg = Msg & "<tr bgcolor=""#E9EFF3"">"Msg = Msg & "<td width=""28%""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Empresa:</font></td>"Msg = Msg & "<td width=""72%""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_empresa & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#FFFFFF"">"Msg = Msg & "<td bgcolor=""#FFFFFF""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Endereço:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_endereco & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#E9EFF3"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Bairro:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_bairro & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#FFFFFF"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Cidadde:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cidade & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#E9EFF3"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">CEP:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cep & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#FFFFFF"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Pessoa de contato:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_contato & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#E9EFF3"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Telefone:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_telefone & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "<tr bgcolor=""#FFFFFF"">"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">CNPJ:</font></td>"Msg = Msg & "<td><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">" & var_cnpj & "</font></td>"Msg = Msg & "</tr>"Msg = Msg & "</table>"Msg = Msg & "</div>"Msg = Msg & "</body>"Msg = Msg & "</html>"EnviarMail.Body = msgEnviarMail.SendSet EnviarMail = NothingResponse.redirect "informacoes.html"%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Coloca no inicio do seu código a seguintes linha de comando:

 

response.buffer = true

Tenta isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Oi Hargon, agora deu este problemaResponse object error 'ASP 0156 : 80004005' Header Error /administracao/enviar_email.asp, line 11 The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Coloca essas linhas como as primeiras no seu código.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"
response.expires = 0
response.buffer = true%>

Se a dica acima nao funcionar, faz assim:

 

<%response.expires = 0
response.buffer = true%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Coloca essas linhas como as primeiras no seu código.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"response.expires = 0response.buffer = true%>
Se a dica acima nao funcionar, faz assim:
<%response.expires = 0response.buffer = true%>
Muito obrigado Hargon e Salgadoesse foi o código que deu certo ta bom...<%response.expires = 0response.buffer = true%>agora esta tudo OK! :D Agradecido de mais...

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