Preciso de ajuda no erro de envio de email no ASP
Prezados, bom dia.
sou novo no desenvolvimento em ASP. O antigo desenvolvedor sumiu e deixou uma bomba para eu resolver. Temo uma pagina na nossa intranet no qual a mesma e nosso serviço de chamados. Quando coloca todos os dados solicitados a mesma apresenta o seguinte erro:
**Persits.MailSender.4 error '800a0004'
Connect has been reset by server.
/INTRANET/suporte/index.asp, line 88**
Já estudei na internet as formas de resolver este problema, porém sem solução. Alguém no forum pode me ajudar neste erro? segue abaixo o código completo.
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=10.10.0.3;UID=microuni;PWD=microuni;DATABASE=intranet;Polling=true"
empresa=request.form("edtempresa")
departamento=request.form("edtdepartamento")
usuario=request.form("edtusuario")
categoria=request.form("edtcategoria")
motivo=request.form("edtmotivo")
descricao=request.form("edtdescricao")
if empresa <> "" and departamento <> "" and usuario <> "" and categoria <> "" and motivo <> "" and descricao <> "" then
set prioridadeemail= con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='" &usuario& "'")
email=prioridadeemail("email")
prioridade=prioridadeemail("prioridade")
ramal=prioridadeemail("ramal")
sql="insert into tab_suporte(categoria,motivo,usuario,data,descricao,situacao,empresa,departamento,emailresp,prioridade,ramal) values ('" & categoria & "','" & motivo & "','" & usuario & "',getdate(),'" & descricao & "','Pendente','" & empresa & "','" & departamento & "', '" &email& "', '" & prioridade& "','" & ramal & "')"
'response.write(sql)
con.execute(sql)
set cod=con.execute("select max(codigo) as codigo from tab_suporte")codigo = cod("codigo")
total = codigo
set emailsql=con.execute("select email,prioridade,ramal from tab_suporte_usuarios where usuario='" &usuario& "'")
emailresp=emailsql("email")
prioridade=emailsql("prioridade")
ramal=emailsql("ramal")
sql="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data)))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data)))), 2) + '/' + convert(char(4), DATEPART(yyyy, data)) + ' - ' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data)))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data)))), 2) as data from tab_suporte where codigo='" & codigo & "'"
set data=con.execute(sql)
sqlfim="SELECT right(('0' + rtrim(convert(char(2), DATEPART(d, data + '03:00')))), 2) + '/' + right(('0' + rtrim(convert(char(2), DATEPART(m, data + '03:00')))), 2) + '/' + convert(char(4), DATEPART(yyyy, data + '03:00')) + ' às ' + right(('0' + rtrim(convert(char(2), DATEPART(hh, data + '03:00')))), 2) + ':' + right(('0' + rtrim(convert(char(2), DATEPART(mi, data + '03:00')))), 2) + ' horas' as datafim from tab_suporte where codigo='" & codigo & "'"
set datafinal=con.execute(sqlfim)
body = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
body =body & "Número do Chamado...: " & codigo & chr(13)
body =body & "Data - Hora.........: " & data("data") & chr(13)
body =body & "Empresa.............: " & ucase(empresa) & chr(13)
body =body & "Departamento........: " & ucase(departamento) & chr(13)
body =body & "Usuário.............: " & ucase(usuario) & chr(13)
body =body & "e-Mail..............: " & emailresp & chr(13)
body =body & "Ramal...............: " & ramal & chr(13)
body =body & "Categoria...........: " & categoria & chr(13)
body =body & "Motivo..............: " & motivo & chr(13)
body =body & "Nível de Prioridade.: " & prioridade & chr(13) & chr(13)
body =body & "************************ DESCRIÇÃO DO CHAMADO **************************" & chr(13) & chr(13)
body =body & descricao & chr(13) & chr(13)
body =body & "**************************** OBSERVAÇÕES *******************************" & chr(13) & chr(13)
body =body & "O prazo máximo para o atendimento deste chamado é até o dia " & datafinal("datafim") & "." & chr(13) & chr(13)
body =body & "************************************************************************"
body2 = "************************* CHAMADO DE SUPORTE ***************************" & chr(13) & chr(13)
body2 =body2 & "Número do Chamado...: " & codigo & chr(13)
body2 =body2 & "Data - Hora.........: " & data("data") & chr(13)
body2 =body2 & "Empresa.............: " & ucase(empresa) & chr(13)
body2 =body2 & "Departamento........: " & ucase(departamento) & chr(13)
body2 =body2 & "Usuário.............: " & ucase(usuario) & chr(13)
body2 =body2 & "Categoria...........: " & categoria & chr(13)
body2 =body2 & "Motivo..............: " & motivo & chr(13) & chr(13)
body2 =body2 & "************************ DESCRIÇÃO DO CHAMADO **************************" & chr(13) & chr(13)
body2 =body2 & descricao & chr(13) & chr(13)
body2 =body2 & "**************************** OBSERVAÇÕES *******************************" & chr(13) & chr(13)
body2 =body2 & "O prazo máximo de atendimento deste chamado é de 03 (três) horas, portanto, se até o dia " & datafinal("datafim") & " você ainda não tiver obtido um retorno de nossa equipe, por favor entre em contato através do ramal 247 e informe o código " & codigo & "." & chr(13) & chr(13)
body2 =body2 & "************************************************************************"
'response.write(body)
'response.write(body2)
Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "email-ssl.com.br"
objmail.From = "suporte@centerlab.com.br"
objmail.FromName = "Equipe de Suporte GENOMA"
objmail.AddAddress "suporte@centerlab.com.br"
objmail.Subject = "Equipe de Suporte GENOMA"
objmail.IsHTML = True
objmail.Body = body
objmail.Send
if Err.Number <> 0 then
Response.write "Error: " & Err.description
end if
Set objmail2 = Server.CreateObject("Persits.MailSender")
objmail2.Host = "email-ssl.com.br"
objmail2.From = "suporte@centerlab.com.br"
objmail2.FromName = "Equipe de Suporte GENOMA"
objmail2.AddAddress "suporte@centerlab.com.br"
objmail2.Subject = "Equipe de Suporte GENOMA"
objmail2.IsHTML = True
objmail2.Body = body2
objmail2.Send
if Err.Number <> 0 then
Response.write "Error: " & Err.description
end ifmsg = codigo
session("usuario")=""
empresa=""
departamento=""
usuario=""
categoria=""
motivo=""
descricao=""
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>:: Central de Suporte GENOMA ::</title>
<script language="javascript">
function verificaeenvia(){
if (document.formulario.edtempresa.value=='' || document.formulario.edtdepartamento.value=='' || document.formulario.edtusuario.value=='' || document.formulario.edtcategoria.value=='' || document.formulario.edtmotivo.value=='' || document.formulario.edtdescricao.value==''){
alert('É necessário o preenchimento de todos os campos.');
}
else{
document.formulario.submit();
}
}
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" rightmargin="0" bottommargin="0">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" rowspan="2"><img src="index.1suporte.gif" width="64" height="473" border="0"></td>
<td width="51%" height="44" bgcolor="#F5F5F5">
<p align="right"><b><font face="Arial" color="#808080">Solicitação de
Suporte</font><font face="Arial" size="3"> </font></b></td>
<td width="42%" bgcolor="#2E5E92" height="183" rowspan="2" valign="middle" align="right">
<p align="center"><font color="#FFFFFF"><font face="Verdana" size="1"><strong>Departamento
de Informática</strong><br>
<em>Cada vez mais agilizando o<br>
atendimento aos seus usuários.</em></font></font></p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font size="1" color="#FFFFFF" face="Tahoma"><b>* O prazo máximo para retorno é de<br>
até 3 horas. Caso não seja atendido<br>
dentro deste período, por favor<br>
comunique no ramal 247.</b></font></p> </td>
</tr>
<tr>
<td width="51%" height="139" valign="top">
<form method="POST" action="index.asp" name="formulario">
<table border="0" width="96%" cellspacing="0" cellpadding="0" height="351">
<tr>
<td height="6" align="left" valign="middle"> </td>
<td height="6"></td>
</tr>
<tr>
<td width="23%" height="12" align="left" valign="middle"><font face="Verdana" size="1" color="#446B93"><strong> Empresa:</strong></font></td>
<td height="12" valign="middle"><font face="Arial" size="1" color="#446B93">
<select name="edtempresa" size="1" id="edtempresa" style="background-color: #F5F5F5; font-family: Arial; font-size: 8 pt; border: 1 solid #C0C0C0" onChange="document.formulario.edtdepartamento.value=''; document.formulario.edtusuario.value=''; document.formulario.submit();">
<option value="<%=empresa%>" selected><%=empresa%></option>
<%
sql="select * from tab_suporte_empresas where empresa <> '" & empresa & "'"
set valorescmb=Con.execute(sql)
if not valorescmb.eof then
valorescmb.movefirst
while not valorescmb.eof%>
<option value="<%=valorescmb("empresa")%>"><%=valorescmb("empresa")%></option>
<% valorescmb.movenext
wend
end if
%>
</select><%if empresa="" then
response.write " Selecione a sua empresa."
end if%>
</font></td>
</tr>
<tr>
<td width="23%" height="30" align="lDiscussão (0)
Carregando comentários...