Ir para conteúdo

POWERED BY:

Arquivado

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

edgard

email

Por , em ASP Clássico

Recommended Posts

edgard    0

edgard
Postado

Oi Gente, vocês podem me ajudar com esse erro... estou enviando email em asp, e isso ocorre, uma vez falei com o pessoal aqui e funcionou, mas agora nao esta mais funcionando, entao nao entendi...Technical Information (for support personnel)Error Type:Persits.MailSender.4 (0x800A0004)Connection timed out./administracao/enviar_email.asp, line 105a linha 105 é essa abaixoEnviarMail.Send

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta o codigo todo.

 

Só essa linha ai nao resolvi.

Compartilhar este post

Link para o post
Compartilhar em outros sites

edgard    0

edgard
Postado

Posta o codigo todo.Só essa linha ai nao resolvi.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%response.expires = 0response.buffer = true%><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, 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")if var_empresa = empty or var_endereco = empty or var_bairro = empty or var_cep = empty or var_contato = empty or var_telefone = empty or var_cnpj = empty or var_mail = empty then%> <form name="dados" action="http://www.tecnico.sp.gov.br/administracao/cadastro.htm"> <center> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <br><br><br><br><br><br><br><br><br><br><br><br> É necessário a digitação de todos os itens!<br><br> <input type="submit" value="Voltar"> </font> </center> </form><%else Set EnviarMail = Server.CreateObject("Persits.MailSender") EnviarMail.IsHTML = True EnviarMail.Host = "mail.tecnico.sp.gov.br" EnviarMail.From = var_mail EnviarMail.FromName = var_contato EnviarMail.Subject = "CADASTRO" EnviarMail.AddAddress "edgard_thomas@uol.com.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"">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><br><br>" Msg = Msg & "</div>" Msg = Msg & "</body>" Msg = Msg & "</html>" EnviarMail.Body = msg EnviarMail.Send Set EnviarMail = Nothing end if response.Redirect("http://www.tecnico.sp.gov.br/administracao/cadastro.htm")%></body></html>

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